Code Review

Compare your solutions

    #| BEGIN (Введите свое решение) |#
(define (product term a next b)
  (if (> a b)
      1
      (* (term a) (product term (next a) next b))))

(define (factorial n)
  (let ([inc (lambda (x) (+ x 1))])
    (product identity 1 inc n)))
#| END |#