start of yamllexer

This commit is contained in:
rumpf_a@web.de 2010-02-21 23:44:53 +01:00
commit 6da95ed9ca
8 changed files with 397 additions and 2 deletions

View file

@ -0,0 +1,9 @@
import StrUtils, Math
proc FibonacciA(n: int): int64 =
var fn = float64(n)
var p: float64 = (1.0 + sqrt(5.0)) / 2.0
var q: float64 = 1.0 / p
return int64((pow(p, fn) + pow(q, fn)) / sqrt(5.0))
echo FibonacciA(4) #OUT 10