PasteRack.org
Paste # 78133
2017-01-01 03:20:02

Fork as a new paste.

Paste viewed 439 times.


Embed:

  1. #lang racket
  2.  
  3. (define (windowed-map n proc ls . ls+)
  4.   (cond [(< (length ls) n) '()]
  5.         [(null? ls) '()]
  6.         [else
  7.          (define all-list-args (cons ls ls+))
  8.          (cons (apply proc (map (curryr take n) all-list-args))
  9.                (apply windowed-map n proc (map rest all-list-args)))]))

=>