5 lines
299 B
BQN
5 lines
299 B
BQN
input←>¨(0≠≠)¨⊸/¨(+`(0=≠)¨)⊸⊔'#'=•FLines"input"
|
||
|
||
_F←{⊑∾⟜0 1+/𝕩⊸𝔽¨{2×∾⟜(⌽-)(⌊𝕩÷2)↑1+↕𝕩}≠𝕩}
|
||
•Show +´∾100‿1×{≡⟜⌽𝕩↑𝕨}_F¨¨⋈⟜(⍉¨)input
|
||
•Show +´∾100‿1×{2=+´⥊|-⟜⌽𝕩↑𝕨}_F¨¨⋈⟜(⍉¨)input
|