scheme写的快速幂

二分法递归求解
(define f
(lambda (n p x r)
(if (zero? p) r
(if (even? p) (f n (/ p 2) (* x x) r)
(f n (/ (- p 1) 2) (* x x) (* r x))))))

(define h
(lambda (n p)
(f n p n 1)))

(h 2 1000)