22 lines
512 B
Factor
22 lines
512 B
Factor
IN: scratchpad
|
|
USE: combinators
|
|
USE: kernel
|
|
USE: math
|
|
USE: stack
|
|
USE: test
|
|
|
|
[ 5 ] [ [ 2 2 + ] 1 slip + ] unit-test
|
|
[ 6 ] [ [ 2 2 + ] 1 1 2slip + + ] unit-test
|
|
[ 6 ] [ [ 2 1 + ] 1 1 1 3slip + + + ] unit-test
|
|
|
|
[ 6 ] [ 2 [ sq ] keep + ] unit-test
|
|
|
|
[ ] [ 3 [ ] cond ] unit-test
|
|
[ t ] [ 4 [ [ 1 = ] [ ] [ 4 = ] [ drop t ] [ 2 = ] [ ] ] cond ] unit-test
|
|
|
|
[ 0 ] [ f [ sq ] [ 0 ] ifte* ] unit-test
|
|
[ 4 ] [ 2 [ sq ] [ 0 ] ifte* ] unit-test
|
|
|
|
[ 0 ] [ f [ 0 ] unless* ] unit-test
|
|
[ t ] [ t [ "Hello" ] unless* ] unit-test
|