home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / binprolog / binprolog_1 / !BinPro330_progs_algraph < prev    next >
Encoding:
Text File  |  1995-01-23  |  298 b   |  31 lines
  1.  
  2. p:-[algraph].
  3.  
  4. path(X,X,[X]).
  5. path(X,Z,[X|Xs]):-c(X,Y),path(Y,Z,Xs).
  6.  
  7. % data
  8.  
  9. go(Xs):-
  10.   (c(1,X1):-c1(X1)) -: 
  11.   (c(2,X2):-c2(X2)) -: 
  12.   (c(3,X3):-c3(X3)) -: 
  13.   (c(4,X4):-c4(X4)) -:
  14.   path(1,5,Xs).
  15.  
  16. c1(2).
  17. c1(3).
  18.  
  19. c2(1).
  20. c2(4).
  21.  
  22. c3(1).
  23. c3(5).
  24.  
  25. c4(1).
  26. c4(5).
  27.  
  28. % test
  29.  
  30. go:-go(Xs),write(Xs),nl,fail.
  31.