aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Another update from ingydotnet^djgoku

Browse source
This commit is contained in:
Ingy döt Net 2015-11-18 06:14:39 +00:00
parent 91df62d461
commit 948b86eafa
7604 changed files with 108452 additions and 22726 deletions
Download patch file Download diff file Expand all files Collapse all files

5
Task/Fibonacci-sequence/Emacs-Lisp/fibonacci-sequence-1.l Normal file
View file

@ -0,0 +1,5 @@
(defun fib (n a b c)
(if (< c n) (fib n b (+ a b) (+ 1 c) )
(if (= c n) b a) ))
(defun fibonacci (n) (if (< n 2) n (fib n 0 1 1) ))

10
Task/Fibonacci-sequence/Emacs-Lisp/fibonacci-sequence-2.l Normal file
View file

@ -0,0 +1,10 @@
(defun fibonacci (n)
(let ( (vec) (i) (j) (k) )
(if (< n 2) n
(progn
(setq vec (make-vector (+ n 1) 0) i 0 j 1 k 2)
(setf (aref vec 1) 1)
(while (<= k n)
(setf (aref vec k) (+ (elt vec i) (elt vec j) ))
(setq i (+ 1 i) j (+ 1 j) k (+ 1 k) ))
(elt vec n) ))))

3
Task/Fibonacci-sequence/Emacs-Lisp/fibonacci-sequence-3.l Normal file
View file

@ -0,0 +1,3 @@
(insert
(mapconcat '(lambda (n) (format "%d" (fibonacci n) ))
(number-sequence 0 15) " ") )