RosettaCodeData/Task/Fibonacci-sequence/Metafont/fibonacci-sequence.metafont
2023-07-01 13:44:08 -04:00

10 lines
130 B
Text

vardef fibo(expr n) =
if n=0: 0
elseif n=1: 1
else:
fibo(n-1) + fibo(n-2)
fi
enddef;
for i=0 upto 10: show fibo(i); endfor
end