Код Ревью
Сравни свои решения
#| BEGIN (Введите свое решение) |#
(define (solution-iter c dd ds q)
(if (= c ds)
q
(solution-iter c (- dd 1) (+ 1 ds) (* q (/ dd ds)))))
(define (solution r c)
(solution-iter c (- r 1) 1 1))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (solution r c)
(if (or (= 1 c) (= r c))
1
(+ (solution (- r 1) c)
(solution (- r 1) (- c 1)))))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (solution-iter c dd ds q)
(if (= c ds)
q
(solution-iter c (- dd 1) (+ 1 ds) (* q (/ dd ds)))))
(define (solution r c)
(solution-iter c (- r 1) 1 1))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (solution r c)
(if (or (= 1 c) (= r c))
1
(+ (solution (- r 1) c)
(solution (- r 1) (- c 1)))))
#| END |#