Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-10 06:27:32 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Adding temporary test files

Browse source
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
Show stats Download patch file Download diff file Expand all files Collapse all files

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