Вычислить максимальный элемент списка

import Data.List (foldl1')
 
maximum' :: Ord a => [a] -> a
maximum' = foldl1' max

chisla :: Double -> Double -> Double ->Double
chisla x y z=if (x>y && x>z) then x else if (y>x && y>z) then y else z
main :: IO ()
main = do putStr "Введите х "
      x <- readLn
      putStr "Введите у "
      y <- readLn
      putStr "Введите z "
      z <- readLn
      print ( chisla x y z )

import Data.List (foldl1')
 
import Control.Monad
 
import System.IO
 
maximum' :: Ord a => [a] -> a
maximum' = foldl1' max 
 
getValues :: Read a => IO [a]
getValues = do putStr "> "
               hFlush stdout
               input <- getLine
               if input == ""
               then return []
               else liftM (read input :) getValues
 
main :: IO ()
main = 
  putStrLn "Input values (empty line to stop):" >>
  (getValues :: IO [Int]) >>= print . maximum'

main :: IO ()
xs::[Double]->[Double]
--dob::Double->[Double]
xs x=xs++x
main = do putStr "Введите список чисел. Для окончания ввода списка введите q"
      x <- readLn
      print (if x=='q' then maximum xs else xs x)

import Data.List (foldl1')
 
import System.IO
 
maximum' :: Ord a => [a] -> a
maximum' = foldl1' max 
 
getInput :: IO [Int]
getInput = readLn
                     
main :: IO ()
main = do
  putStrLn "Input integers:"
  getInput >>= print . maximum'

main = do putStrLn "Input integers:"
          xs <- getLine
          print . maximum . map (read :: String -> Int) . words $ xs

 . words $ xs

Prelude> words "Hello world"
["Hello","world"]
Prelude> words "Hello\tworld"
["Hello","world"]

liftM (read input :) getValues
(read input :) `fmap` getValues