10/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)),!.