thorn/aoc2020
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

removed unneeded Ord

Browse source
This commit is contained in:
Thorn Avery 2020-12-06 20:44:58 +13:00
parent f48f0459ac
commit c8eb59c10f
1 changed files with 3 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
day6.hs
View file

@ -1,4 +1,4 @@
import Data.List (nub, sort) import Data.List (nub)
main :: IO () main :: IO ()
main = do main = do
@ -11,8 +11,8 @@ main = do
putStrLn $ "day6a: " ++ (show ansA) putStrLn $ "day6a: " ++ (show ansA)
putStrLn $ "day6b: " ++ (show ansB) putStrLn $ "day6b: " ++ (show ansB)
match :: (Ord a, Eq a) => [a] -> [a] -> [a] match :: Ord a => [a] -> [a] -> [a]
match as bs = (sort . nub) $ filter (`elem` bs) as match as bs = nub $ filter (`elem` bs) as
split :: Eq a => a -> [a] -> [[a]] split :: Eq a => a -> [a] -> [[a]]
split _ [] = [] split _ [] = []