18 lines
155 B
Text
18 lines
155 B
Text
Y f:
|
|
labda y:
|
|
labda:
|
|
f y @y
|
|
call dup
|
|
|
|
labda fib n:
|
|
if <= n 1:
|
|
1
|
|
else:
|
|
fib - n 1
|
|
fib - n 2
|
|
+
|
|
Y
|
|
set :fibo
|
|
|
|
for j range 0 10:
|
|
!print fibo j
|