User:Spekkio: Difference between revisions
Content added Content deleted
No edit summary |
No edit summary |
||
| Line 200: | Line 200: | ||
(defun fibcalc (n) |
(defun fibcalc (n) |
||
(let ((sqrtFive ( |
(let ((sqrtFive (squareroot 5))) |
||
(/ (- (powint (* 1/2 (+ 1 sqrtFive)) n) (powint (* 1/2 (- 1 sqrtFive)) n)) sqrtFive))) |
(/ (- (powint (* 1/2 (+ 1 sqrtFive)) n) (powint (* 1/2 (- 1 sqrtFive)) n)) sqrtFive))) |
||
| Line 212: | Line 212: | ||
</lang> |
</lang> |
||
test: |
|||
test: |
test: |
||
[14]> (float (asine 9/100)) |
[14]> (float (asine 9/100)) |
||