07a done

diff --git a/07/07a.bqn b/07/07a.bqn
index 0cd6fc8d54299fa7d5c0f3ff13f58d9f90e00154..c0489255679d7994aa89aa34218a7c25a796c02b 100644 (file)
--- 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