biuni / prolog-ai

👾 Notes, examples and exercises in Prolog by the Artificial Intelligence course.

Hi there 👋

I'm currently:

• 🧠 Research Fellow and PhD Student at Marche Polytechnic University (UnivPM)
• 🛰️ Research Associate at National Institute for Nuclear Physics (INFN)
• 💎 Co-founder and CTO of NEXIST (nexist.it)

---

• 📫 If you want to know more about me, visit biuni.it
• 💬 If you want to contact me, write to: [email protected]

---

prolog-ai's Issues

Ricerca nello spazio degli stati

Prolog.zip

Aggiunta del predicato che calcola la media degli elementi di una lista

%% //////////////////////////////////////////////////////////////////////////

% --------------------
% ** MEDIA DI UNA LISTA **
% --------------------
% Calcola la media di una lista
%
% INPUT: avg([1,3,5],A).
% OUTPUT: A = 3.
%

average([],0).
average( List, Avg ):-
sum( List, Sum ),
length( List, Length),
Avg is Sum / Length.

sum([],0).
sum([H|L],C):-
sum(L,C0),
C is C0 + H.

Aggiunta del predicato di conversione di una lista di interi in un numero

%% //////////////////////////////////////////////////////////////////////////

% --------------------
% ** CONVERSIONE DI UNA LISTA IN UN NUMERO **
% --------------------
% Converte una lista di interi in un numero
%
% INPUT: l_to_n([2,5,8,7,5,1],N).
% OUTPUT: N = 258751.
%

l_to_n(L,N) :-
l_to_n(L,0,N).

l_to_n([H|T],A,N) :-
!,
B is A*10+H,
l_to_n(T,B,N).
l_to_n(_,N,N).