Program

Play audio slide show -- Keyboard shortcut: 'x'

Back to lecture notes -- Keyboard shortcut: 'u'

Lecture 4 - slide 16 : 34

(define (reduce-left f lst)
  (reduce-help-left f (cdr lst) (car lst)))

(define (reduce-help-left f lst res)
  (if (null? lst)
      res
      (reduce-help-left f (cdr lst) (f res (car lst)))))