src/scheme-library-3-functional.scm

   1 ;; FUNCTIONAL PROGRAMMING
   2
   3 (define (fold-left proc init l)
   4   (if (null? l)
   5     init
   6     (fold-left proc (proc init (car l)) (cdr l))))
   7
   8 (define (reduce-left proc init l)
   9   (if (null? l)
  10     init
  11     (if (null? (cdr l))
  12       (car l)
  13       (fold-left proc (proc (car l) (car (cdr l))) (cdr (cdr l))))))
  14