Main

Description

Build a huge polymer chain and compute how many of each element it contains.

This problem requires memoization as the size of the resulting polymer would be humungous!

Synopsis

Documentation

>>> :main
2068
2158894777814

solve :: Ord a => Map (a, a) (Map (a, a) Int) -> Integer -> [a] -> Int Source #

tableToRule :: Ord a => [(a, a, a)] -> Map (a, a) (Map (a, a) Int) Source #

Generate a replacement rule map from a list of input productions

>>> tableToRule [('L','R','M')] -- LR -> M
fromList [(('L','R'),fromList [(('L','M'),1),(('M','R'),1)])]

Apply a replacement rule to a map of counts.

>>> :set -XOverloadedLists
>>> applyRule [('a', [('b',1),('c',2)]),('z',[('y',1)])] [('a',10)]
fromList [('b',10),('c',20)]