factor/extra/rosetta-code/y-combinator/y-combinator-tests.factor

8 lines
199 B
Factor

USING: kernel tools.test ;
IN: rosetta-code.y-combinator
[ 120 ] [ 5 [ almost-fac ] Y call ] unit-test
[ 8 ] [ 6 [ almost-fib ] Y call ] unit-test
[ 61 ] [ 3 3 [ almost-ack ] Y call ] unit-test