10 lines
249 B
EmacsLisp
10 lines
249 B
EmacsLisp
(defconst *LIST-SIZE* 128)
|
|
(defconst *UPPER-BOUND* 1024)
|
|
(with-current-buffer (find-file "bsearch.txt")
|
|
(mapcar
|
|
#'(lambda (res) (insert (format "%s\n" res)))
|
|
(cl-loop
|
|
for i from 0 to *LIST-SIZE*
|
|
collect
|
|
(random *UPPER-BOUND*))))
|