fork download
copy 
  1. :- dynamic edge/2.
  2.  
  3. generar_grafo(N) :-
  4.     retractall(edge(_,_)),
  5.     Limite is N - 1,
  6.     forall(
  7.         between(0, Limite, X),
  8.         (
  9.             X < Limite ->
  10.             Y is X + 1,
  11.             assertz(edge(X,Y))
  12.             ;
  13.             true
  14.         )
  15.     ).
  16.  
  17. dfs(Nodo, Visitados, Resultado) :-
  18.     member(Nodo, Visitados),
  19.     Resultado = Visitados.
  20.  
  21. dfs(Nodo, Visitados, Resultado) :-
  22.     \+ member(Nodo, Visitados),
  23.  
  24.     findall(
  25.         Vecino,
  26.         edge(Nodo,Vecino),
  27.         Vecinos
  28.     ),
  29.  
  30.     dfs_lista(
  31.         Vecinos,
  32.         [Nodo|Visitados],
  33.         Resultado
  34.     ).
  35.  
  36. dfs_lista([], Visitados, Visitados).
  37.  
  38. dfs_lista([H|T], Visitados, Resultado) :-
  39.     dfs(H, Visitados, Temp),
  40.     dfs_lista(T, Temp, Resultado).
  41.  
  42. ejecutar :-
  43.     generar_grafo(10000),
  44.  
  45.     statistics(runtime,[T0|_]),
  46.  
  47.     dfs(0, [], Resultado),
  48.  
  49.     statistics(runtime,[T1|_]),
  50.  
  51.     statistics(memory, Memoria),
  52.  
  53.     Tiempo is T1 - T0,
  54.  
  55.     length(Resultado, Cantidad),
  56.  
  57.     format('Nodos visitados: ~w~n', [Cantidad]),
  58.     format('Tiempo (ms): ~w~n', [Tiempo]),
  59.     format('Memoria (bytes): ~w~n', [Memoria]).
Success #stdin #stdout #stderr 0.03s 6940KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
Standard output is empty
stderr
copy 
ERROR: '$runtoplevel'/0: Undefined procedure: program/0
   Exception: (3) program ? EOF: exit
https://ideone.com/xvbgDb
language:
Prolog (swi 7.6.4)
created:
1 day ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!