Initial commit

2024-11-12 21:43:32 +01:00 · 2024-11-12 21:43:32 +01:00 · f242d2b0df
commit f242d2b0df
420 changed files with 62521 additions and 0 deletions
--- a/2023/day15/day15.bqn
+++ b/2023/day15/day15.bqn
@ -0,0 +1,29 @@
+⟨Split⟩←•Import"../bqn-libs/strings.bqn"
+≠input←","Split⊑•FLines"input"
+
+H←(⊑⌽)0(256|17×+)`-⟜@
+
+•Show +´H¨input
+
+Parse←{
+  ⊑'='∊𝕩 ? •ParseFloat⌾(1⊸⊑)'='Split𝕩 ;
+  ⊑'-'∊𝕩 ? 1↑'-'Split𝕩
+}
+
+Replace←{t‿n𝕊𝕩:
+  ⊑(<t)∊⊑¨𝕩 ? i←⊑/((<t)≡¨⊑¨)𝕩 ⋄ t‿n˙⌾(i⊸⊑)𝕩 ;
+  𝕩∾⟨𝕨⟩
+}
+
+Run←{
+  boxes←256⥊⟨⟨⟩⟩
+  Step←{
+    𝕊⟨t⟩: boxes (((<t)≢¨⊑¨)⊸/)⌾((H t)⊸⊑)↩ ;
+    𝕊t‿n: boxes (t‿n⊸Replace)⌾((H t)⊸⊑)↩
+  }
+  Step¨𝕩
+  boxes
+}
+
+Pow←+´(1+(↕≠))⊸×
+•Show Pow Pow¨ 1⊸⊑¨¨ Run Parse¨ input