LINUX.ORG.RU

Сортировка списка. Помогите отладить.

 ,


0

1

Мужики, я реализовал 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

Подскажите, как можно сделать лучше

Вы не можете добавлять комментарии в эту тему. Тема перемещена в архив.