impls/num-gen.el


1
2
3
4
5
6
7
8
9
10

(defconst *LIST-SIZE* 128)
(defconst *UPPER-BOUND* 1024)
(with-current-buffer (find-file "nums.txt")
  (mapcar
   #'(lambda (res) (insert (format "%s\n" res)))
   (cl-remove-duplicates
    (cl-loop
     for i from 0 to *LIST-SIZE*
     collect
     (random *UPPER-BOUND*)))))