Data.SBV.Examples.Puzzles.DogCatMouse

Puzzle: Spend exactly 100 dollars and buy exactly 100 animals. Dogs cost 15 dollars, cats cost 1 dollar, and mice cost 25 cents each. You have to buy at least one of each. How many of each should you buy?

Documentation

type Count = SWord16

Use 16-bit words to represent the counts, much larger than we actually need, but no harm.

puzzle :: Count -> Count -> Count -> SBool

Codes the puzzle statement, more or less directly using SBV.

solve :: IO AllSatResult

Prints the only solution:

>>> solve
Solution #1:
  dog = 3 :: SWord16
  cat = 41 :: SWord16
  mouse = 56 :: SWord16
This is the only solution.