このディレクトリの索引
文字列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),!.