From: Ben Harris <bjh21@bjh21.me.uk>
Date: Tue, 7 May 2024 12:41:01 +0000 (+0100)
Subject: 07a: extract only regular files
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=f89d6564477f99fd6e3516c420b1f23335552fa6;p=aoc-2022.git

07a: extract only regular files
---

diff --git a/07/07a.bqn b/07/07a.bqn
index 025e2cf..a22a0e4 100644
--- 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