fuxino/AdventOfCode2024
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Remove unused import

Browse Source
This commit is contained in:
daniele 2024-12-05 10:35:03 +01:00
parent 16fbbb5971
commit ed2e74ba45
Signed by: fuxino
GPG Key ID: 981A2B2A3BBF5514
4 changed files with 0 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Day1/puzzle1.hs
View File

@ -1,5 +1,4 @@
import Data.List (transpose, sort) import Data.List (transpose, sort)
import System.IO
listDistance :: [Int] -> [Int] -> Int listDistance :: [Int] -> [Int] -> Int
listDistance xs ys = sum $ map abs $ zipWith (-) (sort xs) (sort ys) listDistance xs ys = sum $ map abs $ zipWith (-) (sort xs) (sort ys)

1
Day1/puzzle2.hs
View File

@ -1,5 +1,4 @@
import Data.List (transpose, sort, group) import Data.List (transpose, sort, group)
import System.IO
similarityScore :: [Int] -> [Int] -> Int similarityScore :: [Int] -> [Int] -> Int
similarityScore xs ys = let elemsY = [ (head y, length y) | y <- (group . sort) ys ] similarityScore xs ys = let elemsY = [ (head y, length y) | y <- (group . sort) ys ]

1
Day2/puzzle1.hs
View File

@ -1,5 +1,4 @@
import Data.List (sort) import Data.List (sort)
import System.IO
isSafe :: [Int] -> Bool isSafe :: [Int] -> Bool
isSafe xs = (isAscending xs || isDescending xs) && maximum distances <= 3 && minimum distances >= 1 isSafe xs = (isAscending xs || isDescending xs) && maximum distances <= 3 && minimum distances >= 1

1
Day2/puzzle2.hs
View File

@ -1,5 +1,4 @@
import Data.List (sort, inits, tails) import Data.List (sort, inits, tails)
import System.IO
isSafe :: [Int] -> Bool isSafe :: [Int] -> Bool
isSafe xs = (isAscending xs || isDescending xs) && maximum distances <= 3 && minimum distances >= 1 isSafe xs = (isAscending xs || isDescending xs) && maximum distances <= 3 && minimum distances >= 1