aoc2022day1.hs

import qualified Data.Text as T
import Data.List

main = do 
  input <- readFile "input.txt"
  putStrLn $ show $ fn input

fn :: String -> Integer
fn =
  sum
  . take 3
  . sortOn (0-)
  . fmap (sum . (fmap read) . (split "\n"))
  . split "\n\n"

split :: String -> String -> [String]
split delim str = fmap T.unpack $ T.splitOn (T.pack delim) (T.pack str)