added ackermann test (#12), needs massive optimizations, but technica…

…lly, it works
Electrux · Dec 2, 2019 · 7bc9e7e · 7bc9e7e
1 parent ce3d1f6
commit 7bc9e7e
Showing 1 changed file with 22 additions and 0 deletions.
diff --git a/tests/ackermann.et b/tests/ackermann.et
@@ -0,0 +1,22 @@
+#!/usr/bin/env et
+
+import std.vec;
+
+# TODO: optimize allocations
+fn ack( m, n ) {
+	if m == 0 { return n + 1; }
+	if n == 0 { return ack( m - 1, 1 ); }
+	return ack( m - 1, ack( m, n - 1 ) );
+}
+
+M = 4;
+N = 10;
+if args.len() > 1 {
+	M = 2;
+	N = 5;
+}
+for m = 0; m < M; m += 1 {
+	for n = 0; n < N; n += 1 {
+		println( 'A(', m, ', ', n, ') = ', ack( m, n ) );
+	}
+}