ch-2.apl « apl « asherbhs « challenge-262 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-262/asherbhs/apl/ch-2.apl

blob: b17cd9bee1be3cac55d9c67b97c2d9c01af1abaf (plain)

⎕IO←0

CountEqualDivisible←{+/,(∘.=⍨⍵)∧(∘.(0=⍺|×)∧∘.<)⍨⍳≢⍵}

⎕←2 CountEqualDivisible 3 1 2 2 2 1 3
⎕←1 CountEqualDivisible 1 2 3