作业，想用Prolog解决

以下是一个使用Prolog解决作业问题的示例：

假设我们有一个作业清单，其中包含每个学生的姓名和他们需要完成的作业数量。我们想要找出至少需要完成三项作业的学生。

% 定义作业清单
作业清单([("小明", 2), ("小红", 4), ("小刚", 3), ("小丽", 5), ("小强", 1)]).

% 定义谓词，用于判断一个学生是否至少需要完成三项作业
至少三项作业(X) :- 作业清单(List), member((X, N), List), N >= 3.

% 查询至少需要完成三项作业的学生
?- 至少三项作业(X).

在上面的代码中，我们首先定义了一个作业清单，其中包含了每个学生的姓名和作业数量。然后，我们定义了一个谓词至少三项作业(X)，该谓词通过查询作业清单，找到至少需要完成三项作业的学生。最后，我们通过查询?- 至少三项作业(X)来获取结果。

运行上述代码，Prolog将返回至少需要完成三项作业的学生姓名，即X = "小红"、X = "小刚"和X = "小丽"。