Exercise 1.18 Iterative process for multiplying two integers
Vasiliy

Code Review

Compare your solutions
    #| BEGIN (Введите свое решение) |#
(define (mul-iter a b)
  (define (iter A B acc)
    (cond ((= B 0) acc)
          ((even? B) (iter (+ A A) (/ B 2) acc)) ; very interesting that acc isn't modified in this iteration
          (else (iter A (- B 1) (+ acc A)))))
  (iter a b 0))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (mul-iter a b)
  (define (iter A B acc)
    (cond
      [(= B 0) acc]
      [(even? B)
       (iter (+ A A) (/ B 2) acc)] ; very interesting that acc isn't modified in this iteration
      [else (iter A (- B 1) (+ acc A))]))
  (iter a b 0))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (mul-iter a b)
  (define (iter A B acc)
    (cond ((= B 0) acc)
          ((even? B) (iter (+ A A) (/ B 2) acc)) ; very interesting that acc isn't modified in this iteration
          (else (iter A (- B 1) (+ acc A)))))
  (iter a b 0))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (mul-iter a b)
  (define (iter A B acc)
    (cond
      [(= B 0) acc]
      [(even? B)
       (iter (+ A A) (/ B 2) acc)] ; very interesting that acc isn't modified in this iteration
      [else (iter A (- B 1) (+ acc A))]))
  (iter a b 0))
#| END |#