0

Tengo que hacer la siguiente función recursiva, pero me tira error. ¿Qué está mal?

promedio :: [Int] -> Int

que toma una lista de numeros y calcula el valor promedio (truncado, usando division entera).

Mi implementación

promedio :: [Int] -> Int    
promedio[] = 0
promedio (x:xs) = x / (length xs) + promedio (xs)

Me aparece en la consola este error:

> Main> promedio1 [2, 3, 3, 5, 7 ,10] *** Exception: divide by zero

y tuve que usar div en vez de / porque me aparecían muchos errores.

3
  • Qué error muestra? Edita la pregunta y añade el mensaje de error que te sale.
    – Alfabravo
    el 15 ago. 2018 a las 8:45
  • Me aparece en la consola este error: *Main> promedio1 [2, 3, 3, 5, 7 ,10] *** Exception: divide by zero y tuve que usar div en ves de / porque me aparecian muchos errores
    – Diego
    el 16 ago. 2018 a las 6:55
  • de esta manera si funciona bien: promedio :: [Int] -> Int promedio[]= 0 promedio (xs) = sum xs div length xs pero no entiendo porque haciendo con (x:xs) me tira ese error.
    – Diego
    el 16 ago. 2018 a las 7:09

1 respuesta 1

1

Podrias usar division entera para la suma de un conjunto:

promedio xs = sum xs `div` length xs

De forma recursiva:

promedio :: [Int] -> Int  
promedio[]= 0  
promedio (x:xs) = if (length xs > 0) then (x + promedio(xs)) `div` 2 else x

El resultado de la división entera será truncado hacia abajo.

3
  • 1
    Tu definición recursiva es incorrecta. Puedes comprobarlo con un simple ejemplo: promedio [1,2,3,4] debería ser 2, no 4. el 15 ago. 2018 a las 22:04
  • Yo asumia que el codigo estaba mas o menos bien, ya he editado los cambios.
    – cardeol
    el 16 ago. 2018 a las 9:05
  • Asi lo hice y funciona: promedio :: [Int] -> Int promedio[]= 0 promedio (xs) = sum xs div length xs
    – Diego
    el 16 ago. 2018 a las 20:04

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.