tildetown
/
nicethings
2
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixed error when no items are present anywhere

cleanup
m455 2020-06-15 14:14:50 -04:00
parent e52b3a1085
commit 07bf5ca264
1 changed files with 5 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/nicethings.rkt
View File

@ -197,9 +197,11 @@
[directories-with-nicethings (filter file-exists? paths-to-nicethings)]
[directories-with-420 (filter file-has-420-permissions? directories-with-nicethings)]
[listof-nicethings (apply append (map file->lines directories-with-420))]
[random-number (random (length listof-nicethings))]
[list-length (length listof-nicethings)])
(when (not (zero? list-length))
(let* ([random-number (random list-length)]
[random-nicething (list-ref listof-nicethings random-number)])
(displayln random-nicething)))
(displayln random-nicething)))))
;; ------------------------------------------------
;; help