27 lines
229 B
Text
27 lines
229 B
Text
Y f:
|
|
labda y:
|
|
labda:
|
|
call y @y
|
|
f
|
|
labda x:
|
|
x @x
|
|
call
|
|
|
|
labda f:
|
|
labda n:
|
|
if < 1 n:
|
|
* n f -- n
|
|
else:
|
|
1
|
|
set :fac Y
|
|
|
|
labda f:
|
|
labda n:
|
|
if < 1 n:
|
|
+ f - n 2 f -- n
|
|
else:
|
|
1
|
|
set :fib Y
|
|
|
|
!. fac 6
|
|
!. fib 6
|