diff options
Diffstat (limited to '2015/day10.hs')
-rw-r--r-- | 2015/day10.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/2015/day10.hs b/2015/day10.hs new file mode 100644 index 0000000..e5ff554 --- /dev/null +++ b/2015/day10.hs @@ -0,0 +1,18 @@ +module Main where + +import Data.Char +import Data.List +import Control.Monad + +looksay :: String -> String +looksay "" = "" +looksay s = chr (48 + length start) : head s : looksay rest + where start = takeWhile (== head s) s + rest = drop (length start) s + +day9 :: IO () +day9 = do + let input = "1113122113" + print $ length $ (iterate looksay input) !! 50 + +main = day9 |