miércoles, 25 de julio de 2012

Máximo de una lista en Haskell recursivo

maximo:: Int -> [Int] -> Int
maximo [] = error"No hay maximo"
maximo [x] = x
maximo (x:xs)
| x < maximo xs = maximo xs
| x >= maximo xs = x

No hay comentarios:

Publicar un comentario