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.