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

5 lines
181 B
Text

define('afib(n)s5') :(afib_end)
afib s5 = sqrt(5)
afib = (((1 + s5) / 2) ^ n - ((1 - s5) / 2) ^ n) / s5
afib = convert(afib,'integer') :(return)
afib_end