list - プロローグ - 要素のリストを検索し、要素が見つかった場合はリストを出力します

Question

そのため、次のことを行う小さなプログラムを作成しようとしています。

リスト内の要素を検索できます。要素がリスト内で見つかった場合、リストが印刷されて、見つかったことを確認します。

したがって、基本的な擬似では-

1. 要素のリスト - コンピューター、マウス、キーボード、ウェブカメラ
2. このリストでマウスを検索
3. マウスが見つかったリストを出力する

いくつかの読書をしているときに、私がやりたいことをほとんど行うものを見つけました。これは以下です

on(Item,[Item|Rest]).  

on(Item,[DisregardHead|Tail]):-
on(Item, Tail). 

クエリを入力すると、on(リンゴ、[ナシ、ブドウ、バナナ、プラム、リンゴ])。次に、リストを検索し、最後に到達して成功するまで、関連のない要素を破棄します。

私がやりたいことは、エディターで独自のリストを作成し、上記のように同じ種類の機能を実行して作業することです (リストをクエリとしてコンソールに入力するだけではありません)。

ありがとう

Answer 1

プログラムで定義できます

list_of_my_elements([pear, grape, banana, plum, apples]).

in_my_list_of_elements(X) :- 
    list_of_my_elements(L),
    member(X, L).

次にクエリ

?- in_my_list_of_elements(apple).

メンバー述語を再実装して名前を変更することはしません。