4 lines
131 B
Text
4 lines
131 B
Text
'if. * y do. y * u <: y else. 1 end.' Y 10 NB. Factorial
|
|
3628800
|
|
'(u@:<:@:<: + u@:<:)^:(1 < ])' Y 10 NB. Fibonacci
|
|
55
|