僕の解答
とりあえず、nextを定義して速度を比べてみる。
(define (next n) (if (= n 2) 3 (+ n 2)))
改良前
1009 *** 0.0
1013 *** 0.0
1019 *** 0.0
10007 *** 0.0
10009 *** 0.0
10037 *** 0.0
100003 *** 0.0
100019 *** 0.0
100043 *** 0.0
1000003 *** 9.999275207519531e-4
1000033 *** 9.999275207519531e-4
1000037 *** 9.999275207519531e-4
改良後
…むー。
1009 *** 0.0
1013 *** 0.0
1019 *** 0.0
10007 *** 0.0
10009 *** 0.0
10037 *** 0.0
100003 *** 0.0
100019 *** 0.0
100043 *** 0.0
1000003 *** 0.0
1000033 *** 0.0
1000037 *** 0.0
解答例
所感
うーん…
