Exercise 1.16 Fast exponentiation
s1nhronn

Code Review

Compare your solutions
    #| BEGIN (Введите свое решение) |#
(define (even? n)
  (= (remainder n 2) 0))

(define (square x) (* x x))

(define (solution b n)
  (define (iter a base power) 
    (cond ((= power 0) a)
          ((even? power) (iter a (square base) (/ power 2)))
          (else (iter (* a base) base (- power 1)))))
  (iter 1 b n))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (even? n)
  (= (remainder n 2) 0))

(define (square x) (* x x))

(define (solution b n)
  (define (iter a base power) 
    (cond ((< power 1) a)
          ((even? power) (iter a (square base) (/ power 2)))
          (else (iter (* a base) base (- power 1)))))
  (iter 1 b n))

#| END |#

    #| BEGIN (Введите свое решение) |#
(define (even? n)
  (= (remainder n 2) 0))

(define (square x) (* x x))

(define (solution b n)
  (define (iter a base power) 
    (cond ((= power 0) a)
          ((even? power) (iter a (square base) (/ power 2)))
          (else (iter (* a base) base (- power 1)))))
  (iter 1 b n))
#| END |#

    #| BEGIN (Введите свое решение) |#
(define (even? n)
  (= (remainder n 2) 0))

(define (square x) (* x x))

(define (solution b n)
  (define (iter a base power) 
    (cond ((< power 1) a)
          ((even? power) (iter a (square base) (/ power 2)))
          (else (iter (* a base) base (- power 1)))))
  (iter 1 b n))

#| END |#