Мужики, я реализовал 2 алгоритма сортировки на J:
Selection sort:
sort_a =: (>:@:[$:{.,(<./@:}.)([,(~:#]))}.) ` ] @. (=#)
sort =: 0&sort
sort 1 53 4 32
1 4 32 53
Quicksort:
sort =: ({.($:@:(<#]),[,$:@:(>:#]))}.) ` [ @. (#=0:)
sort 1 53 4 32
53 32 4 1
Подскажите, как можно сделать лучше
