From c5519a865dde77c4238755c03a8af7aa2fed46dd Mon Sep 17 00:00:00 2001
From: Christoph Stahl <christoph.stahl@tu-dortmund.de>
Date: Sat, 4 Dec 2021 17:46:43 +0100
Subject: [PATCH] Day 4: rearranged

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

diff --git a/d4golf.hs b/d4golf.hs
index 6c89406..d3bba8d 100644
--- a/d4golf.hs
+++ b/d4golf.hs
@@ -2,9 +2,9 @@ import Data.Either
 e=[]:e
 a=m.m.m.k
 h=any$all i
+w p=head.rights.p
 a?b|c a,i b=b|let=l 0
 k d i|i==l d=r d|let=i
-w p=head.rights.p
 (x:y)#f=m(x!)(a x f):y#a x f
 v[]=[];v s=tail(take 6 s):v(drop 6 s)
 s(v:t)|'.'>v=[]:s t|(x:u)<-s t=(v:x):u