diff options
| author | ubq323 <ubq323@ubq323.website> | 2024-08-06 22:20:18 +0100 |
|---|---|---|
| committer | ubq323 <ubq323@ubq323.website> | 2024-08-06 22:20:18 +0100 |
| commit | e4a7b6c397c430e3aa5f6fec63eeb91236069c27 (patch) | |
| tree | ccd2837dc1d13f23a3cbf23330c6be0b943a63a5 /tests/sumrec_local2.bth | |
| parent | a701883f4ea83022261304d225eb8225af52b302 (diff) | |
tests
Diffstat (limited to 'tests/sumrec_local2.bth')
| -rw-r--r-- | tests/sumrec_local2.bth | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/tests/sumrec_local2.bth b/tests/sumrec_local2.bth new file mode 100644 index 0000000..c9b9703 --- /dev/null +++ b/tests/sumrec_local2.bth @@ -0,0 +1,8 @@ +(defn (f x) + (defn (f' x acc) + (if (< x 1) + acc + (f' (- x 1) (+ acc x)))) + (f' x 0)) +(say (f 10)) +(say (f 1000)) |