Gattix/AoC
3
0
Fork 0
Code Issues 1 Pull Requests Releases Wiki Activity

day 3: elemIndex exists, amaze

This commit is contained in:
shu 2019-12-03 23:27:32 +01:00
parent 6ef036e2c5
commit e544fbb877
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
2019/day3/day3.hs
View File

@ -31,5 +31,5 @@ intersections :: [V2 Int] -> [V2 Int] -> Set.Set (V2 Int)
intersections xs ys = Set.delete (V2 0 0) crossset
where crossset = (Set.fromList xs) `Set.intersection` (Set.fromList ys)
day3b xs ys = minimum [let f = fromJust . findIndex (==x) in
day3b xs ys = minimum [let f = fromJust . elemIndex x in
f xs + f ys | x<-Set.toList $ intersections xs ys]