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

about summary refs log tree commit diff

path: root/challenge-083/conor-hoekstra/apl/ch-2.apl

blob: f71f9c1cbae9a0efd14d16ebbd73b1036078ad3d (plain)

 flipArray ← {
    m ← ⍉2(⊥⍣¯1)⍳¯1+2*≢⍵ ⍝ mask
    s ← +/x(×⍤1)1-2×m    ⍝ sums
    ⌊/(+/m)/⍨s=⌊/s/⍨0≤s
 }

⍝ Tests
flipArray 2 10 12 ⍝ 1
flipArray 3 10 8  ⍝ 1