Счетчик элементов дерева в Prolog

@Lw · Регистрация: 01.10.2013

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

Определить число вхождений элемента 2 в дерево.
Вот наработка

Prolog
1
2
3
4
5
6
7
8
9
10
domains
    treetype=tree(integer,treetype,treetype);empty.
predicates
    nondeterm prtree(treetype).
clauses
    prtree(empty).
    prtree(tree(K,L,R)):-write(),prtree(L),prtree(R).
    prtree(tree(K,L,R)):-prtree(L),prtree(R).
goal
    prtree(tree(3,tree(2,tree(1,empty,empty),tree(2,empty,empty)),tree(5,empty,tree(8,tree(9,empty,empty),empty)))).

@Black Fregat · 25.09.2015, 10:54

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
predicates
count2(treetype, integer)
count2item(integer, integer)
 
clauses
count2(empty, 0).
count2(tree(K,L,R), Count) :-
    count2item(K, CountK),
    count2(L, CountL),
    count2(R, CountR),
    Count = CountK + CountL + CountR.
 
count2item(2, 1) :- !.
count2item(_, 0).

@Lw · 02.10.2015, 11:33 **[ТС]**

Проблемка с выводом или я что то не так вывожу? Ругается на count2(Count)

Prolog
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
domains
    treetype=tree(integer,treetype,treetype);empty.
predicates
    nondeterm prtree(treetype).
    count2(treetype, integer)
    count2item(integer, integer)
clauses
    prtree(empty).
    prtree(tree(K,L,R)):-write(),prtree(L),prtree(R).
    prtree(tree(K,L,R)):-prtree(L),prtree(R).
count2(empty, 0).
count2(tree(K,L,R), Count) :- count2item(K, CountK),
    count2(L, CountL),
    count2(R, CountR),
    Count = CountK + CountL + CountR.
 
count2item(2, 1) :- !.
count2item(_, 0).
    
goal
    prtree(tree(3,tree(2,tree(1,empty,empty),tree(2,empty,empty)),tree(5,empty,tree(8,tree(9,empty,empty),empty)))).
    count2(Count).

@Black Fregat · 02.10.2015, 14:21

Prolog
1
2
3
4
5
goal
    MyTree = tree(3,tree(2,tree(1,empty,empty),tree(2,empty,empty)),tree(5,empty,tree(8,tree(9,empty,empty),empty))),
    prtree(MyTree),
    count2(MyTree, Count),
    write("Count = ", Count), nl.

@Lw · 02.10.2015, 15:33 **[ТС]**

Скажите пожалуйста зачем нужен предикат count2item? И что делают эти строки?
count2item(2, 1) :- !.
count2item(_, 0). Это ведь для проверки на наличие элемента в дереве?

@Black Fregat · 02.10.2015, 17:41

Сообщение от Lw

зачем нужен предикат count2item?

Подсчет значения в узле вынесен в отдельный предикат. Если когда-нибудь понадобится посчитать по дереву что-то другое (аддитивное), достаточно будет переписать этот предикат. Да и логика работы с деревом получается нагляднее, если её не смешивать с самой логикой подсчёта.

Сообщение от Lw

И что делают эти строки?

Вот эти строки как раз и считают количество двоек в данной вершине. Их там или 1, или 0. Для 2 получаем 1, для остальных значений 0.

Если Вам зачем-то нужно засунуть всё это в один предикат, то это возможно. Но сделайте это самостоятельно.
Подсказка: вместо двух правил count2, в одном из которых есть дополнительная развилка внутри count2item, получится три правила, раздельно обрабатывающих пустое дерево, дерево с двойкой в вершине и дерево без двойки в вершине.

Но по-моему, с дополнительным предикатом лучше - проще и понятнее

Новые блоги и статьи Все статьи Все блоги /
My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .
Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .	Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача №1: при указании работ (справочник РаботыПоРемонтуСпецтехники),. . .

Счетчик элементов дерева в Prolog

Решение

Решение

@Lw 0 / 0 / 0 Регистрация: 01.10.2013 Сообщений: 66
	02.10.2015, 15:33 [ТС]
	Скажите пожалуйста зачем нужен предикат count2item? И что делают эти строки? count2item(2, 1) :- !. count2item(_, 0). Это ведь для проверки на наличие элемента в дереве? 0