このディレクトリの索引
文字列text[]と文字列pat[]が与えられたとき、文字列text中に文字列patが含まれるときは最初に現れるその文字列の先頭の位置(0〜)を返し、含まれないときは-1を返す関数searchを作成せよ。
# また、その関数を用いて、2つの文字列text[]とpat[](空白は含まない)を入力すると関数searchの値を返すプログラムを作成せよ。ここでtextとpatには長さ1以上の文字列が入っているものとする。
# (例:text[]="thisisatesttextdata"の中に、pat[]="this"は0の位置に、pat[]="test"は7の位置に現れる。) 

search(Text,Pat,Start) :-
  sub_atom(Text,Start,_,_,Pat),!.
search(_,_,-1).

search(Start) :-
  write('Text :'),get_line(Text),
  write('Pat :'),get_line(Pat),
  search(Text,Pat,Start),!.