Be aware that I haven't run it. :)

Am Di., 1. Sept. 2020 um 19:34 Uhr schrieb Wolfgang Corcoran-Mathe
<xxxxxx@sigwinch.xyz>:
>
> On 2020-09-01 19:27 +0200, Marc Nieper-Wißkirchen wrote:
> > Thanks!
> >
> > What is the status of
> >
> > (define (range-append . ranges)
> >   (let ((lens (map range-length ranges)))
> >     (range (fold + 0 lens)
> >               (lambda (i)
> >                 (let f ((i i) (ranges ranges) (lens lens))
> >                   (if (< i (car lens)) (range-ref (car ranges) i) (f
> > (- i (car lens)) (cdr ranges) (cdr lens)))))))
>
> Nice implementation!  Added in my repository.
>
> --
> Wolfgang Corcoran-Mathe  <xxxxxx@sigwinch.xyz>
>
> "The intellectual advancement of man depends on how often he can
> exchange an old superstition for a new truth." --Robert G. Ingersoll