RosettaCodeData/Task/Fibonacci-sequence/Craft-Basic/fibonacci-sequence.basic

15 lines
121 B
Plaintext

let a = 1
let b = 1
print "Fibonacci Sequence"
for i = 0 to 20
let s = a + b
let a = b
let b = s
print s
next i