diff options
author | tomsmeding <tom.smeding@gmail.com> | 2016-12-14 20:19:02 +0100 |
---|---|---|
committer | tomsmeding <tom.smeding@gmail.com> | 2016-12-14 20:19:02 +0100 |
commit | 2d02f553aa4cc4ded630628eccdf34f55937cee5 (patch) | |
tree | d5377ebdff68788725b5820d5331ce7b6c9d4a84 /2015/day10.hs | |
parent | 97b4c5d86cc12447ac6845e25a863e26a88aec35 (diff) |
Add 2015 sources
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 |