mirror of
https://github.com/justinethier/cyclone.git
synced 2025-07-10 14:27:36 +02:00
Adding temporary test files
This commit is contained in:
parent
c9cc96b5c6
commit
66ab8b6416
2 changed files with 21 additions and 0 deletions
3
opt-test.data
Normal file
3
opt-test.data
Normal file
|
@ -0,0 +1,3 @@
|
||||||
|
1
|
||||||
|
2
|
||||||
|
3
|
18
opt-test.scm
Normal file
18
opt-test.scm
Normal 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))
|
Loading…
Add table
Reference in a new issue