Exercise 1.12 Pascal's triangle
Культяпов Константин Вячеславович

Code Review

Compare your solutions
    #| 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 |#