| 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
|