PasteRack.org
Paste # 97952
2016-07-15 13:16:08

Forked from paste # 87451.

Fork as a new paste.

Paste viewed 343 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.            (append odd el)
  21.            (append even el)))
  22.   (list odd 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:

(-3 1 6 -3 -4 6)

(5 -1 -5 1 7 4)

(-3 7 -5 6 -1 3)

List:

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

Root mean square of ...:

5.163977794943222

Two minimal elements of ...:

(() ())

take: index is too large for list

  index: 2

  list: '()