mx42/aoc
1
0
Fork 0
mirror of https://github.com/mx42/adventofcode.git synced 2026-01-14 13:59:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

Add 2015 day 10

Browse Source
This commit is contained in:
Xavier Morel
2020-12-09 18:50:34 +01:00
parent dd8f2ae9dc
commit 12a8275359
3 changed files with 17 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
haskellAoC/inputs/2015/10 Normal file
View File

@@ -0,0 +1 @@
1113222113

14
haskellAoC/src/Y2015/Day10.hs Normal file
View File

@@ -0,0 +1,14 @@
module Y2015.Day10 (y15day10) where
import Data.List
lookAndSay :: String -> String
lookAndSay input = concat $ map describe_group $ group input
where describe_group g = (show $ length g) ++ (head g):""
y15day10 :: [String] -> (String, String)
y15day10 (input:_) = (part1, part2)
where part1 = show $ length $ part1resp
part2 = show $ length $ head $ drop 10 $ iterate lookAndSay part1resp
part1resp = head $ drop 40 $ iterate lookAndSay input

2
haskellAoC/src/Y2015/Days.hs
View File

@@ -9,6 +9,7 @@ import Y2015.Day06
import Y2015.Day07
import Y2015.Day08
import Y2015.Day09
import Y2015.Day10
year2015 :: String -> [String] -> (String, String)
year2015 "01" = y15day01
@@ -20,3 +21,4 @@ year2015 "06" = y15day06
year2015 "07" = y15day07
year2015 "08" = y15day08
year2015 "09" = y15day09
year2015 "10" = y15day10