Recorrido Listas en Prolog

recorrerLista([X|Y], Promedio) :- recorrerLista([X|Y], 0, 0, Promedio). recorrerLista([X|[]],SumaParcial, CantidadParcial, Promedio) :- SumaFinal is SumaParcial + X, CantidadFinal is CantidadParcial + 1, Promedio is SumaFinal/CantidadFinal. recorrerLista([X|Y],SumaParcial, CantidadParcial, Promedio) :- SumaParcial1 is SumaParcial + X, CantidadParcial1 is CantidadParcial + 1, recorrerLista(Y,SumaParcial1,CantidadParcial1,Promedio). main:- recorrerLista([1,2,3,2],Promedio), write('El promedio fue de '), write(Promedio). :-main.
recorrido listas prolog

Be the first to comment

You can use [html][/html], [css][/css], [php][/php] and more to embed the code. Urls are automatically hyperlinked. Line breaks and paragraphs are automatically generated.