Aşağıdaki bilgi tabanına sahibim:
connects(1,11,10,8).
connects(1,12,2,6).
connects(1,13,-3,-2).
connects(1,14,1,-5).
Bu yüklemlerim var:
friends(Node, L):-
findall(X,(connects(Node,X,_,_);connects(X,Node,_,_)),L).
soruyu sorduğumda mı ?- arkadaşlar (1,L) bende bu var:
L = [11, 12, 13, 14].
Ama amacım böyle bir liste yazdırmak:
L = [11,10,8,12,2,6,13,-3,-2,14,-5]
Bunu nasıl elde edebilirim?
Yüklemin gerçekte hangi ilişkiyi temsil ettiği bana açık değil. Her neyse, aşağıdaki gibi devam edebilirsiniz:
?- findall([X,Y,Z], connects(1,X,Y,Z), L).
L = [[11, 10, 8], [12, 2, 6], [13, -3, -2], [14, 1, -5]].
?- findall([X,Y,Z], connects(1,X,Y,Z), L0), append(L0, L1).
L0 = [[11, 10, 8], [12, 2, 6], [13, -3, -2], [14, 1, -5]],
L1 = [11, 10, 8, 12, 2, 6, 13, -3, -2, 14, 1, -5].
Koyarak hepsini birlikte, bir define arkadaş/2 olarak:
friends(Node, L1):-
findall([X,Y,Z],
( connects(Node, X,Y,Z)
; connects(X, Node, Y,Z) ), L0),
append(L0, L1).
Yüklemi değiştirebileceğinizi varsayarsak. Değiştirilmesi _değişkenli s size ihtiyacınız olan değerleri verecektir. Ve sonra kullan flatten/2 matrisi (2D listesi) basit bir 1D listesine dönüştürmek için.
Bu sorunu çözmek gerekir.
friends(Node, L):-
findall([X, Y, Z], (connects(Node, X, Y, Z)), A),
flatten(A, L).
Örnek çıktı:
?- friends(1, L)
L = [11, 10, 8, 12, 2, 6, 13, -3, -2, 14, 1, -5]