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

6 lines
181 B
Plaintext

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