いろんな言語で宿題スレ 第三編at TECHいろんな言語で宿題スレ 第三編 - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このｽﾚｯﾄﾞの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まで列記する # プログラムを作りなさい。 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch