adventofcode2020/2020/3.hs

main = readFile "3" >>= putStrLn . show . sum . map (\(i, elem) -> case elem !! (i * 3 `mod` length elem) of
                                                                     '#' -> 1
                                                                     _   -> 0) . zip [0..] . lines