RosettaCodeData/Task/Fibonacci-sequence/Corescript/fibonacci-sequence.core

16 lines
225 B
Plaintext

print Fibonacci Sequence:
var previous = 1
var number = 0
var temp = (blank)
:fib
if number > 50000000000:kill
print (number)
set temp = (add number previous)
set previous = (number)
set number = (temp)
goto fib
:kill
stop