diff options
Diffstat (limited to 'tests/sumrec_local.bth')
| -rw-r--r-- | tests/sumrec_local.bth | 8 |
1 files changed, 8 insertions, 0 deletions
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)) |