PROLOG: Media aritmetica de una lista

martes, 31 de mayo de 2011

10:42 |

Publicado por a8a |

Este programa calcula la media aritmética (promedio) de los elementos de una lista:

my_average(Xs, A):-
          my_length(Xs, L),
          my_sum_elements(Xs, S),
          A is S / L.

Para ejecutar el programa:

?- my_average([1,2,3,4,5,6], A).

Y el resultado es:

A = 3.5

Nota: Este programa usa algunas reglas (programas) definidas anteriormente.

*** Programa probado en WinProlog versión 4.7 ***

LOGICA MATEMATICAS dijo...: me sale error!!! mmm =(; 2 de junio de 2012, 18:56
a8a dijo...: Hola Diana

Creo que el error te debe dar porque aquí solo coloque parte del código, ya que estoy usando dos reglas que cree anteriormente: my_length(Xs, L), my_sum_elements(Xs, S).

Puedes ver el código de las dos reglas aquí:

http://xpasos.blogspot.com/2011/05/prolog-longitud-de-una-lista-version-1.html

http://xpasos.blogspot.com/2011/05/prolog-suma-elementos-de-una-lista.html

No coloque estas reglas en el programa para no repetir código ya mostrado.

Espero te sirva el comentario.

Victor H.; 2 de junio de 2012, 20:52

xPasos - TODO POR PASOS