14 lines
236 B
Common Lisp
14 lines
236 B
Common Lisp
; filesystem
|
|
(
|
|
; get files
|
|
(def files
|
|
(dir
|
|
(dirpath)))
|
|
; pick a random file
|
|
(def random-index
|
|
(floor
|
|
(random
|
|
(len files))))
|
|
; print random file name
|
|
(echo
|
|
(get files random-index))) |