Skip to content
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.