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

0 vote372 views1 answer
Point free style haskell
Haskell
0 vote339 views1 answer
Haskell string split
Haskell
5 votes373 views2 answers
Haskell get last element of list
Haskell
0 vote314 views1 answer
Haskell int to text
Haskell
1 vote357 views1 answer
Get first char from string haskell
Haskell
2 votes406 views2 answers
Haskell guards
Haskell
0 vote323 views1 answer
Haskell return false if list empty
Haskell
4 votes304 views2 answers
Haskell append to list
Haskell
0 vote353 views1 answer
Haskell merge lists
Haskell
1 vote409 views1 answer
Int to float haskell
Haskell