racket/collects/tests/stepper/recur-test
2005-05-27 18:56:37 +00:00

6 lines
62 B
Plaintext

(define (my-proc x)
(+ (my-proc (- x 1)) x))
(my-proc 34)