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

Day 1: 132

Browse source
This commit is contained in:
Christoph Stahl 2022-12-01 15:17:14 +01:00
parent e84d53fab4
commit 2ff7e4eb55
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,2 +1,2 @@
import Data.List
main=interact$show.(\s->(head s,sum$take 3$s)).reverse.sort.map(sum.map read.filter(/="")).(groupBy(\b->(/=""))).lines
main=interact$show.((,).head<*>(sum.take 3)).reverse.sort.map(sum.map read.filter(>"")).(groupBy(\b->(>""))).lines