challenge-114/aecepoglu/bqn/ch-1.bqn


1
2
3
4
5
6
7

# TASK 1
Pevn←{(⊢∾⌽)¨(0⊸=)⊸(⥊<∘⊣+¨·↕10¨-⊣)↕ 𝕩} 
Podd←{(⊣∾·⌽¯1↓⊢)¨(0⊸=)⊸(⥊<∘⊣+¨·↕10¨-⊣)↕ 𝕩}
Pdrm←{(⊣+10×⊢)´∘⌽¨(⌊⊸=)◶(Podd⌈)‿Pevn 𝕩÷2}
Pevn‿Podd {𝕎𝕩}¨

n(⊑∘⍋˜⊑⊢)∾Pdrm¨0‿1+⌈10⋆⁼⊢ n←1234