2024 day 11
This commit is contained in:
parent
1065943b0f
commit
bea330905c
2 changed files with 17 additions and 0 deletions
16
2024/day11/day11.bqn
Normal file
16
2024/day11/day11.bqn
Normal file
|
@ -0,0 +1,16 @@
|
||||||
|
Split←((⊢-˜+`׬)∘=⊔⊢)
|
||||||
|
in←•ParseFloat¨' 'Split ¯1↓•FChars"input"
|
||||||
|
|
||||||
|
h←⟨⟩•HashMap⟨⟩
|
||||||
|
NumberOfDigits←{⌊1+10⋆⁼𝕩}
|
||||||
|
F←{
|
||||||
|
𝕊0: ⟨1⟩;
|
||||||
|
n←NumberOfDigits 𝕩
|
||||||
|
(1=2|n)⊑⟨⟨⌊𝕩÷10⋆n÷2,(10⋆n÷2)|𝕩⟩,⟨2024×𝕩⟩⟩
|
||||||
|
}
|
||||||
|
G←{
|
||||||
|
0𝕊n: 1;
|
||||||
|
d𝕊n: {𝕊¯1: r←+´(d-1)⊸G¨F n ⋄ d‿n h.Set r ⋄ r ; 𝕩}¯1 h.Get d‿n
|
||||||
|
}
|
||||||
|
•Show +´25⊸G¨in
|
||||||
|
•Show +´75⊸G¨in
|
1
2024/day11/input
Normal file
1
2024/day11/input
Normal file
|
@ -0,0 +1 @@
|
||||||
|
872027 227 18 9760 0 4 67716 9245696
|
Loading…
Add table
Add a link
Reference in a new issue