home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
ARM Club 1
/
ARM_CLUB_CD.iso
/
contents
/
apps
/
languages
/
progs
/
binpro330
/
!BinPro330_progs_lgraph
< prev
next >
Encoding:
Amiga
Atari
Commodore
DOS
FM Towns/JPY
Macintosh
Macintosh JP
Macintosh to JP
NeXTSTEP
RISC OS/Acorn
Shift JIS
UTF-8
Wrap
Text File
|
1994-12-16
|
224 b
|
13 lines
p:-[lgraph].
path(X,X,[X]).
path(X,Z,[X|Xs]):-linked(X,Y),path(Y,Z,Xs).
linked(X,Y):-c(X,Ys),member(Y,Ys).
go(Xs):-
c(1,[2,3]) -: c(2,[1,4]) -: c(3,[1,5]) -: c(4,[1,5]) -:
path(1,5,Xs).
go:-go(Xs),write(Xs),nl,fail.