summaryrefslogtreecommitdiff
path: root/acker.icl
diff options
context:
space:
mode:
Diffstat (limited to 'acker.icl')
-rw-r--r--acker.icl12
1 files changed, 11 insertions, 1 deletions
diff --git a/acker.icl b/acker.icl
index 675c47c..dc2b044 100644
--- a/acker.icl
+++ b/acker.icl
@@ -2,7 +2,17 @@ module acker
// The Ackermann function.
-import StdInt
+//import StdInt
+
+(+) infixl 6 :: !Int !Int -> Int
+(+) a b = code inline {
+ addI
+}
+
+(-) infixl 6 :: !Int !Int -> Int
+(-) a b = code inline {
+ subI
+}
Acker::Int Int -> Int
Acker 0 j = j + 1