Slices of unifom vector(ユニフォームベクタのスライス)

uvslices.scm

(use gauche.uvector)

(define (uvector-slices u k)
  (let [(uvclass (class-of u))
        (l       (uvector-length u))]
    (receive (n r) (quotient&remainder l k)
      (let1 s (* n k)
        (let loop [(i s)
                   (d (if (= r 0) 
                        '() 
                        (list (uvector-alias uvclass u s (+ s r) ) ) ) ) ]
          (cond
            ( (= i 0) d)
            ( (> i 0) 
             (let1 s (- i k)
               (loop s (cons (uvector-alias uvclass u s (+ s k)) d)) ) )
            ( (< i 0) 
             (error "i < 0") ) ) ) ) ) ) )