你好，所以我一直坚持使用Prolog中的一个小程序。
我有一个小知识库，我正在尝试打印一个列表，例如，如果X i从用户读取的是1，那么学生喜欢的课程。
collect_results:-
read(X),
read(Y),
\+(X>5),
\+(X<1),
X =:= 1:-
setof(Z,kb(Y,K,Z)^kb(Y,K,Z),L).
这是我试图制作的代码。
Y是我要打印列表的人。 它可能需要像迈克这样的名字，然后我想打印迈克喜欢的课程。
如果X等于2，我想稍后添加更多选项，例如打印其他内容等等。任何有关如何正确操作的提示都将不胜感激。