Код Ревью
Сравни свои решения
#| BEGIN (Введите свое решение) |#
(define (solution b n)
(iter b n 1 ))
(define (iter b n a)
(cond ((< n 1) a)
((even? n) (iter b (/ n 2) (* a b b)))
(else (* b (iter b (- n 1) (* a b))))))
(define (even? n)
(= (remainder n 2) 0))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (solution b n)
(iter b n 1 ))
(define (iter b n a)
(cond ((= n 0) a)
((even? n) (iter (* b b) (/ n 2) a))
(else (iter b (- n 1) (* a b)))))
(define (even? n)
(= (remainder n 2) 0))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (solution b n)
(iter b n 1 ))
(define (iter b n a)
(cond ((< n 1) a)
((even? n) (iter b (/ n 2) (* a b b)))
(else (* b (iter b (- n 1) (* a b))))))
(define (even? n)
(= (remainder n 2) 0))
#| END |#
#| BEGIN (Введите свое решение) |#
(define (solution b n)
(iter b n 1 ))
(define (iter b n a)
(cond ((= n 0) a)
((even? n) (iter (* b b) (/ n 2) a))
(else (iter b (- n 1) (* a b)))))
(define (even? n)
(= (remainder n 2) 0))
#| END |#