Copyright | (c) Levent Erkok |
---|---|

License | BSD3 |

Maintainer | erkokl@gmail.com |

Stability | experimental |

Safe Haskell | None |

Language | Haskell2010 |

A solution to Project Euler problem #185: http://projecteuler.net/index.php?section=problems&id=185

# Documentation

guesses :: [(String, SWord8)] Source #

The given guesses and the correct digit counts, encoded as a simple list.

euler185 :: Symbolic SBool Source #

Encode the problem, note that we check digits are within 0-9 as we use 8-bit words to represent them. Otherwise, the constraints are simply generated by zipping the alleged solution with each guess, and making sure the number of matching digits match what's given in the problem statement.

solveEuler185 :: IO () Source #

Print out the solution nicely. We have:

`>>>`

4640261571849533 Number of solutions: 1`solveEuler185`