 							
 					
 (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)]



(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))
		()

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