Skip to content
Permalink
Branch: master
Find file Copy path
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (16 sloc) 636 Bytes
module Y2016.M09.D09.Exercise where
import Data.Map (Map)
{--
Now for something completely different ...
So some related cryptoarithmetic:
--}
sums :: [(String, String, Int)]
sums = [("FAT", "CAT", 904), ("STORE","CAKE",60836), ("EACH", "ROSE", 7839)]
-- solve these sums
solver :: (String, String, Int) -> Map Char Int -> [Int] -> [(Map Char Int, [Int])]
-- type signature corrected by @petermilley
solver sum ctx domain = undefined
-- solving all three will map the letter to the digits [0..9]
-- arrange the character in their digit-value order. What word do you get?
arrange :: Map Char Int -> String
arrange = undefined
You can’t perform that action at this time.