make-vector-with-proc   scheme


Defined in:  https://github.com/digego/extempore/tree/v0.8.9/runtime/scheme.xtm

Implementation

(define make-vector-with-proc
   (lambda (num func)
      (let ((new-vector (make-vector num)))
   (do ((i 0 (+ i 1)))
       ((= i num) new-vector)
      (vector-set! new-vector i (func i))))))


Back to Index