37 lines
842 B
Factor
37 lines
842 B
Factor
IN: temporary
|
|
USE: lists
|
|
USE: test
|
|
USE: sequences
|
|
|
|
[ f ] [ f car ] unit-test
|
|
[ f ] [ f cdr ] unit-test
|
|
|
|
[ 5 car ] unit-test-fails
|
|
[ "Hello world" cdr ] unit-test-fails
|
|
|
|
[ f ] [ f cons? ] unit-test
|
|
[ f ] [ t cons? ] unit-test
|
|
[ t ] [ [[ t f ]] cons? ] unit-test
|
|
|
|
[ [[ 1 2 ]] ] [ 1 2 cons ] unit-test
|
|
[ [ 1 ] ] [ 1 f cons ] unit-test
|
|
|
|
[ [[ 1 2 ]] ] [ 2 1 swons ] unit-test
|
|
[ [ 1 ] ] [ f 1 swons ] unit-test
|
|
|
|
[ [ [ [ ] ] ] ] [ [ ] unit unit ] unit-test
|
|
|
|
[ 1 ] [ [[ 1 2 ]] car ] unit-test
|
|
[ 2 ] [ [[ 1 2 ]] cdr ] unit-test
|
|
|
|
[ 1 2 ] [ [[ 1 2 ]] uncons ] unit-test
|
|
[ 1 [ 2 ] ] [ [ 1 2 ] uncons ] unit-test
|
|
|
|
[ 1 2 ] [ [[ 2 1 ]] unswons ] unit-test
|
|
[ [ 2 ] 1 ] [ [ 1 2 ] unswons ] unit-test
|
|
|
|
[ 1 3 ] [ [[ 1 2 ]] [[ 3 4 ]] 2car ] unit-test
|
|
[ 2 4 ] [ [[ 1 2 ]] [[ 3 4 ]] 2cdr ] unit-test
|
|
|
|
[ f ] [ f peek ] unit-test
|