Evens is odds dot tail

2021-12-03 00:15:24 +01:00 · 2021-12-03 00:15:24 +01:00 · a65b14a35a
commit a65b14a35a
parent 71bfba56e7
1 changed files with 2 additions and 1 deletions
--- 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)