Быстрая сортировка строк и чисел (пролог5.2) (добить код. см. внутри)

@Giroskop · Регистрация: 21.01.2013

Author24 — интернет-сервис помощи студентам

Программа сортирует по убыванию только строки(т.е.: ч, ф , ds, a, 3, 11, 1), а нужно строки и числа( ч, ф , ds, a, 11, 3, 1)

Prolog

predicates
 
nondeterm fastsort(slist,slist) 
nondeterm breaksort(string,slist,slist,slist) % Перестановка элементов
nondeterm concatsort(slist,slist,slist)
  dlg_spiski_eh : EHANDLER
  dlg_spiski_handle_answer(INTEGER EndButton,DIALOG_VAL_LIST)
  dlg_spiski_update(DIALOG_VAL_LIST)
 
clauses
 fastsort( [ ], [ ] ).
        fastsort( [X | Хвост], УпорСпис) :-breaksort( X, Хвост, Меньш, Больш),
                fastsort( Меньш, УпорМеньш),
                fastsort( Больш, УпорБольш),
                concatsort( УпорМеньш, [X | УпорБольш], УпорСпис).
 
        breaksort( X, [ ], [ ], [ ] ).
        breaksort( X, [Y | Хвост], [Y | Меньш], Больш ) :-
                 X < Y,  !,
                breaksort( X, Хвост, Меньш, Больш).
        breaksort( X, [Y | Хвост], Меньш, [Y | Больш] ) :-
                breaksort( X, Хвост, Меньш, Больш).
 
        concatsort( [ ], L, L).
        concatsort( [X | L1], L2, [X | L3] ) :-
                concatsort( L1, L2, L3 ).

@Black Fregat · 13.05.2014, 22:55

Надо писать свой предикат сравнения и вбивать его в 19-й строке вместо простого "<"

@Black Fregat Фрилансер 3709 / 2082 / 567 Регистрация: 31.05.2009 Сообщений: 6,683
	13.05.2014, 22:55	2
	Надо писать свой предикат сравнения и вбивать его в 19-й строке вместо простого "<" 0