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

6 lines
181 B
Text
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
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