]> gitweb.factorcode.org Git - factor.git/blob - extra/rosetta-code/y-combinator/y-combinator-tests.factor
projects / factor.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
factor: rename [ ] [ ] unit-test -> { } [ ] unit-test using a refactoring tool!
[factor.git] / 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
Factor programming language