Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Temporary test file

Browse source
This commit is contained in:
Justin Ethier 2017-05-02 18:55:01 -04:00
parent 94fac5c512
commit 2662a15622
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
array1-test.scm Normal file
View file

@ -0,0 +1,11 @@
;;; ARRAY1 -- One of the Kernighan and Van Wyk benchmarks.
(import (scheme base) (scheme read) (scheme write) (scheme time))
(define (create-x n)
(define result (make-vector n))
(do ((i 0 (+ i 1)))
((>= i n) result) ;; TODO: check generated code, can this >= be inlined???
(vector-set! result i i)))
(write (create-x 10))