このディレクトリの索引

# 出題 :: プログラミングのお題スレ Part3 #482 # # お題:二種類の文字からなる長さが奇数の文字列があるとき多数派の文字を求める。 # 例 # aabaabbab -> a '二種類の文字からなる長さが奇数の文字列があるとき多数派の文字を求める。'(_二種類の文字からなる長さが奇数の文字列,_多数派の文字) :- 二種類の文字からなる(_二種類の文字からなる長さが奇数の文字列,_文字_1,_文字_2), '長さが奇数の文字列があるとき多数派の文字を求める。'(_二種類の文字からなる長さが奇数の文字列,_文字_1,_文字_2,_多数派の文字). 二種類の文字からなる(_二種類の文字からなる長さが奇数の文字列,_文字_1,_文字_2) :- setof(_文字,[_文字,S,E] ^ sub_atom(_二種類の文字からなる長さが奇数の文字列,S,1,E,_文字),[_文字_1,_文字_2]). '長さが奇数の文字列があるとき多数派の文字を求める。'(_二種類の文字からなる長さが奇数の文字列,_文字_1,_文字_2,_多数派の文字) :- 二種類の文字の数を数える(_二種類の文字からなる長さが奇数の文字列,_文字_1,_文字_2,L1,L2), 多数派の文字(L1,L2,_文字_1,_文字_2,_多数派の文字). 二種類の文字の数を数える(_二種類の文字からなる長さが奇数の文字列,_文字_1,_文字_2,L1,L2) :- 文字列中のある文字の文字数を形象化してならびとする(_二種類の文字からなる長さが奇数の文字列,_文字_1,L1), 文字列中のある文字の文字数を形象化してならびとする(_二種類の文字からなる長さが奇数の文字列,_文字_2,L2). 文字列中のある文字の文字数を形象化してならびとする(_文字列,_文字,_文字数を形象化したならび) :- findall(_,sub_atom(_文字列,_,1,_,_文字),_文字数を形象化したならび). 多数派の文字(L1,L2,_多数派の文字,_,_多数派の文字) :- append(L2,[_|_],L1). 多数派の文字(L1,L2,_,_多数派の文字,_多数派の文字) :- append(L1,[_|_],L2).