no title pasted by Anonymous Coward on Thu Oct 19 20:33:22 2017

(define (scanl f init ls)
  (if (equal? ls '())
      (list init)
      (let ((next (scanl f (f init (first ls)) (rest ls)) ))
        (cons init next)
        )))
[ permalink | raw ]

More direct translation of the Haskell example added by sjamaan on Thu Oct 19 20:38:07 2017

(define (scanl f init ls)
  (cons init
        (if (null? ls)
            '()
            (scanl f (f init (car ls)) (cdr ls)))))
[ permalink | raw ]