11 lines
263 B
Haskell
11 lines
263 B
Haskell
|
#!/usr/bin/env stack
|
||
|
|
-- stack --resolver lts-12.5 script
|
||
|
|
|
||
|
|
-- WORK IN PROGRESS
|
||
|
|
|
||
|
|
module Day3B where
|
||
|
|
import Text.Regex.TDFA
|
||
|
|
|
||
|
|
main :: IO ()
|
||
|
|
main = print $ ("#1 @ 662,777: 18x27" =~ "#(\\d+) @ (\\d+),(\\d+): (\\d+)x(\\d+)" :: (String, String, String, String, String))
|