こんな感じ。 #!/usr/local/bin/gosh ;; -*- coding: utf-8 -*- (use ggc.debug.trace) ;;runtime;;;;;;;;;;;;;;;;;;;;;; (define (runtime) (use srfi-11) (let-values (((a b) (sys-gettimeofday))) (+ 1000000 b))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;1-…

たぶんこんな感じ。 1 #!/usr/local/bin/gosh 2 ;; -*- coding: utf-8 -*- 3 4 (use ggc.debug.trace) 5 6 (define (square n) 7 (* n n)) 8 9 10 (define (smallest-divisor n) 11 (find-divisor n 2)) 12 13 (define (find-divisor n test-divisor) 14 (co…

教科書通りでだいたい、2倍程度はやくなった。 計算時間が、60%になったってとこか。 10%はなんかのオーバーヘッドとか、1の加算の方が、2の加算より早いとか云々。 変えたのは、21行目から25行目 1 #!/usr/local/bin/gosh 2 ;; -*- coding: utf-8 -*- 3 4 (…