07a: extract only regular files

diff --git a/07/07a.bqn b/07/07a.bqn
index 025e2cf3a7c95807d4c838d3ee45fcc7aee532af..a22a0e41aa811bd2b66f272489819b3a5922817a 100644 (file)
--- a/07/07a.bqn
+++ b/07/07a.bqn
@@ -24,6 +24,7 @@ FS←{𝕤
 Main←{
   dev←FS @
   files←∾{(1↓𝕩)dev.Cmd(⊑𝕩)}¨𝕩
+  files↩({"dir"≢⊑𝕩}˘files)/files
 }
 
 •Show Main Prep •file.Lines ⊑•args