June 2018 Update

2018-06-22 20:57:24 +00:00 · 2018-06-22 20:57:24 +00:00 · 22f33d4004
commit 22f33d4004
parent ba8067c3b7
5278 changed files with 84726 additions and 14379 deletions
--- a/Task/Fibonacci-sequence/PicoLisp/fibonacci-sequence-4.l
+++ b/Task/Fibonacci-sequence/PicoLisp/fibonacci-sequence-4.l
@ -1,7 +1,4 @@
-(de fibo (N)
-   (let (I 1 J 0)
+(de fib (N)
+   (let (A 0  B 1)
      (do N
-         (let (Tmp J)
-            (inc 'J I)
-            (setq I Tmp) ) )
-      J) )
+         (prog1 B (setq B (+ A B) A @)) ) ) )