0. #lang racket
1. (define (min list)
2.     (cond ((null? (cdr list)) (car list))
3.           ((< (car list) (min (cdr list))) (car list))
4.           (else (min (cdr list)))) )
5. (define (max list)
6.   (if (null? list)
7.       #f
8.       (foldl (lambda (e r) (if (> e r) e r))
9.              (car list)
10.              (cdr list))))
11. (define (avg list)
12.   (/ (apply + list) (length list)))
13.  
14. (min '(100 87 67 53 85 98 92 79 60 88))
15.  
16. (max '(100 87 67 53 85 98 92 79 60 88))
17.  
18. (avg '(100 87 67 53 85 98 92 79 60 88))
19.  

=>

min: contract violation

expected: real?

given: '(87 67 53 85 98 92 79 60 88)

100

809/10