day1: 137

2022-12-01 12:55:06 +01:00 · 2022-12-01 12:55:06 +01:00 · e84d53fab4
commit e84d53fab4
3 changed files with 2258 additions and 0 deletions
--- a/day1.hs
+++ b/day1.hs
@ -0,0 +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
--- a/2242
+++ b/2242
--- a/14
+++ b/14
@ -0,0 +1,14 @@
+1000
+2000
+3000
+
+4000
+
+5000
+6000
+
+7000
+8000
+9000
+
+10000