Data update

Task/Fibonacci-sequence/PostScript/fibonacci-sequence-1.ps

@@ -8,13 +8,16 @@
 100 100 moveto
 
 %define the function recursively:
-/fib { dup
-       3 lt
-         { pop 1 }
-         { dup 1 sub fib exch 2 sub fib add }
-       ifelse
-    } def
+/fib {
+  dup 2 lt
+  { }
+  {
+    dup 1 sub fib
+    exch 2 sub fib
+    add
+  } ifelse
+} def
 
-    (Fib\() show n (....) cvs show (\)=) show n fib (.....) cvs show
+(Fib\() show n (....) cvs show (\) = ) show n fib (.....) cvs show
 
 showpage

Task/Fibonacci-sequence/PostScript/fibonacci-sequence-2.ps

@@ -0,0 +1,34 @@
+%!PS
+
+/Courier 16 selectfont
+
+/fibonacci {
+  dup 2 lt
+  { }
+  {
+    0 exch
+    1 exch
+    2 exch 1 exch {
+      pop
+      exch
+      1 index
+      add
+    } for
+    exch
+    pop
+  } ifelse
+} def
+
+/str 4 string def
+
+/n 10 def
+
+72 720 moveto
+
+0 1 n {
+  fibonacci str cvs
+  str show
+  pop
+} for
+
+showpage