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