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

7 lines
198 B
Factor
Raw Normal View History

USING: kernel tools.test ;
2012-08-04 12:44:44 -04:00
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