Permalink
Switch branches/tags
Nothing to show
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
28 lines (18 sloc) 591 Bytes
module Y2017.M05.D08.Exercise where
-- below imports available via 1HaskellADay git repository
import Data.Numeral.QBits
{--
So, we're back on the chain gang.
No: we're back to solving cryptarithmic puzzles via the Mensa Genius Quiz-a-Day
Book by Dr. Abbie F. Salny, et al.
"In this addition alphametic, you can replace each letter with a number (the
same number for each letter) to find a correct arithmetic solution.
(Hint: A = 1)
H A N G
H A N G
+ H A N G
---------
G A N G S
--}
hangGangs :: Nums -> Nums -> (Nums, Nums)
hangGangs hang gangs = undefined