June 2018 Update

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 @)) ) ) )

Task/Fibonacci-sequence/PicoLisp/fibonacci-sequence-5.l

@@ -0,0 +1,11 @@
+(co 'fibo
+   (let (A 0  B 1)
+      (yield 'ready)
+      (while
+         (yield
+            (swap 'B (+ (swap 'A B) B)) ) ) ) )
+
+(do 15
+   (printsp (yield 'next 'fibo)) )
+(prinl)
+(yield NIL 'fibo)