7. Quicksort — Order Statistics Index   <<   >>
 

   S1←{⍵⌷⍨⍺⌷⍋⍵}

   {⍵[⍋⍵]}x
0 1 1 1 1 2 2 3 3 3 4 4 5 7 7 8 9 9 9 9 11

   0 20 10 S1⍤0 1 ⊢x
0 11 4

S←{
  s←⍵ ⍺⍺ p←⍵⌷⍨?≢⍵
  ⍺<  +/b←0>s:⍺ ∇ b⌿⍵
  ⍺<m←+/b←0≥s:p
  (⍺-m) ∇ (~b)⌿⍵
}

   0 20 10 -S⍤0 1 ⊢x
0 11 4