0. #lang racket
1.  
2. (define min -5)
3. (define max 7)
4.  
5. (define (generate)
6.   (for/list ((i (in-range 3)))
7.             (for/list ((i (in-range 6)))
8.                       (+ (random (+ 1 (- max min))) min))))
9.  
10. (define (root-mean-square x)
11.   (sqrt (/ (foldl + 0 (map sqr x)) (length x))))
12.  
13. (define (odd-and-even x)
14.   (define odd '())
15.   (define even '())
16.   (for ((el x)
17.         (i (in-range (length x))))
18.        (if (odd? i)
19.            (set! odd (cons el odd))
20.            (set! even (cons el even))))
21.   (list (reverse odd) (reverse even)))
22.  
23. (define r (generate))
24.  
25. (displayln "Matrix:")
26. (for-each displayln r)
27.  
28. (displayln "List:")
29. (define s (flatten r))
30. (displayln s)
31.  
32. (displayln "Root mean square of ...:")
33. (displayln (root-mean-square (filter (lambda (x) (> x 0))
34.                                      (drop s (/ (length s) 2)))))
35.  
36. (displayln "Two minimal of odd-index elements of ...:")
37. (displayln (take (sort
38.                   (first
39.                    (odd-and-even
40.                     (take (drop s (/ (length s) 3)) (/ (length s) 3))))
41.                   <)
42.                  2))
43.  
44. (dispayln "Sorted even-indexed non-zero elements of ...")
45. (displayln (sort
46.             (filter (drop s (* (length s) 2/3)) (compose not zero?))
47.             >
48.             #:key (lambda (x) (/ 1 x))))

=>

Matrix:

(6 3 -4 6 1 0) (3 2 -4 -4 3 -3) (-1 7 1 3 7 1)

List:

(6 3 -4 6 1 0 3 2 -4 -4 3 -3 -1 7 1 3 7 1)

Root mean square of ...:

4.43471156521669

Two minimal of odd-index elements of ...:

(-4 -3)

dispayln: undefined;

cannot reference an identifier before its definition

in module: 'm

filter: contract violation

expected: (any/c . -> . any/c)

given: '(-1 7 1 3 7 1)