RosettaCodeData/Task/Fibonacci-sequence/SNOBOL4/fibonacci-sequence-1.sno

9 lines
176 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
define("fib(a)") :(fib_end)
fib fib = lt(a,2) a :s(return)
fib = fib(a - 1) + fib(a - 2) :(return)
fib_end
while a = trim(input) :f(end)
output = a " " fib(a) :(while)
end