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

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