(define vector-generator
(lambda (n gen-proc)
(let ([v (make-vector n)])
(define help
(lambda (i)
(if (= i n)
v
(begin
(vector-set! v i (gen-proc i))
(help (+ i 1))))))
(help 0))))
Quote:
(define vector-generator
(lambda (n gen-proc)
(let ([v (make-vector n)])
(define help
(lambda (i)
(if (= i n)
v
(begin
(vector-set! v i (gen-proc i))
(help (+ i 1))))))
(help 0))))
(lambda (n gen-proc)
(let ([v (make-vector n)])
(define help
(lambda (i)
(if (= i n)
v
(begin
(vector-set! v i (gen-proc i))
(help (+ i 1))))))
(help 0))))
EDIT: YEP, I THOUGHT SO.