Feu un programa que llegeixi tots els enters de l’entrada estàndard i
escrigui el més gran i el més petit. En cas de no haver enters o algun
element que no és un enter hauria d’escriure Nothing.
Necesitareu la funció readMaybe per a la conversió a
enters:
import Text.Read (readMaybe)
readMaybe :: Read a => String -> Maybe a
Restriccions:
No podeu utilitzar la recursivitat per resoldre aquest exercici.
Només podeu utilitzar un foldl per recorrer la
llista d’enters.
Heu d’aprofitar les instàncies de functors, applicatius i mònades sempre que pugueu.
Input
2 1 3
Output
Just (3,1)
Input
1 a
Output
Nothing
Input
Output
Nothing