From 6ea9780d8153419911ef259e1751d6dbf2e3bae8 Mon Sep 17 00:00:00 2001 From: Christoph Stahl Date: Sun, 5 Dec 2021 22:58:11 +0100 Subject: [PATCH] Day 5v2: 262 --- d5golf2.hs | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/d5golf2.hs b/d5golf2.hs index 2a3ac7b..51a4646 100644 --- a/d5golf2.hs +++ b/d5golf2.hs @@ -1,7 +1,7 @@ import Data.List x?y=x+signum(y-x) -v i[a,b]=i$w(==)a b +i#[a,b]=i$w(==)a b m=map;l=length;f=filter;w=zipWith z a|(x,_:y)<-break(<'.')a=m read[x,y] -n[f,d]|v and[f,d]=[f]|let=f:n[w(?)f d,d] -main=interact$show.m(l.f(>1).m l.group.sort.(n=<<)).(\x->[x,f(v or)x]).m(m z.f(>".").words).lines \ No newline at end of file +n[f,d]|and#[f,d]=[f]|let=f:n[w(?)f d,d] +main=interact$show.m(l.f(>1).m l.group.sort.(n=<<)).(\x->[x,f(or#)x]).m(m z.f(>".").words).lines \ No newline at end of file