Prendendo spunto da un pezzo di codice funzionante che ho a disposizione, ho modificato il codice come segue
codice:
create_semantic_graph(SemanticGraph):-
see('semantic_graph.bk'),
EdgesList = [],
read(A),
create_edges_list(A, EdgesList),
write(EdgesList),
seen
.
create_edges_list(A, E):- create_edges_list(A, [], E).
create_edges_list(end_of_file, EdgesList, EdgesList).
create_edges_list(A, E, EdgesList):-
read(A1),
(A1 \= end_of_file ->
create_edges_list(A1, [A|E], EdgesList)
;
create_edges_list(end_of_file, [A|E], EdgeList)
)
.
Ma niente...non riesco ancora a ritornare quel valore che mi serve in create_semantic_graph.