This commit is contained in:
Andreas Rumpf 2010-03-08 23:09:46 +01:00
commit 684bb09773
3 changed files with 8 additions and 4 deletions

View file

@ -6,4 +6,5 @@ proc FibonacciA(n: int): int64 =
var q: float64 = 1.0 / p
return int64((pow(p, fn) + pow(q, fn)) / sqrt(5.0))
echo FibonacciA(4) #OUT 10
echo FibonacciA(4) #OUT 3