Использование функции сортировки

AlexF

Забавно, но не нашел ни одного примера использования функции сортировки в папке devel. искал в качестве примера, как использовать. Неужели, невостребованная функция?

Нашел только две реализации алгоритам сортировки:
- hsort.f
- QSORT.F

а вот прера по их использованию не нашел.

profiT

Цитата:

Нашел только две реализации алгоритам сортировки:
- hsort.f
- QSORT.F

В смысле: ~mlg/SrcLib/hsort.f и ~pinka/samples/2003/common/qsort.f.

Кстати, есть ещё: ~nn/lib/qsort.f, но её 1) надо исправлять 2) нет в дереве CVS.

Хм.. Может добавить быструю сортировку в абзац по этому делу в "SPF_DEVEL".

Исчерпывающее описание что называется внутри есть у библиотек.

А пример.. Ну я использовал, и что? Если человек не смог сообразить из описания в этих библиотеках (интерфейс у них одинаков -- три вектора), то bac4th ему совать вообще нельзя наверно.

AlexF

profiT писал(а):

В смысле: ~mlg/SrcLib/hsort.f и ~pinka/samples/2003/common/qsort.f.
.....
Исчерпывающее описание что называется внутри есть у библиотек.
....

Да именно эти библиотеки имелись ввиду.
Если бы все было бы понятно, то не стал бы тратить время на поиск примеров и написание поста. Навскидку, что значит в библиотеке QSORT.F

Код:

\ Рекурсивная
: quick_sort ( left right -- )  \ left <= rigth
  { il ir \ mid }

параметры ( left right -- ) ?

Безусловно можно построить догадки, написать отладочный скрипт и проверить. Это займет время. ИМХО, но это не есть "Исчерпывающее описание" :(

ygrek

Простой пример

Цитата:

REQUIRE [DEFINED] lib/include/tools.f

[UNDEFINED] []exch[] [IF]
VECT []>[]
VECT []exch[]
VECT []<[]
[THEN]

REQUIRE quick_sort ~pinka/samples/2003/common/qsort.f
REQUIRE " ~ac/lib/str5.f

CREATE a
" oh " , " i " , " believe " , " in " , " yesterday " ,
HERE a - CELL / VALUE n

: s.addr CELLS a + ;
: s ( i -- a u ) s.addr @ STR@ ;

: print n 0 DO I s TYPE LOOP ;

: s.compare ( i j -- ? ) s ROT s COMPARE ;
: s.exchange { n1 n2 -- } n1 s.addr @ n2 s.addr @ n1 s.addr ! n2 s.addr ! ;

:NONAME s.compare 0 < ; TO []>[]
:NONAME s.compare 0 > ; TO []<[]
' s.exchange TO []exch[]

CR print
0 n 1 - quick_sort
CR print

profiT

http://forth.org.ru/~mlg/SrcLib/hsort.f

По поводу "непонятных" аргументов: это надо сначалу узнать что такое "быстрая сортировка".

AlexF

yGREK писал(а):

Простой пример

-- спасибо за пример, это то, чего не хватало -- работающего примера из которого понятно как использовать библиотеку.

Использование функции сортировки

Кто сейчас на конференции