Just another update

2015-02-20 00:35:01 -05:00 · 2015-02-20 00:35:01 -05:00 · 00a190b0a6
commit 00a190b0a6
parent a25938f123
6591 changed files with 94363 additions and 23227 deletions
--- a/Task/Fibonacci-sequence/Babel/fibonacci-sequence.pb
+++ b/Task/Fibonacci-sequence/Babel/fibonacci-sequence.pb
@ -1,17 +1,20 @@
-main:
-    { argv 0 th $d
-    fib
-    %d cr << }
+((main
+    {{iter fib !}
+    20 times

-fib!:
-    { dup zero?
-        { dup one?
-            { cp <- 2 - fib -> 1 - fib + }
-            { zap 1 }
-        if }
-        { zap 1 }
-    if }
+    collect !
+    rev

-zero?!: { 0 = }
+    {%d " " . <<}
+    each})

-one?!: { 1 = }
+(collect { -1 take })
+
+(fib
+  {{dup 2 <}
+        {fnord}
+        {dup
+            <- 2 - fib ! ->
+            1 - fib !
+            + }
+    ifte}))