(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:
2023-07-10 14:12:56 +01:00
parent b8b541efbc
commit 5b05f2323c

9
bsearch-gen.el Normal file
View 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*))))