このディレクトリの索引

# 出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1357191974/910 # お題:2文字以上の文字列が与えられたとき、隣り合う文字の大きい方の文字を # 隣り合う文字の間に挿入した文字列を返す。 # 例 # "Personal" -> "Peerrsssoonnall" # "Hello, world!" -> "Heellllooo,, wwworrrlldd!" # # '2文字以上の文字列が与えられたとき、隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字列を返す。'(_文字列,_全ての隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字列) :- atom_chars(_文字列,_文字ならび), 隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字ならび(_文字ならび,_全ての隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字ならび), atom_chars(_全ての隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字列,_全ての隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字ならび). '隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字ならび'([],[]). '隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字ならび'([A],[A]). '隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字ならび'([A,B|R1],[A,_大きい方の文字|R2]) :- 隣り合う文字の大きい方の文字(A,B,_大きい方の文字), '隣り合う文字の大きい方の文字を隣り合う文字の間に挿入した文字ならび'([B|R1],R2). 隣り合う文字の大きい方の文字(_文字_1,_文字_2,_文字_1) :- _文字_1 @>= _文字_2. 隣り合う文字の大きい方の文字(_文字_1,_文字_2,_文字_2) :- _文字_1 @< _文字_2.