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

Day 1: 127

Browse source
This commit is contained in:
Christoph Stahl 2022-12-01 20:27:48 +01:00
parent 8c0b441410
commit 2c0fae1d85
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 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 main=interact$show.((,).head<*>sum.take 3).reverse.sort.foldr(%)[0].lines