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

5 lines
140 B
Plaintext

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