IA19.4 Ricerca con Funzione Euristica: implementazione A* in Prolog