bsearch-gen -> num-gen

2025-10-27 00:29:19 +00:00
parent e3863557f5
commit 03ba2096c1
2 changed files with 10 additions and 9 deletions
--- a/impls/bsearch-gen.el
+++ b/impls/bsearch-gen.el
@@ -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*))))
--- a/impls/num-gen.el
+++ b/impls/num-gen.el
@@ -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*)))))