Untitled
unknown
haskell
5 months ago
265 B
3
Indexable
module Main where import Data.List (transpose) main :: IO () main = do contents <- readFile "input.txt" let [llist, rlist] = transpose $ map (map read . words) $ lines contents :: [[Int]] print $ sum $ (map (\x -> x * (length $ filter (== x) rlist)) llist)
Editor is loading...
Leave a Comment