このディレクトリの索引

# 出典 :: 正規表現 Part7 #332 # ●環境 # vb.net # # ●したいこと # 3文字以上の繰り返し表現を抽出 # # ●サンプル # 例文1)死にたい死にたい死にたい死にたい死にたい # 結果1)死にたい # # ●したいこと # 2箇所以上出現する3文字以上の文字列 # # 例文2)筋肉バスターと阿修羅バスター # 結果2)バスター # # # ってのを正規表現でやるのは無理でしょうか・・・ # '重複しない3文字以上の繰り返し表現を抽出'(_文字列,_重複しない3文字以上の繰り返し表現ならび) :- setof(_3文字以上の繰り返し表現,( _3文字以上の繰り返し表現 ^ '3文字以上の繰り返し表現を抽出'(_文字列,_3文字以上の繰り返し表現)),_重複しない3文字以上の繰り返し表現ならび). '3文字以上の繰り返し表現を抽出'(_文字列,_3文字以上の繰り返し表現) :- 副文字列(_文字列,_前文字列,_3文字以上の繰り返し表現,_後文字列), '3文字以上の繰り返し表現を'(_文字列,_3文字以上の繰り返し表現,_後文字列). '3文字以上の繰り返し表現を'(_文字列,_3文字以上の繰り返し表現,_後文字列) :- '3文字以上の'(_3文字以上の繰り返し表現,_文字長), sub_atom(_後文字列,_,_文字長,_,_3文字以上の繰り返し表現). '3文字以上の'(_3文字以上の繰り返し表現,_文字長) :- atom_length(_3文字以上の繰り返し表現,_文字長), _文字長 >= 3. 副文字列(_文字列,_前文字列,_副文字列,_後文字列) :- atom_concat(_前文字列,_残り文字列,_文字列), atom_concat(_副文字列,_後文字列,_残り文字列).