 ;; 15 puzzle solver
-;; 2015-05-17
+;; 2015-05-18
 ;; Leonardone @ NEETSDKASU
 ;;
 ;; ググったら15パズルにはA*アルゴリズムを使えと書いてあった



(defn Puzzle-Solve [pb]
	(let [pbst (Puzzle-MakeState pb 0 0) pbdt (Puzzle-Data pb) pbval (Puzzle-Cost pb)]
	(if (== pbdt (Puzzle-Data Puzzle-Default))
		()

							
					
(defn main []
	;;(loop [r (Puzzle-Solve (Puzzle-Shuffle Puzzle-Default 200))]
	(loop [r (Puzzle-Solve (Puzzle-Input))]
		(if (empty? r) nil
			(let [n (peek r)]
