mirror of
https://github.com/justinethier/cyclone.git
synced 2025-05-18 21:29:18 +02:00
12 lines
406 B
Scheme
12 lines
406 B
Scheme
;;; A temporary test file, can inlining be done more efficiently here?
|
|
;; if this inline can be done, try with full-up array1
|
|
|
|
(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))
|