Haskell max function

-- fold the list:

maximum' :: Ord a => [a] -> a
maximum' = foldr1 (\x y ->if x >= y then x else y)

--For the recursive version (no double checking):

maximum'' :: Ord a => [a] -> a
maximum'' [x]       = x
maximum'' (x:x':xs) = maximum' ((if x >= x' then x else x'):xs)

-- If you want wards:

maximum'' :: Ord a => [a] -> a
maximum'' [x]       = x
maximum'' (x:x':xs) | x >= x'   = maximum' (x:xs)
maximum'' (x:x':xs) | otherwise = maximum' (x':xs)

Source: stackoverflow.com

Similar codes

3 votes423 views1 answer
Haskell multiline comment
Haskell
0 vote233 views1 answer
Haskell function
Haskell
0 vote420 views1 answer
Haskell split a list at position n
Haskell
1 vote398 views1 answer
String to list haskell
Haskell
0 vote332 views1 answer
Can't do a reify in the IO monad
Haskell
1 vote478 views1 answer
Int to float haskell
Haskell
0 vote260 views1 answer
Haskell string split
Haskell
0 vote230 views1 answer
Cabal package from GitHub
Haskell
1 vote427 views1 answer
Haskell fibonacci
Haskell
0 vote412 views1 answer
\n dont work in haskell
Haskell