aoc2022/1-a.hs

9 lines
179 B
Haskell

{-# LANGUAGE OverloadedStrings #-}
import qualified Data.Text as T
main = interact $
show
. maximum
. map (sum . map read . lines . T.unpack)
. T.splitOn "\n\n" . T.pack