Updated fs example

2019-07-20 16:02:52 +09:00 · 2019-07-20 16:02:52 +09:00 · 0f29e94ee3
commit 0f29e94ee3
parent 93c69db908
1 changed files with 7 additions and 4 deletions
--- a/examples/fs.lisp
+++ b/examples/fs.lisp
@ -4,8 +4,11 @@
  (def files 
    (ls 
      (folder))) 
-  ; print files count 
+  ; pick a random file 
+  (def random-index 
+    (floor 
+      (random 
+        (len files)))) 
+  ; print random file name
  (echo 
-    (concat "Current folder: " 
-      (folder) " contains " 
-      (len files) " files"))))
+    (get files random-index)))