RosettaCodeData/Task/Y-combinator/J/y-combinator-2.j

   'if. * y do. y * u <: y else. 1 end.' Y 10 NB. Factorial
3628800
          '(u@:<:@:<: + u@:<:)^:(1 < ])' Y 10 NB. Fibonacci
55
September Morn Update 2019-09-12 10:33:56 -07:00			`'if. * y do. y * u <: y else. 1 end.' Y 10 NB. Factorial`
all tasks 2013-04-11 01:07:29 -07:00			`3628800`
September Morn Update 2019-09-12 10:33:56 -07:00			`'(u@:<:@:<: + u@:<:)^:(1 < ])' Y 10 NB. Fibonacci`
all tasks 2013-04-11 01:07:29 -07:00			`55`