Commit 10731f4e authored by Camil Staps's avatar Camil Staps 🚀

Merge branch '64-bug-in-function-maximum-in-module-data-list' into 'master'

Resolve "Bug in function maximum in module Data.List"

Closes #64

See merge request !217
parents aabd59db baa362da
Pipeline #15500 passed with stage
in 1 minute and 45 seconds
...@@ -155,8 +155,8 @@ concatMap :: (.a -> [.b]) ![.a] -> [.b] ...@@ -155,8 +155,8 @@ concatMap :: (.a -> [.b]) ![.a] -> [.b]
concatMap f ls = flatten (map f ls) concatMap f ls = flatten (map f ls)
maximum :: !.[a] -> a | < a maximum :: !.[a] -> a | < a
maximum [x:xs] = max x (maximum xs)
maximum [x] = x maximum [x] = x
maximum [x:xs] = max x (maximum xs)
maximum [] = abort "maximum of empty list\n" maximum [] = abort "maximum of empty list\n"
minimum :: !.[a] -> a | Ord a minimum :: !.[a] -> a | Ord a
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment