10 lines
406 B
BQN
10 lines
406 B
BQN
Split←((⊢-˜+`׬)∘=⊔⊢)
|
||
in←>•ParseFloat¨¨¨','⊸Split¨¨2⊸↓¨¨' '⊸Split¨•FLines"input"
|
||
size←101‿103
|
||
Step←{n𝕊p‿v: size|p+n×v}
|
||
|
||
p1←100 Step˘in
|
||
•Show ×´/⁼⊐(size÷2)⊸<˘(∧´˘(⌊size÷2)⊸≠˘p1)/p1
|
||
|
||
•Show n←⊑⊐⟜1 ⍷⊸≡¨{𝕩Step˘in}¨↕10000
|
||
•Out ∾1↓⥊(@+10)≍˘<˘⍉⊑⟜" #"¨+˝{1⊸+⌾(𝕩⊸⊑)size⥊0}˘n Step˘in
|