このディレクトリの索引
#  @deep_verdure氏のツイートから
#  
#  @deep_verdure
#  linearsearch(_,[]) :- fail.
#  linearsearch(X,[Y|Z]) :- (Y=X)->format('find!!');linearsearch(X,Z).
#  
#  線形探索にすら再帰が必要な時点で自分はPrologを敵とみなした

線形探索(X,[Y|Z]) :-
        X = Y,
        format('find!!'),!.
線形探索(X,[_|Z]) :-
        線形探索(X,Z).


線形探索(L,_前,X,_後) :-
        append(_前,[X|_後],L).