Haskell - 8 Puzzle Solver