User:Spekkio: Difference between revisions

Content added Content deleted

Inline

@@ Line 140: / Line 140: @@
 (defun fibcalc (n)
+  (let ((sqrtFive (sqrtn 5)))
-  (/ (- (powint (* 1/2 (+ 1 (sqrtn 5))) n) (powint (* 1/2 (- 1 (sqrtn 5))) n)) (sqrtn 5)))
+    (/ (- (powint (* 1/2 (+ 1 sqrtFive)) n) (powint (* 1/2 (- 1 sqrtFive)) n)) sqrtFive)))
 (defun fibrec (n)