Moved implementations to folder
This commit is contained in:
9
impls/bsearch-gen.el
Normal file
9
impls/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