PasteRack.org
Paste # 34957
2016-07-15 13:20:46

Forked from paste # 809.

Fork as a new paste.

Paste viewed 400 times.


Embed:

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

=>

Matrix:

(5 1 -5 -4 0 4)

(0 0 6 1 3 1)

(1 3 -3 -1 -3 -4)

List:

(5 1 -5 -4 0 4 0 0 6 1 3 1 1 3 -3 -1 -3 -4)

Root mean square of ...:

2.04939015319192

Two minimal elements of ...:

((0 1 1) (0 6 3))

(0 1)