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

5 lines
140 B
Text
Raw Permalink Normal View History

2023-07-01 11:58:00 -04:00
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