From a65b14a35ab7f486dbd0c959537238f35e01bce0 Mon Sep 17 00:00:00 2001
From: Dominic Zimmer <s8dozimm@stud.uni-saarland.de>
Date: Fri, 3 Dec 2021 00:15:24 +0100
Subject: [PATCH] Evens is odds dot tail

---
 3.hs | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/3.hs b/3.hs
index aa5d0e7..e8678e7 100644
--- a/3.hs
+++ b/3.hs
@@ -22,8 +22,9 @@ partA = getPositions
         coords  _  = (0, 0)
 
 partB :: [Char] -> [(Int, Int)]
-partB l = id =<< [ partA . odds $ l, partA . odds . tail $ l]
+partB l = id =<< [ partA . odds $ l, partA . evens $ l]
     where
+        evens = odds . tail
         odds [] = []
         odds [x] = [x]
         odds (x:y:r) = x:(odds r)