@@ -11,6 +11,13 @@ this is an implementation of the jk interpreter in C. Requires libgc (a.k.a. bdw
facr:<.;1?.(]*(s.<)),:(:1) / recursive
facr 5
120
+ facr:(]*(s.<))&:(1=) / simpler recursive
+ facr 5
+120
+ facr 1
+1
+ facr 0 / but it will fail on 0
+|recursion-depth error
/ or simply use *.
*.5