2024 day 5

2024/day05/day05.bqn

@@ -0,0 +1,24 @@
+in←•FLines"input"
+n←⊑/⟨⟩⊸≡¨in
+Split←((⊢-˜+`׬)∘=⊔⊢)
+es←•ParseFloat¨>'|'⊸Split¨n↑in
+ls←•ParseFloat¨¨','⊸Split¨(1+n)↓in
+
+Kahn←{𝕊es:
+  Step←{𝕊es‿s‿l:
+    n←⊑s
+    s↩1↓s
+    l↩l∾n
+    emask←n=⊏˘es
+    s↩s∾{1=≠((1⊑˘es)=𝕩)/es}¨⊸/1⊏˘emask/es
+    es↩(¬emask)/es
+    es‿s‿l
+  }
+  ns←⍷⥊es
+  s←(¬ns∊1⊏˘es)/ns
+  2⊑Step•_while_{0≠≠1⊑𝕩} es‿s‿⟨⟩
+}
+sorted←Kahn¨{(∧´˘∊⟜𝕩˘es)/es}¨ls
+Middle←(⌊≠÷2˙)⊸⊑
+•Show +´Middle¨ /⟜sorted ls≡¨sorted
+•Show +´Middle¨ /⟜sorted ls≢¨sorted

2024/day05/test

@@ -0,0 +1,28 @@
+47|53
+97|13
+97|61
+97|47
+75|29
+61|13
+75|53
+29|13
+97|29
+53|29
+61|53
+97|53
+61|29
+47|13
+75|47
+97|75
+47|61
+75|61
+47|29
+75|13
+53|13
+
+75,47,61,53,29
+97,61,53,29,13
+75,29,13
+75,97,47,61,53
+61,13,29
+97,13,75,29,47