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

Day 1: 129

Browse source
This commit is contained in:
Christoph Stahl 2022-12-01 19:52:34 +01:00
parent 2ff7e4eb55
commit 8c0b441410
1 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
day1.hs
View file

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