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.     ;; term: (listof Num) -> Num
16.     (define (term lon) (sqr (- (first lon) mean)))]
17.  
18.   (cond
19.     [(empty? lon) empty]
20.     [(> term variance) (cons (first lon) (rest term))]
21.     [else (rest outliers)])))
22.  
23. (outliers (list 2 1 34 3 1 0 33 2 2 1 34 3))

=>

>: contract violation

expected: real?

given: #<procedure:variance>