This preview shows page 1. Sign up to view the full content.
Unformatted text preview: decimal #f #t none #f ()))) (define (equals-n lst n) (local [ (define (eq-n? x) (= x n)) ] (amp eq-n? lst) )) (define (equals-n2 lst n) (map (lambda (x) (= x n)) lst) )...
View Full Document
This document was uploaded on 02/12/2010.
- Winter '09