(bsearch)+Elisp script to generate random values in bsearch.txt
Generates *LIST-SIZE* number of random numbers (within bounds 0, *UPPER-BOUND*) and inserts them one by one into bsearch.txt. Each number is separated by a newline.
This commit is contained in:
9
bsearch-gen.el
Normal file
9
bsearch-gen.el
Normal file
@@ -0,0 +1,9 @@
|
|||||||
|
(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*))))
|
||||||
Reference in New Issue
Block a user