-


- - . 28


delete([Up1|Stolb1],Stolbs,Stolbs1), delete(Stolb2,Stolbs1,Rest).
delete(X,[X|L],L).
delete(X,[Y|L],[Y|L1]) :- delete(X,L,L1).
member(X,[X|_]).
member(X,[_|Tail]):- member(X,Tail).
solve(Node,Solution) :- in_depth([],Node,Solution).
in_depth(Path,Node,[Node|Path]) :- tgoal(Node).
in_depth(Path,Node,Solution) :-
after(Node,Node1), not(member(Node1,Path)),
in_depth([Node|Path],Node1,Solution).
write_list([X|Rest]):- /* */
write("\n",X),readchar(_), write_list(Rest).
write_list([]).
goal
solve([[c,a,b],[],[]],Solution), write_list(Solution).
, ( ).
6.3.
, .
-. ,
in_width(Paths,Solution)
, Paths , .
,
, .. , .
[[StartNode]].
-, :
- - ,
;
-
;



- -  - -  - -