Mon May 13 19:43:10 JST 2013

Chicken scheme は -O5 オプションつけても,共通部分式除去がなされません.

(let loop ((i 0))
  (* 3.2 (cos i))
  (* 2.7 (cos i))
  (* 9.1 (cos i))
  (* 8.1 (cos i))
  (* 7.1 (cos i))
  (if (< i 10000000) (loop (+ i 1))))