scheme

(define (filteredmap predicate fun1 fun2 items)
  (define (fm-iter pred f1 f2 lst acc)
    (cond ((null? lst) acc)
          ((pred (car lst)) (fm-iter pred f1 f2 (cdr lst) (cons (f1 (car lst)) acc)))
          (else (fm-iter pred f1 f2 (cdr lst) (cons (f2 (car lst)) acc)))))
  (reverse (fm-iter predicate fun1 fun2 items '() )))