bsearch-gen -> num-gen
This commit is contained in:
@@ -1,9 +0,0 @@
|
|||||||
(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*))))
|
|
||||||
10
impls/num-gen.el
Normal file
10
impls/num-gen.el
Normal file
@@ -0,0 +1,10 @@
|
|||||||
|
(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*)))))
|
||||||
Reference in New Issue
Block a user