import Data.List (transpose, sort) listDistance :: [Int] -> [Int] -> Int listDistance xs ys = sum $ map abs $ zipWith (-) (sort xs) (sort ys) main = do contents <- lines <$> readFile "day1.txt" let [x, y] = transpose $ map read . words <$> contents print $ listDistance x y