From 9f4e10da9df486b4c048ec2fedbe28491059b739 Mon Sep 17 00:00:00 2001 From: ubq323 Date: Wed, 3 Jul 2024 11:52:13 +0100 Subject: add defn form --- tests/defn.bth | 2 ++ tests/sumrec_local.bth | 8 ++++++++ tests/sumrec_local.out | 2 ++ 3 files changed, 12 insertions(+) create mode 100644 tests/defn.bth create mode 100644 tests/sumrec_local.bth create mode 100644 tests/sumrec_local.out (limited to 'tests') diff --git a/tests/defn.bth b/tests/defn.bth new file mode 100644 index 0000000..81fcada --- /dev/null +++ b/tests/defn.bth @@ -0,0 +1,2 @@ +(defn (f x) (* x x)) +(say (f 12)) diff --git a/tests/sumrec_local.bth b/tests/sumrec_local.bth new file mode 100644 index 0000000..b40418b --- /dev/null +++ b/tests/sumrec_local.bth @@ -0,0 +1,8 @@ +(defn (f' x acc) + (if (< x 1) + acc + (f' (- x 1) (+ acc x)))) +(set _global_f' f') +(defn (f x) (_global_f' x 0)) +(say (f 10)) +(say (f 1000)) diff --git a/tests/sumrec_local.out b/tests/sumrec_local.out new file mode 100644 index 0000000..2a5dbfe --- /dev/null +++ b/tests/sumrec_local.out @@ -0,0 +1,2 @@ +55 +500500 -- cgit v1.2.3