| 3 minutes, 39 seconds | Higher-order Functions - slide 12 : 34 |
(define (filter pred lst)
(reverse (filter-help pred lst '())))
(define (filter-help pred lst res)
(cond ((null? lst) res)
((pred (car lst))
(filter-help pred (cdr lst) (cons (car lst) res)))
(else
(filter-help pred (cdr lst) res)))) A straightforward filter function |

