11 lines
276 B
EmacsLisp
11 lines
276 B
EmacsLisp
(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*)))))
|