diff --git a/src/tests/rec_factorial.exp b/src/tests/rec_factorial.exp new file mode 100644 index 0000000..89810b1 --- /dev/null +++ b/src/tests/rec_factorial.exp @@ -0,0 +1 @@ +5040 diff --git a/src/tests/rec_factorial.lambda b/src/tests/rec_factorial.lambda new file mode 100644 index 0000000..b47bfc2 --- /dev/null +++ b/src/tests/rec_factorial.lambda @@ -0,0 +1,9 @@ +let rec fact = fun n -> + ifzero n then + 1 + else + let sub_val = fact (n - 1) in + n * sub_val + in + +print (fact 7)