X-Git-Url: https://git.njae.me.uk/?a=blobdiff_plain;f=advent22%2FMain.hs;h=dc67b3f6cfc14e2826f6782ca8c2a620afa81d68;hb=59554a0b7b46b8d37e5a4b0bfdd67efefe285dc7;hp=3712b67459ad794f63427508863e947a1300bd1b;hpb=063d9534648f286c83f6f26ae619cd670acfcc4a;p=advent-of-code-21.git

diff --git a/advent22/Main.hs b/advent22/Main.hs
index 3712b67..dc67b3f 100644
--- a/advent22/Main.hs
+++ b/advent22/Main.hs
@@ -80,7 +80,9 @@ segmentSize cuboids (here, there)
   | otherwise = 0
 
 segment :: [Int] -> [(Int, Int)]
-segment evs = if null evs then [] else zip evs $ tail evs
+-- segment evs = if null evs then [] else zip evs $ tail evs
+segment [] = []
+segment evs@(_ : tevs) = zip evs tevs
 
 -- Parse the input file