[monolithed]

Однако эту строку написал я через полгода.

Интересно на изучение J тебе столько времени понадобится?

quicksort =: (($:@(<#[), (=#[), $:@(>#[)) ({~ ?@#)) ^: (1<#)