racket/collects/tests/stepper/recur-test

5 lines
61 B
Plaintext

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