diff --git a/opt-test.data b/opt-test.data new file mode 100644 index 00000000..01e79c32 --- /dev/null +++ b/opt-test.data @@ -0,0 +1,3 @@ +1 +2 +3 diff --git a/opt-test.scm b/opt-test.scm new file mode 100644 index 00000000..26b51b80 --- /dev/null +++ b/opt-test.scm @@ -0,0 +1,18 @@ +;; Testing optimizations +;; +;; Timings: T430 +;; Baseline - 2.511 +;; +(import (scheme base) + (scheme write) + (scheme read)) +(let ((x (read)) + (y (read)) + (z (read)) + (iterations 10000000) + (sum 0)) + (do ((i iterations (- i 1))) + ((zero? i)) + (set! sum (+ sum sum (* x y z))) + (set! sum (- sum sum (* x y z)))) + (write sum))