sumrec_local2.bth « tests - badthing - the best scheme that i have, and that's bad enough for me

summary refs log tree commit diff

path: root/tests/sumrec_local2.bth

blob: c9b97032ba45471127df7ae41fe0de8a128f1931 (plain)

(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))