Welcome to the CHICKEN Scheme pasting service

f64vector-map for Saeren added by alaricsp on Mon Nov 28 09:16:34 2011

(define (f64vector-map proc vector)
   (let ((len (f64vector-length vector)))
        (let loop ((index 0) (out (make-f64vector len)))
 (if (< index len) (begin (f64vector-set! out index (proc (f64vector-ref vector index)))
(loop (+ index 1) out))
out))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which module provides `string-intersperse'?
Visually impaired? Let me spell it for you (wav file) download WAV