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/Mutual-recursion/PostScript/mutual-recursion-1.ps
+++ b/Task/Mutual-recursion/PostScript/mutual-recursion-1.ps
@ -0,0 +1,17 @@
+/female{
+/n exch def
+n 0 eq
+{1}
+{
+n n 1 sub female male sub
+}ifelse
+}def
+
+/male{
+/n exch def
+n 0 eq
+{0}
+{
+n n 1 sub male female sub
+}ifelse
+}def