Welcome to the CHICKEN Scheme pasting service

foldr/array, more idiomatic added by sjamaan on Fri May 8 19:57:31 2015

(define (foldr/array proc init vec)
  (if (not (vector? vec))
      (error "???")
      (let lp ((i 0) (acc init))
        (if (= i (vector-length vec))
            acc
            (lp (+ i 1) (proc acc (vector-ref vec i)))))))
[ permalink | raw ]

Your annotation:

Enter a new annotation:

Your nick:
The title of your paste:
Your paste (mandatory) :
Which egg implements the CHICKEN wiki?
Visually impaired? Let me spell it for you (wav file) download WAV