08b done

diff --git a/08/08b.bqn b/08/08b.bqn
new file mode 100644 (file)
index 0000000..dd75f5d
--- /dev/null
+++ b/08/08b.bqn
@@ -0,0 +1,5 @@
+Main←{𝕊in:
+  DirScores←{>{+˝((1↓≢𝕩)⥊1)»∧`(⊏𝕩)⊸>˘1↓𝕩}¨¯1↓↓𝕩}
+  ⌈´⥊×´{DirScores⌾𝕏in}¨⟨⊢,⌽,⍉,⌽⍉⟩
+}
+•Show Main '0'-˜>•file.Lines ⊑•args