diff options
| -rw-r--r-- | impls/bsearch-gen.el | 9 | ||||
| -rw-r--r-- | impls/num-gen.el | 10 |
2 files changed, 10 insertions, 9 deletions
diff --git a/impls/bsearch-gen.el b/impls/bsearch-gen.el deleted file mode 100644 index 79aac56..0000000 --- a/impls/bsearch-gen.el +++ /dev/null @@ -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*)))) diff --git a/impls/num-gen.el b/impls/num-gen.el new file mode 100644 index 0000000..e0ba7e0 --- /dev/null +++ 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*))))) |