История изменений

(let [n 100]
  (->> #(rand-int n)
       repeatedly
       distinct
       (take n)))

(let [n 100] (take n (distinct (repeatedly #(rand-int n)))))

(95 11 73 39 70 25 51 61 5 14 44 91 12 47 33 10 88 69 81 41 56 87 48 38 54 90 62 26 84 31 2 53 15 22 16 86 17 7 27 77 76 99 68 97 71 34 8 60 21 79 28 66 72 1 36 85 19 13 43 65 42 4 3 52 18 80 23 58 78 30 74 50 82 75 63 94 6 9 37 57 24 35 45 59 40 0 20 67 29 46 64 83 93 89 98 49 55 32 96 92)

(let [n 100]
  (->> #(rand-int n)
       repeatedly
       distinct
       (take n)))

(let [n 100] (take n (distinct (repeatedly #(rand-int n)))))