Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Fibonacci-sequence/PostScript/fibonacci-sequence.ps
+++ b/Task/Fibonacci-sequence/PostScript/fibonacci-sequence.ps
@ -0,0 +1,20 @@
+%!PS
+
+% We want the 'n'th fibonacci number
+/n 13 def
+
+% Prepare output canvas:
+/Helvetica findfont 20 scalefont setfont
+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\() show n (....) cvs show (\)=) show n fib (.....) cvs show
+
+showpage