16 lines
726 B
BQN
16 lines
726 B
BQN
Split←((⊢-˜+`׬)∘=⊔⊢)
|
||
in←⊑⌾⊑˘•ParseFloat¨¨0‿1⊸(↓¨)˘>' '⊸Split¨¨':'⊸Split¨•FLines"input"
|
||
Check1←{
|
||
𝕨𝕊⟨n⟩: 𝕨=n;
|
||
0=(⊑𝕩)|𝕨 ? ((𝕨÷⊑𝕩)𝕊1↓𝕩)∨(𝕨-⊑𝕩)𝕊1↓𝕩 ; (𝕨-⊑𝕩)𝕊1↓𝕩
|
||
}
|
||
•Show +´⊑˘/⟜in Check1⟜⌽´˘in
|
||
|
||
Unconcat←{(𝕨-𝕩)÷10⋆≠•Repr𝕩}
|
||
Suffix←{0=(10⋆≠•Repr𝕩)|𝕨-𝕩}
|
||
Check2←{
|
||
𝕨𝕊⟨n⟩: 𝕨=n;
|
||
𝕨Suffix⊑𝕩 ? ((𝕨Unconcat⊑𝕩)𝕊1↓𝕩)∨((𝕨÷⊑𝕩)𝕊1↓𝕩)∨(𝕨-⊑𝕩)𝕊1↓𝕩 ;
|
||
0=(⊑𝕩)|𝕨 ? ((𝕨÷⊑𝕩)𝕊1↓𝕩)∨(𝕨-⊑𝕩)𝕊1↓𝕩 ; (𝕨-⊑𝕩)𝕊1↓𝕩
|
||
}
|
||
•Show +´⊑˘/⟜in Check2⟜⌽´˘in
|