Упражнение 1.17 Умножение с помощью сложения
Vasiliy

Код Ревью

Сравни свои решения
    #| BEGIN (Введите свое решение) |#
(define (fast-mul a b)
  (cond ((= a 0) 0)
        ((even? a) (fast-mul (/ a 2) (+ b b)))
        (else (+ b (fast-mul (- a 1) b)))))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (fast-mul a b)
  (cond
    [(= a 0) 0]
    [(even? a) (fast-mul (/ a 2) (+ b b))]
    [else (+ b (fast-mul (- a 1) b))]))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (fast-mul a b)
  (cond ((= a 0) 0)
        ((even? a) (fast-mul (/ a 2) (+ b b)))
        (else (+ b (fast-mul (- a 1) b)))))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (fast-mul a b)
  (cond
    [(= a 0) 0]
    [(even? a) (fast-mul (/ a 2) (+ b b))]
    [else (+ b (fast-mul (- a 1) b))]))
#| END |#