Another update from ingydotnet^djgoku

Task/Fibonacci-sequence/NewLISP/fibonacci-sequence-1.newlisp

@@ -1,8 +1,5 @@
 (define (fibonacci n)
-  (let (a 0 b 1 c n i 2)
-    (while (<= i n)
-      (setq c (+ a b)
-        a b
-        b c)
-      (++ i))
-    c))
+    (let (L '(0 1))
+        (dotimes (i n)
+            (setq L (list (L 1) (apply + L))))
+        (L 1)) )

Task/Fibonacci-sequence/NewLISP/fibonacci-sequence-2.newlisp

@@ -1,4 +1,4 @@
 (define (fibonacci n)
 (if (< n 2) 1
-(+ (fibonacci (- n 1)) (fibonacci (- n 2)))))
-(print(fibonacci 10)) ;;89
+    (+ (fibonacci (- n 1))
+       (fibonacci (- n 2)))))

Task/Fibonacci-sequence/NewLISP/fibonacci-sequence-3.newlisp

@@ -0,0 +1,7 @@
+(define (fibonacci n)
+  (letn (f '((0 1) (1 1)) fib f)
+    (dotimes (i n)
+        (set 'fib (multiply fib f)))
+    (fib 0 1)) )
+
+(print(fibonacci 10)) ;;89