Commits

Luke Plant committed 055bf77

Renamed argument for clarity

Comments (0)

Files changed (1)

              _ -> combos
 
      findRoutes' :: WordMap -> Int -> Int -> [Combo]
-     findRoutes' words start end =
+     findRoutes' wordMap start end =
          do
            -- find words that start as position 'start':
-           ((p,len),ws) <- filter (\((p,_),_) -> p == start) words
+           ((p,len),ws) <- filter (\((p,_),_) -> p == start) wordMap
            w <- ws
            if p + len == end
               then return [w] -- last segment