From: Neil Smith <neil.git@njae.me.uk>
Date: Fri, 2 Dec 2016 13:40:34 +0000 (+0000)
Subject: Keyboards can be rectangular, not necessarily square
X-Git-Url: https://git.njae.me.uk/?p=advent-of-code-16.git;a=commitdiff_plain;h=e7dcc3122718d94c9d48b8be680b4044a2f41f9e

Keyboards can be rectangular, not necessarily square
---

diff --git a/advent02.hs b/advent02.hs
index 99df10c..3ea1559 100644
--- a/advent02.hs
+++ b/advent02.hs
@@ -21,7 +21,7 @@ kb2 = ["xxxxxxx",
 enumerate = zip [0..]
 
 mkKeyboard :: [String] -> Keyboard
-mkKeyboard kb = array ((0, 0), (length kb - 1, length kb - 1))
+mkKeyboard kb = array ((0, 0), (length kb - 1, length (kb!!0) - 1))
     [((i, j), c) | (i, r) <- enumerate kb, (j, c) <- enumerate r]
 
 keyboard1 = mkKeyboard kb1