Исключение максимального элемента из списка

main:: IO () 
main = getLine >> getLine >>= print . filter (<max). sum . map (read :: String -> Int) .words

getLine >> getLine >>=
  print . sum . (\list -> filter (< maximum list) list) . map (read :: String -> Int) .words

import Data.List
 
main:: IO ()
main = getLine >> getLine >>= print . sum . init . sort . map (read :: String -> Int) .words

getLine >> getLine >>=
  print . sum . do { max <- maximum; filter (< max) } . map (read :: String -> Int) . words

task x = h (tail x) (head x) (head x)
         where h [] m s = s - m
               h (x:xs) m s | (x > m)   = h xs x (s+x)
                            | otherwise = h xs m (s+x)

task' x = sum $ filter (/= max) x
          where max = maximum x

task [] = 0
task (x:xs) = h xs x x 1
         where h [] m s ms = s - ms
               h (x:xs) m s ms | x == m    = h xs x (s+x) (m+ms)
                               | x >  m    = h xs x (s+x) x
                               | otherwise = h xs m (s+x) ms

task [] = 0
task (x:xs) = let (_, s, s') = foldl acc (x, x, x) xs in s - s'
 
acc (m, s, s') x | x == m    = (m, s + x, s' + x)
                 | x >  m    = (x, s + x, x)
                 | otherwise = (m, s + x, s')