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 |#