;; Scheme ;; (define (over-or-under x y) 'YOUR-CODE-HERE ) ;;; Tests (over-or-under 1 2) ; expect -1 (over-or-under 2 1) ; expect 1 (over-or-under 1 1) ; expect 0 (define (filter-lst f lst) 'YOUR-CODE-HERE ) ;;; Tests (define (even? x) (= (modulo x 2) 0)) (filter-lst even? '(0 1 1 2 3 5 8)) ; expect (0 2 8) (define (make-adder num) 'YOUR-CODE-HERE ) ;;; Tests (define adder (make-adder 5)) (adder 8) ; expect 13