Day10: Part2 works
This commit is contained in:
parent
7b28a5a035
commit
c4fce9b29e
9
day10.hs
9
day10.hs
|
@ -20,7 +20,8 @@ main = do
|
|||
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)
|
||||
|
|
Loading…
Reference in New Issue
Block a user