src/Advent/Input.hs

   1 module Advent.Input where
   2
   3 import Text.Regex.TDFA
   4 import Text.Regex.TDFA.String ()
   5
   6 -- TODO: Fully automatic input format detection and parsing.
   7
   8 findAll :: String -> String -> [String]
   9 findAll r x = getAllTextMatches $ x =~ r
  10
  11 findAllRead :: Read b => String -> String -> [b]
  12 findAllRead = (map read .) . findAll
  13
  14 findAllNums :: String -> [Int]
  15 findAllNums = findAllRead "[0-9]+"