SCHEME

just fill out the ??? next to each foldr

should print out a #t like the first example does

each ;;??? next to foldr needs to be replaced with a line the first one was cons '() args)

;; Define the following functions ;; each using a single line consisting ;; of a single call to reduce (foldr) ;; for an internal lambda, ;; use (x ls) as the parameter set

EXAMPLE: (define test '(1 2 3 4 5)) (define list-reduce (lambda args (foldr cons '() args)

)) (equal? (apply list-reduce test) test)

;;1

(define test '(1 2 3 4 5)) (define +-reduce (lambda args (foldr ;;??? )) (equal? (apply +-reduce test) (apply + test))

;;2

(define test '(1 2 3 4 5)) (define filter-reduce (lambda (pred? . args) (foldr ;;???

)) (equal? (apply filter-reduce (cons even? test)) (filter even? test))

;;3

(define test '(1 2 3 4 5)) (define map-reduce (lambda (f ls) (foldr ;;??? )) (equal? (map-reduce odd? test) (map odd? test))