Untitled

 avatar
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