僕の解答 expmodを２回評価してるから、遅くなった…という話かな？ 解答例 http://oss.timedia.co.jp/show/SICP/ex-1.26 http://www.csus4.net/hiki/SICPReading/?naoya_t+%28naochan%29#l49

僕の解答 こんな感じかな？ (define (square n) (* n n)) (define (expmod base exp m) (cond ((= exp 0) 1) ((even? exp) (remainder (square (expmod base (/ exp 2) m)) m)) (else (remainder (* base (expmod base (- exp 1) m)) m)))) (define (try-exp…

積読が溜まっていく… コンプティーク関係者が多かったような > 蘇る

速いかな…？ require 'RMagick' class ImageController < ApplicationController def rm canvas = Magick::Image.new(240, 300, Magick::HatchFill.new('white','lightcyan2')) gc = Magick::Draw.new # Draw ellipse gc.stroke('red') gc.stroke_width(3) g…

http://www23.atwiki.jp/selflearn/pages/31.html