Play audio slide show -- Keyboard shortcut: 'x'  Back to lecture notes -- Keyboard shortcut: 'u'                        Lecture 4 - slide 16 : 34
 

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