- 636 名前：デフォルトの名無しさん mailto:sage [2010/02/08(月) 04:33:36 ]
- >>633
% Prolog
入力された2つの文字列Str1,Str2を比較し、Str1にStr2の文字列が含まれている場合に1を、含まれていない場合に-1を返す(Str1,Str2,1) :-
'Str1にStr2の文字列が含まれている'(Str1,Str2),!.
入力された2つの文字列Str1,Str2を比較し、Str1にStr2の文字列が含まれている場合に1を、含まれていない場合に-1を返す(Str1,Str2,(-1)) :-
'Str1にStr2の文字列が含まれていない'(Str1,Str2),!.
'Str1にStr2の文字列が含まれている'(Str1,Str2) :-
sub_atom(Str1,_,_,_,Str2),!.
'Str1にStr2の文字列が含まれていない'(Str1,Str2) :-
\+(sub_atom(Str1,_,_,_,Str2)),!.
