RosettaCodeData/Task/Fibonacci-sequence/TAV/fibonacci-sequence-1.tav

9 lines
206 B
Plaintext

\ Fibonacci numbers (iterative, with tuples)
main (parms):+
lim =: string parms[1] as integer else 100
fp =: 0, 1
?# i =: from 1 upto lim
print i, fp.1
fp =: fp.2, fp.1 + fp.2
print i, fp.2