From 87dc2cbdf24ca986cc4bbb6f559c5849b12dea89 Mon Sep 17 00:00:00 2001
From: Ben Harris <bjh21@bjh21.me.uk>
Date: Tue, 7 May 2024 21:17:59 +0100
Subject: [PATCH] 07a done

---
 07/07a.bqn | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

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
-- 
2.30.2