LeaderElement.aplf « apl « richard-park « challenge-078 - github/perlweeklychallenge-club.git - Unnamed repository; edit this file 'description' to name the repository.

about summary refs log tree commit diff

path: root/challenge-078/richard-park/apl/LeaderElement.aplf

blob: 4c6fe9dc5b890c24fb789f83e87787d0e0d945df (plain)

 LeaderElement←{
⍝ ⍵: Distinct integers
⍝ ←: Elements which are greater than all elements to their right
     ⍵⌿⍨0=∨/(∘.<⍨⍳≢⍵)∧(∘.<⍨⍵)
 }