18 lines
648 B
BQN
18 lines
648 B
BQN
|
table ← >⟨ 0‿3‿1‿7‿5‿9‿8‿6‿4‿2
|
|||
|
|
7‿0‿9‿2‿1‿5‿4‿8‿6‿3
|
|||
|
|
4‿2‿0‿6‿8‿7‿1‿3‿5‿9
|
|||
|
|
1‿7‿5‿0‿9‿8‿3‿4‿2‿6
|
|||
|
|
6‿1‿2‿3‿0‿4‿5‿9‿7‿8
|
|||
|
|
3‿6‿7‿4‿2‿0‿9‿5‿8‿1
|
|||
|
|
5‿8‿6‿9‿7‿2‿0‿1‿3‿4
|
|||
|
|
8‿9‿4‿5‿3‿6‿2‿0‿1‿7
|
|||
|
|
9‿4‿3‿8‿6‿1‿7‿2‿0‿5
|
|||
|
|
2‿5‿8‿1‿4‿3‿6‿7‿9‿0 ⟩
|
|||
|
|
|
|||
|
|
|
|||
|
|
Digits ← 10{⌽𝕗|⌊∘÷⟜𝕗⍟(↕1+·⌊𝕗⋆⁼1⌈⊢)}
|
|||
|
|
|
|||
|
|
Damm ← {0=0(table⊑˜⋈)˜´⌽Digits 𝕩}
|
|||
|
|
|
|||
|
|
Damm¨5724‿5727‿112946
|