Дан список, содержащий смешанный граф. Выбрать из него однонаправленные ветви и занести в результирующий граф

@Seal · Регистрация: 19.06.2013

Помогите, пожалуйста решить эту зайку. Очень прошу...

@Black Fregat · 11.06.2015, 18:09

Prolog

task([], []).
task([(A,B)|T1], T) :-
        select((B,A), T1, T2),
        !,
        task(T2, T). 
task([H|T1], [H|T]) :-
        task(T1, T).

Код

?- task([(a,b),(b,c),(c,d),(d,c),(c,b)], X).
X = [ (a, b)].

@Seal 0 / 0 / 0 Регистрация: 19.06.2013 Сообщений: 20
		1
	Дан список, содержащий смешанный граф. Выбрать из него однонаправленные ветви и занести в результирующий граф 11.06.2015, 16:12. Показов 973. Ответов 1 Метки нет (Все метки) Помогите, пожалуйста решить эту зайку. Очень прошу... 0

	11.06.2015, 18:09