0
conexion(d,h,4).
conexion(h,f,9).
conexion(i,f,11).
conexion(f,g,10).
conexion(f,a,8).
conexion(a,b,7).

tieneArista(X) :-conexion(X,_,_).

Quiero saber por ejemplo este código me dice que f se repite 2 veces quiero saber como buscarlo. Gracias por su ayuda.

1
  • 1
    buscar que?, si quieres obtener respuestas de calidad proporciona tambien preguntas de calidad, porfavor. Commented el 12 jun. 2018 a las 4:28

1 respuesta 1

1

Puedes utilizar findall/3 para encontrar todas las repeticiones de, lo que tu llamas nodos, y crear una lista con ellos. Después sólo contar la cantidad de elementos de esa lista. Por ejemplo:

conexion(d,h,4). 
conexion(h,f,9). 
conexion(i,f,11). 
conexion(f,g,10). 
conexion(f,a,8). 
conexion(a,b,7).


tieneArista(X) :- findall(X, conexion(X,_,_), L), length(L,N), writeln(N).

Ejecución:

?- tieneArista(f).
2
true.

?- tieneArista(h).
1
true.

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.