Data commit

Task/Anonymous-recursion/Axiom/anonymous-recursion-1.axiom

@@ -0,0 +1,7 @@
+#include "axiom"
+Z ==> Integer;
+fib(x:Z):Z == {
+	x <= 0 => error "argument outside of range";
+	f(n:Z,v1:Z,v2:Z):Z == if n<2 then v2 else f(n-1,v2,v1+v2);
+	f(x,1,1);
+}

Task/Anonymous-recursion/Axiom/anonymous-recursion-2.axiom

@@ -0,0 +1,10 @@
+)abbrev package TESTP TestPackage
+Z ==> Integer
+TestPackage : with
+    fib : Z -> Z
+  == add
+    fib x ==
+      x <= 0 => error "argument outside of range"
+      f : Reference((Z,Z,Z) -> Z) := ref((n, v1, v2) +-> 0)
+      f() := (n, v1, v2) +-> if n<2 then v2 else f()(n-1,v2,v1+v2)
+      f()(x,1,1)