Fibonacci sequence: Difference between revisions
Content deleted Content added
Fibonacci sequence en Yabasic |
m Emacs Lisp: Improve formatting |
||
Line 4,045:
=={{header|Emacs Lisp}}==
===version 1===
(if (< c n) (fib n b (+ a b) (+ 1 c) )▼
(if (= c n) b a) ))▼
<lang Lisp>(defun
(cond
===version 2===▼
(t a)))
(defun fibonacci (n)
(
(fib n
(setq vec (make-vector (+ n 1) 0) i 0 j 1 k 2)▼
▲===version 2===
(setf (aref vec 1) 1)▼
(while (<= k n)▼
<lang Lisp>(defun fibonacci (n)
(setf (aref vec k) (+ (elt vec i) (elt vec j) ))▼
n
i 0
j 1
k 2)
(setq i (1+ i)
j (1+ j)
k (1+ k)))
(elt vec n))))</lang>
<b>Eval:</b>
<lang Lisp>(insert
(mapconcat
{{out}}
0 1 1 2 3 5 8 13 21 34 55 89 144 233 377 610
=={{header|Erlang}}==
|