moremagic https://blog.hatena.ne.jp/moremagic/ moremagic’s diary https://moremagic.hateblo.jp/ SICP (define (cube x) (* x x x )) (define (p x) (- (* 3 x) (* 4 (cube x)))) (define (sine angle) (if (not (> (abs angle) 0.1)) angle (p (sine (/ angle 3.0))))) (require (lib "trace.ss")) (trace p) (sine 12.15) 実行結果 Welcome to DrScheme, version 4.2.5 [3m]. Language: CustomSwindle; memory limit: 512 MB. >(… 190 <iframe src="https://hatenablog-parts.com/embed?url=https%3A%2F%2Fmoremagic.hateblo.jp%2Fentry%2F20130528%2F1369747995" title="問題1.15 をトレースしてみる - moremagic’s diary" class="embed-card embed-blogcard" scrolling="no" frameborder="0" style="display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;"></iframe> Hatena Blog https://hatena.blog 2013-05-28 22:33:15 rich https://moremagic.hateblo.jp/entry/20130528/1369747995 1.0 100%