www2.koyahatataku.com
小屋畑ソフトウェアサービス ブログページProblem 68 Magic 5-gon ring. Art of Prologとかm.hiroiさんのホームページでも載っていました。 8212;—————————————————————. 盤面生成 チェック 再帰で次の盤面生成 チェック クリアするまで繰り返し. State(左岸にいる人のリスト,船に乗っている人のリスト,右岸にいる人のリスト,船の位置(left , right , crossing のいずれか). 8212;———————————————————————–. Retractall(state( , , , ) , % assertされた全stateの初期化. A=state([father,mother,son,son,daughter,daughter,maid,dog,granpa,baby],[],[],left), % Initial State. Sort state(A,A1),. Solve(state([],[], ,right) :-. Sort state(A1,A2),. Chk(state(Left,Ship,Right,Pos) :-. Select...
http://www2.koyahatataku.com/