From c4fce9b29eac9969407c7f90b7f02dea18eab80f Mon Sep 17 00:00:00 2001 From: Arranun Date: Wed, 11 Dec 2019 00:49:30 +0100 Subject: [PATCH] Day10: Part2 works --- day10.hs | 11 ++++++----- 1 file changed, 6 insertions(+), 5 deletions(-) diff --git a/day10.hs b/day10.hs index 8bdb185..e9809c3 100644 --- a/day10.hs +++ b/day10.hs @@ -17,10 +17,11 @@ main = do let destroyNormal = map (\(a,b)-> (((fst station) + a),((snd station) + b))) destroyed putStrLn(show maximum) putStrLn(show station) - putStrLn(show views) + putStrLn(show views) putStrLn(show sortedViews) putStrLn(show $ map degree destroyed) - putStrLn(show $ destroyNormal!!19) + putStrLn(show $ destroyNormal) + putStrLn(show $ destroyNormal!!199) mapInd :: (a -> Int -> b) -> [a] -> [b] mapInd f l = zipWith f l [0..] @@ -40,8 +41,8 @@ sortDistance ((a,b)) ((a2,b2)) | abs(a) + abs(b) == abs(a2) + abs(b2) = EQ sortDegree a b - | degree a > degree b = GT - | degree a < degree b = LT + | degree a < degree b = GT + | degree a > degree b = LT | degree a == degree b = EQ getViews :: [(Int,Int)] -> [(Int,Int)] @@ -62,4 +63,4 @@ degree :: (Int,Int) -> Double degree (a,b) = do let x = fromIntegral a let y = fromIntegral b - y / x + atan2 x (y)