From 2ff7e4eb55f3700246f8f02a1f33292f761404ba Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Thu, 1 Dec 2022 15:17:14 +0100
Subject: [PATCH] Day 1: 132

---
 day1.hs | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/day1.hs b/day1.hs
index e7fbc91..624d9dd 100644
--- a/day1.hs
+++ b/day1.hs
@@ -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