いろんな言語で宿題スレ 第三編
at TECH
[
2ch
|
▼Menu
]
■コピペモード
□
スレを通常表示
□
オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト
728:デフォルトの名無しさん 10/02/16 16:48:06 >>727 (>>723) % Prolog ペア度数の数え方ですが、ワンペアを1 ツーペアを2 と勘定するなら % ここでは採用していないがスリーカーズを3 フォーカーズを4と数えるなどもあるかもしれない。 役(L,N,0) :- sort(L,L1),ペア(L1,0,N),\+(N=0),!. 役([A|R],0,1) :- sub_atom(A,1,1,_,_種類),フラッシュ(_種類,R),!. ペア([],N,N) :- !. ペア([A,B],N1,N) :- sub_atom(A,0,1,_,C),sub_atom(B,0,1,_,C),N is N1 + 1,!. ペア([A,B,C|R],N1,N) :- sub_atom(A,0,1,_,E),sub_atom(B,0,1,_,E),sub_atom(C,0,1,_,E),ペア(R,N1,N),!. ペア([A,B,C|R],N1,N) :- sub_atom(A,0,1,_,E),sub_atom(B,0,1,_,E),\+(sub_atom(C,0,1,_,E)),N2 is N1 + 1,ペア([C|R],N2,N),!. ペア([A|R],N1,N) :- ペア(R,N1,N). 729:デフォルトの名無しさん 10/02/17 21:53:46 # 公開された日本最大の競馬情報データベースjbisのサイトで # ディープインパクトの五代血統表は # http://www.jbis.or.jp/horse/0000742976/pedigree/ を検索することによって # 得られます。このサイトを利用し、これを起点にして、 # 父系(父親の父親の父親・・・と遡る)20代前の大種牡馬Eclipseまで列記する # プログラムを作りなさい。
次ページ
最新レス表示
スレッドの検索
類似スレ一覧
話題のニュース
おまかせリスト
▼オプションを表示
レスジャンプ
mixiチェック！
Twitterに投稿
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch
4385日前に更新/462 KB
担当:undef