blob: b1df09ac7cefac7621742c77faae94d380b2eb05 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
# port of https://github.com/cettt/Advent_of_Code2021/blob/master/day_24.R
str←•Import"bqn-libs/strings.bqn"
Diff ← (¬∘∊/⊣)
d←{•BQN⊑⌽" " str.Split 𝕩}¨ 4‿5‿15 ⊏⎉1 14‿∘⥊•FLines"day24"
x1←eqidx←/9≥1⊏˘d
x2←⟨⟩
x1minmax←⟨⟩
x2minmax←⟨⟩
{
x2 ∾↩ newmatch ← ⌈´ (↕𝕩) Diff x1∾x2
b ← (newmatch‿2⊑d) + 𝕩‿1⊑d
minmax ← (0 (<⋈>) b) + (⌊´⋈⌈´) / (>⟜0 ∧ <⟜10) b+↕9
x2minmax ∾↩ <minmax
x1minmax ∾↩ <minmax+b
}¨eqidx
res←(x1∾˘>x1minmax)∾(x2∾˘>x2minmax)
•Show '0'+⌽⍉1↓˘(⍋0⊏˘res)⊏res
|
