Adding temporary test files

This commit is contained in:
Justin Ethier 2017-08-26 17:56:33 -04:00
parent c9cc96b5c6
commit 66ab8b6416
2 changed files with 21 additions and 0 deletions

3
opt-test.data Normal file
View file

@ -0,0 +1,3 @@
1
2
3

18
opt-test.scm Normal file
View file

@ -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))