RosettaCodeData/Task/Fibonacci-sequence/SNOBOL4/fibonacci-sequence-2.sno
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

4 lines
140 B
Text

define('trfib(n,a,b)') :(trfib_end)
trfib trfib = eq(n,0) a :s(return)
trfib = trfib(n - 1, a + b, a) :(return)
trfib_end