Program

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

Lecture 2 - slide 29 : 35

(define (accumulate-right f init lst)
  (if (null? lst)
      init
      (f (car lst) (accumulate-right f init (cdr lst)))))