first puzzle complete

2014-09-28 14:52:05 -07:00
parent fbbc7519a8
commit 4bd400dff3
3 changed files with 142 additions and 109 deletions
--- a/desktop/src-common/advent/screens/dialogue.clj
+++ b/desktop/src-common/advent/screens/dialogue.clj
@@ -82,7 +82,7 @@
  :on-touch-down (fn [screen [entities]]
                   (let [{:keys [x y]} (input->screen screen {:x (:input-x screen) :y (:input-y screen)})]
                     (when (seq entities)
-                       (when (< y (* 30 (count entities)))
+                       (when (< y (* 30 (dec (count entities))))
                         ((get-in entities [:state :callback]) (int (/ y 30))) 
                         {}))))