Data commit

Task/Fibonacci-sequence/Emacs-Lisp/fibonacci-sequence-1.l

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

Task/Fibonacci-sequence/Emacs-Lisp/fibonacci-sequence-2.l

@@ -0,0 +1,15 @@
+(defun fibonacci (n)
+  (let (vec i j k)
+    (if (< n 2)
+        n
+      (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))))

Task/Fibonacci-sequence/Emacs-Lisp/fibonacci-sequence-3.l

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