Генеалогическое дерево

@_N · Регистрация: 15.04.2016

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

Подскажите пожалуйста с помощью чего сделать вывод информации и соединять по родству???
Может есть исходник для примера???

Aleator · 27.12.2018, 18:31

Прошерстите схожие темы в Прологе.

Для затравки (тегов для CLIPS не нашёл):

Prolog

; Facts:
(deffacts families
(father tom john) ; tom is father of john
(mother susan john) ; susan is mother of john
(father george tom)) ; george is father of tom
; Rules:
(defrule parent-rule
(or (father ?x ?y) (mother ?x ?y))
=>
(assert (parent ?x ?y)))
(defrule grandparent-rule
(and (parent ?x ?y) (parent ?y ?z))
=>
(assert (grandparent ?x ?z)))
(defrule grandfather-rule
(and (father ?x ?y) (parent ?y ?z))
=>
(assert (grandfather ?x ?z)))

@_N 0 / 0 / 0 Регистрация: 15.04.2016 Сообщений: 16
		1
	Генеалогическое дерево 30.05.2018, 18:58. Показов 3634. Ответов 1 Метки нет (Все метки) Подскажите пожалуйста с помощью чего сделать вывод информации и соединять по родству??? Может есть исходник для примера??? 0

	27.12.2018, 18:31