сделал 1.16. пришлось подумать, но осилил. Мой код полностью совпал с тем, что я потом нагуглил для проверки (за исключением названия функций):

(define (p-i b n)
(p-iter 1 b n))

(define (p-iter a b n)
(if (= n 0)
a
(if (even? n)
(p-iter a (* b b) (/ n 2))
(p-iter (* a b) b (- n 1)))))

(define (even? a)
(= 0 (remainder a 2)))

говно: mit-scheme не умеет readline искаропки

#ofeftt

add comment recommend bookmark subscribe