steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.intervals.tests: clean up literal syntax

clean-macosx-x86-64
timor 2019-08-29 08:19:57 +02:00 committed by John Benediktsson
parent 449224878f
commit 30f2d6e78f
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
basis/math/intervals/intervals-tests.factor
View File

@ -423,16 +423,16 @@ commutative-ops [
{ -16 15 } [ -16 4 1 <range> -1 15 1 <range> [ bitor ] cartesian-bounds ] unit-test { -16 15 } [ -16 4 1 <range> -1 15 1 <range> [ bitor ] cartesian-bounds ] unit-test
{ $[ 0 255 [a,b] ] } [ 0 255 [a,b] dup interval-bitor ] unit-test ${ 0 255 [a,b] } [ 0 255 [a,b] dup interval-bitor ] unit-test
{ $[ 0 511 [a,b] ] } [ 0 256 [a,b] dup interval-bitor ] unit-test ${ 0 511 [a,b] } [ 0 256 [a,b] dup interval-bitor ] unit-test
{ $[ -128 127 [a,b] ] } [ -128 127 [a,b] dup interval-bitor ] unit-test ${ -128 127 [a,b] } [ -128 127 [a,b] dup interval-bitor ] unit-test
{ $[ -256 255 [a,b] ] } [ -128 128 [a,b] dup interval-bitor ] unit-test ${ -256 255 [a,b] } [ -128 128 [a,b] dup interval-bitor ] unit-test
{ full-interval } [ full-interval -128 127 [a,b] interval-bitor ] unit-test { full-interval } [ full-interval -128 127 [a,b] interval-bitor ] unit-test
{ $[ 0 [a,inf] ] } [ 0 [a,inf] dup interval-bitor ] unit-test ${ 0 [a,inf] } [ 0 [a,inf] dup interval-bitor ] unit-test
{ full-interval } [ 0 [-inf,a] dup interval-bitor ] unit-test { full-interval } [ 0 [-inf,a] dup interval-bitor ] unit-test
{ $[ 4 [a,inf] ] } [ 4 [a,inf] 3 [a,inf] interval-bitor ] unit-test ${ 4 [a,inf] } [ 4 [a,inf] 3 [a,inf] interval-bitor ] unit-test
! interval-bitxor ! interval-bitxor
{ 0 15 } [ 16 <iota> dup [ bitxor ] cartesian-bounds ] unit-test { 0 15 } [ 16 <iota> dup [ bitxor ] cartesian-bounds ] unit-test
@ -443,15 +443,15 @@ commutative-ops [
{ -16 15 } [ -16 0 1 <range> dup [ bitxor ] cartesian-bounds ] unit-test { -16 15 } [ -16 0 1 <range> dup [ bitxor ] cartesian-bounds ] unit-test
{ $[ 0 255 [a,b] ] } [ 0 255 [a,b] dup interval-bitxor ] unit-test ${ 0 255 [a,b] } [ 0 255 [a,b] dup interval-bitxor ] unit-test
{ $[ 0 511 [a,b] ] } [ 0 256 [a,b] dup interval-bitxor ] unit-test ${ 0 511 [a,b] } [ 0 256 [a,b] dup interval-bitxor ] unit-test
{ $[ -128 127 [a,b] ] } [ -128 127 [a,b] dup interval-bitxor ] unit-test ${ -128 127 [a,b] } [ -128 127 [a,b] dup interval-bitxor ] unit-test
{ $[ -256 255 [a,b] ] } [ -128 128 [a,b] dup interval-bitxor ] unit-test ${ -256 255 [a,b] } [ -128 128 [a,b] dup interval-bitxor ] unit-test
{ $[ 0 127 [a,b] ] } [ -128 -1 [a,b] dup interval-bitxor ] unit-test ${ 0 127 [a,b] } [ -128 -1 [a,b] dup interval-bitxor ] unit-test
{ full-interval } [ full-interval -128 127 [a,b] interval-bitxor ] unit-test { full-interval } [ full-interval -128 127 [a,b] interval-bitxor ] unit-test
{ $[ 0 [a,inf] ] } [ 0 [a,inf] dup interval-bitxor ] unit-test ${ 0 [a,inf] } [ 0 [a,inf] dup interval-bitxor ] unit-test
{ $[ 0 [a,inf] ] } [ -1 [-inf,a] dup interval-bitxor ] unit-test ${ 0 [a,inf] } [ -1 [-inf,a] dup interval-bitxor ] unit-test
{ $[ 0 [a,inf] ] } [ 4 [a,inf] 3 [a,inf] interval-bitxor ] unit-test ${ 0 [a,inf] } [ 4 [a,inf] 3 [a,inf] interval-bitxor ] unit-test
{ full-interval } [ 4 [a,inf] -3 [a,inf] interval-bitxor ] unit-test { full-interval } [ 4 [a,inf] -3 [a,inf] interval-bitxor ] unit-test