2007-04-23から1日間の記事一覧

問題1.28

僕の解答 とりあえず、途中まで考えたとこでギブ… (define (square n) (* n n)) (define (expmod base exp m) (cond ((= exp 0) 1) ((even? exp) (let* ((x (expmod base (/ exp 2) m)) (y (square x))) (if (and (not (= y 1)) (not (= y (- m 1))) (= (rem…