сортировка элементов списка [турбо пролог]

10.05.2011, 07:54. **Показов** 2813. **Ответов** 3

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

sorting_1([5,3,8,4,1],[1,3,4,5,8])

@DENLED · 10.05.2011, 15:45

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
%держи сортировку по весомости элемонтов списка
 
domains
    list=string*
predicates
    nondeterm proc_2_0(list,list)
    nondeterm proc_2_1(string,list,list)
 
...
proc_2_0([],[]).
proc_2_0([H|T],Lots):-proc_2_0(T,Tots),proc_2_1(H,Tots,Lots).
 
proc_2_1(E,[],[E]).
proc_2_1(E,[H|T],[E,H|T]):-str_int(E,E1), str_int(H,H1), E1<=H1.
proc_2_1(E,[H|T],[H|T1]):- str_int(E,E1), str_int(H,H1), E1>H1,proc_2_1(E,T,T1).

для списка вида [1,35,462,2356,8658,35,354...]

@rrrFer · 10.05.2011, 15:58

DENLED, зачем использовать тип узла списка string, а потом каждый раз преобразовывать его в integer:

Prolog
1
str_int(E,E1), str_int(H,H1),

?

Добавлено через 1 минуту
и что-то мне подсказывает, что

Prolog
1
str_int(E,E1), str_int(H,H1), E1>H1,

можно безвредно удалить

@DENLED · 10.05.2011, 15:58

изначально это сортировка по длинам строк, и я не утруждался по поводу чистоты кода, делал как бустрее
а так вообще да, можно довести до ума

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

Lendrus

	сортировка элементов списка [турбо пролог] 10.05.2011, 07:54. Показов 2813. Ответов 3 Метки нет (Все метки) sorting_1([5,3,8,4,1],[1,3,4,5,8])

@DENLED 14 / 14 / 0 Регистрация: 10.05.2011 Сообщений: 51
	10.05.2011, 15:58
	изначально это сортировка по длинам строк, и я не утруждался по поводу чистоты кода, делал как бустрее а так вообще да, можно довести до ума 0