RosettaCodeData/Task/Fibonacci-sequence/Metafont/fibonacci-sequence.metafont

11 lines
130 B
Plaintext

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