Data update

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

@@ -1,10 +0,0 @@
-(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

@@ -1,15 +0,0 @@
-(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

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