langs a-z

2013-04-10 22:43:41 -07:00 · 2013-04-10 22:43:41 -07:00 · d066446780
commit d066446780
parent db842d013d
11389 changed files with 98361 additions and 1020 deletions
--- a/Task/Anonymous-recursion/PostScript/anonymous-recursion.ps
+++ b/Task/Anonymous-recursion/PostScript/anonymous-recursion.ps
@ -0,0 +1,23 @@
+% primitive recursion
+/pfact {
+  {1} {*} primrec}.
+
+%linear recursion
+/lfact {
+   {dup 0 eq}
+   {pop 1}
+   {dup pred}
+   {*}
+   linrec}.
+
+% general recursion
+/gfact {
+    {0 eq}
+    {succ}
+    {dup pred}
+    {i *}
+    genrec}.
+
+% binary recursion
+/fib {
+    {2 lt} {} {pred dup pred} {+} binrec}.