いろんな言語で宿題スレ
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
100:デフォルトの名無しさん 09/06/05 17:56:46 >>99 % Prolog (1/2) 可能経路数(_桝,_開始点_X,_開始点_Y,_経路の数) :- findall(1,駒の動き(_開始点_X,_開始点_Y,_),L), length(L,_経路の数). 駒の動き(_桝,_開始点_X,_開始点_Y,_経路) :- 駒の動き(_桝,_開始点_X,_開始点_Y,[[_開始点_X,_開始点_Y]],_経路). 駒の動き(_桝,X,Y,L,_経路) :- 移動可能点(_桝,X,Y,X2,Y2), not(member([X2,Y2],L)), 駒の動き(_桝,X2,Y2,[[X2,Y2]|L],_経路). 駒の動き(_桝,X,Y,L,_経路) :- _桝2 is _桝 * _桝, list_length(L,_桝2), reverse(L,_経路). 101:デフォルトの名無しさん 09/06/05 17:57:51 >>99 % Prolog (2/2) 変位(2,1). 変位(1,2). 変位(-1,2). 変位(-2,1). 変位(-2,-1). 変位(-1,-2). 変位(1,-2). 変位(2,-1). 移動可能点(_桝,I,J,X,Y) :- 変位(U,W), X is I+U, Y is J+W, X > 0, X =< _桝, Y > 0, Y =< _桝.
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4630日前に更新/314 KB
担当:undef