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/2022/day13/day13.bqn
+++ b/2022/day13/day13.bqn
@ -0,0 +1,27 @@
+⟨Split,lf⟩←•Import"../bqn-libs/strings.bqn"
+Parse←•BQN∘{'⟩'¨⌾((']'=𝕩)⊸/)'⟨'¨⌾(('['=𝕩)⊸/)𝕩}
+in←Parse¨>lf⊸Split¨(2⥊lf)Split ¯1↓•FChars⊑•args
+
+Cmp←{
+    𝕨(∧○(0==))𝕩 ? 𝕨(>-<)𝕩;
+    𝕨(∧○(0=≠))𝕩 ? 0;
+    0=≠𝕨 ? ¯1;
+    0=≠𝕩 ? 1;
+    0=𝕨(Cmp○⊑)𝕩 ? 𝕨(Cmp○(1⊸↓))𝕩;
+    0=≠≢𝕨 ? (≍𝕨)𝕊𝕩;
+    0=≠≢𝕩 ? 𝕨𝕊≍𝕩;
+    𝕨(Cmp○⊑)𝕩
+}
+
+•Show +´(⊢×(1+↕∘≠))¯1=Cmp´˘in
+
+_BubbleSort←{Cmp _𝕣 in:
+    Bubble←{
+        1≥≠𝕩 ? 𝕩;
+        1=((⊑𝕩)⊑in) Cmp (1⊑𝕩)⊑in ? (1⊑𝕩)∾𝕊(⊑𝕩)∾2↓𝕩;
+        (⊑𝕩)∾𝕊1↓𝕩
+    }
+    Bubble⍟(≠𝕩)↕≠𝕩
+}
+
+•Show ×´1+(Cmp _BubbleSort ⟨⟨2⟩⟩‿⟨⟨6⟩⟩∾⥊in)⊐0‿1