Revision as of 10:55, 9 December 2011 (view source) rosettacode>Spekkio No edit summary ← Older edit		Revision as of 12:31, 9 December 2011 (view source) rosettacode>Spekkio No edit summary Newer edit →
Line 140: (defun fibcalc (n) (let ((sqrtFive (sqrtn 5))) (/ (- (powint (* 1/2 (+ 1 ~~(sqrtn 5)~~sqrtFive)) n) (powint (* 1/2 (- 1 ~~(sqrtn 5)~~sqrtFive)) n)) ~~(sqrtn 5~~sqrtFive))) (defun fibrec (n)

User:Spekkio: Difference between revisions

User:Spekkio (view source)