From: Ben Harris <bjh21@bjh21.me.uk>
Date: Tue, 7 May 2024 20:17:59 +0000 (+0100)
Subject: 07a done
X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~bjharris/git?a=commitdiff_plain;h=87dc2cbdf24ca986cc4bbb6f559c5849b12dea89;p=aoc-2022.git

07a done
---

diff --git a/07/07a.bqn b/07/07a.bqn
index 0cd6fc8..c048925 100644
--- a/07/07a.bqn
+++ b/07/07a.bqn
@@ -24,7 +24,13 @@ FS←{𝕤
 Main←{
   dev←FS @
   files←∾{(1↓𝕩)dev.Cmd(⊑𝕩)}¨𝕩
-  files↩({"dir"≢⊑𝕩}˘files)/files
+  dirs ←⍷({"dir"≡⊑𝕩}˘files)/files
+  dirs ↩¯1⊏⍉dirs
+  files↩⍷({"dir"≢⊑𝕩}˘files)/files
+  [sizes,filepaths]←⍉files
+  sizes •ParseFloat¨↩
+  DirSize←{𝕊dir:+´({∨´dir⊸≡¨↑𝕩}¨filepaths)/sizes}
+  +´ 100000⊸≥⊸/ DirSize¨dirs
 }
 
 •Show Main Prep •file.Lines ⊑•args