16 lines
435 B
BQN
16 lines
435 B
BQN
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
|