このディレクトリの索引
#  出題場所 :: http://toro.2ch.net/test/read.cgi/tech/1381909900/403
#  [1] プログラミング 
#  [2] 問題文(含コード&リンク): 
#  文字列s、pを与えられ文字列sの中の先頭から順に調べpに一致する部分文字列が 
#  見つかったらその部分文字列の先頭を指すポインタを、見つからない場合NULLを返す 
#  SEARCH関数を作る 
#  

'文字列s、pを与えられ文字列sの中の先頭から順に調べpに一致する部分文字列が
見つかったらその部分文字列の先頭を指すポインタを、見つからない場合NULL(-1)を返す'(_s,_p,_先頭位置) :-
        sub_atom(_s,_先頭位置,_,_,_p),!.
'文字列s、pを与えられ文字列sの中の先頭から順に調べpに一致する部分文字列が
見_つかったらその部分文字列の先頭を指すポインタを、見つからない場合NULL(-1)を返す'(_,_,(-1)).