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/Ackermann-function/Coq/ackermann-function-1.coq
+++ b/Task/Ackermann-function/Coq/ackermann-function-1.coq
@ -0,0 +1,18 @@
+Fixpoint ack (m : nat) : nat -> nat :=
+  fix ack_m (n : nat) : nat :=
+    match m with
+      | 0 => S n
+      | S pm =>
+        match n with
+          | 0 => ack pm 1
+          | S pn => ack pm (ack_m pn)
+        end
+    end.
+
+
+(*
+  Example:
+    A(3, 2) = 29
+*)
+
+Eval compute in ack 3 2.