0

Hola buenas tengo la siguiente tupla:

ordena :: Ord a => (a,a,a) -> (a,a,a)

a ver esto no tiene mucha complicación pero como lo hago yo sale un codigo muy feo y largo.

En este caso pregunto a ver si hay algun tipo de recursividad que pueda hacer para ordenarlo de menor a mayor

1
  • ¿Se trata también de uno de esos problemas que no se puede usar ningún módulo estándar? Si al menos pusieras el código que has probado, podríamos hacernos una idea más concreta de si se puede hacer igual, pero más elegante. el 17 oct. 2016 a las 22:55

2 respuestas 2

2

Sin usar ningún módulo (como supongo que se desea), una solución directa y simple sería:

ordena :: Ord a => (a,a,a) -> (a,a,a)
ordena (x,y,z) | x > y     = ordena (y,x,z)
               | y > z     = ordena (x,z,y)
               | otherwise = (x,y,z)
1
  • Si, muchas gracias, perdona que conteste tan tarde, yo lo había puesto caso por caso por lo que salen 18000 guardas.
    – Ramosaurio
    el 18 oct. 2016 a las 8:53
1

Puedes convertir la tupla en una lista, ordenar la lista, y devolver la tupla:

import Data.List(sort)
ordena :: Ord a => (a,a,a) -> (a,a,a)
ordena (a,b,c) = let [d,e,f] = sort [a,b,c] in (d,e,f)

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.