dimitri/advent-of-code
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Initial commit

Browse source
This commit is contained in:
Dimitri Lozeve 2024-11-12 21:43:32 +01:00
commit f242d2b0df
420 changed files with 62521 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

21
2023/day21/day21.bqn Normal file
View file

@ -0,0 +1,21 @@
m‿n←≢input←>•FLines"input"
s←m(⌊∘÷˜∾|)/⥊input='S'
grid←1˙⌾(s⊸⊑)input='.'
dirs←∾⟜-⋈⟜⌽↕2
•Show ≠{⍷(⊑⟜grid¨)⊸/⥊𝕩+⌜dirs}⍟64⟨s⟩
≠ps←{(m‿n⊸|⊑grid˙)¨⊸/⍷⥊𝕩+⌜dirs}⍟((⌊m÷2)+m×↕3)⟨s⟩
# Lagrange polynomial interpolation, arbitrary nodes and values
Lagrange←{x𝕊y:
d←≠x
w←÷×˝1˙¨⌾((∾˜¨↕d)⊸⊑)-⌜˜x
{+´y×w××´¨𝕩⊸-¨/⟜x¨¬⌽⌽⟜(d↑1)¨1+↕d}
}
f←(↕≠ps) Lagrange ≠¨ps
•Show F (26501365-65)÷m
# Lagrange polynomial interpolation with nodes at 0‿1‿2 and values at 𝕩
LagrangeCoeffs←{⌽+˝[[1,-3,2],[1,-2,0],[1,-1,0]]×[0.5,¯1,0.5]×𝕩}
•Show (LagrangeCoeffs ≠¨ps)(+´×⟜(⋆⟜↕⟜3))(26501365-65)÷m