From: Neil Smith <neil.git@njae.me.uk>
Date: Tue, 10 May 2022 16:49:00 +0000 (+0100)
Subject: Minor tweak
X-Git-Url: https://git.njae.me.uk/?a=commitdiff_plain;h=59554a0b7b46b8d37e5a4b0bfdd67efefe285dc7;p=advent-of-code-21.git

Minor tweak
---

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