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