0. #lang racket
1. (define (outliers lon)
2. (local
3. [;; mean: (listof Num) -> Num
4. (define (mean lon)
5.   (cond
6.      [(empty? lon) 0]
7.      [else (/ (+ (first lon) (mean (rest lon))) (length lon))]))
8.  
9. ;; variance: (listof Num) -> Num
10. (define (variance lon)
11.   (cond
12.      [(empty? lon) 0]
13.      [else (/ (+ (sqr (- (first lon) mean)) (variance (rest lon))) mean)]))
14.  
15. (define (loOutliers lon)
16.    (cond
17.       [(empty? lon) empty]
18.       [(> (first lon) variance) (cons (first lon) (rest loOutliers))]
19.       [else (rest loOutliers)]))]))

=>

eval:2:0: local: bad syntax

in: (local ((define (mean lon) (cond ((empty? lon) 0)

(else (/ (+ (first lon) (mean (rest lon))) (length lon)))))

(define (variance lon) (cond ((empty? lon) 0) (else (/ (+

(sqr (- (first lon) mean)) (variance (rest lon))) mean))))

(define (loOutliers lon) (...