7 lines
150 B
Factor
7 lines
150 B
Factor
|
USING: kernel tools.test ;
|
||
|
|
IN: rosettacode.y-combinator
|
||
|
|
|
||
|
|
[ 120 ] [ 5 [ almost-fac ] Y call ] unit-test
|
||
|
|
[ 8 ] [ 6 [ almost-fib ] Y call ] unit-test
|
||
|
|
|