tA/evac
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

fixed non exhaustive on rmFirstMatch

Browse Source
This commit is contained in:
Thorn Avery 2019-05-18 19:46:00 +12:00
parent fe97ea1432
commit 43cd96e6cc
1 changed files with 1 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
State.hs
View File

@ -39,6 +39,7 @@ numPut :: Either MainCharacter MainEva -> PutCards -> Integer
numPut c p = toInteger $ length $ filter (\x -> (fst x) == c) p numPut c p = toInteger $ length $ filter (\x -> (fst x) == c) p
rmFirstMatch :: [a] -> (a -> Bool) -> [a] rmFirstMatch :: [a] -> (a -> Bool) -> [a]
rmFirstMatch [] _ = []
rmFirstMatch (l:ls) f rmFirstMatch (l:ls) f
| f l = ls | f l = ls
| otherwise = (l : rmFirstMatch ls f) | otherwise = (l : rmFirstMatch ls f)