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