christofsteel/aoc2022
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Day 1: 125

Browse source
This commit is contained in:
Christoph Stahl 2022-12-01 20:32:11 +01:00
parent 2c0fae1d85
commit 566465da30
1 changed files with 1 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
day1.hs
View file

@ -1,3 +1,3 @@
import Data.List
w%(h:t)|w>""=(read w+h):t|let=0:h:t
w%(h:t)|w>""=read w+h:t|let=0:h:t
main=interact$show.((,).head<*>sum.take 3).reverse.sort.foldr(%)[0].lines