确定多项选择题的答案

Question

opt(a).
opt(b).
opt(c).
opt(d).

sequence(N, L) :-
    length(L, N),
    maplist(opt, L).
mark([], [], 0).
mark(…, …, …) :-
correct(C) :-
    sequence(10, C),
    mark(C, [b, c, b, a, c, c, c, d, c, c], 7),
    mark(C, [b, d, c, a, d, d, c, c, a, b], 6),
    mark(C, [d, a, b, b, d, d, c, d, a, b], 5),
    mark(C, [c, d, c, b, d, b, b, c, a, a], 3).

您能帮我做谓语标记/ 3吗？ 这是我必须解决的序言问题

在MCQ测试中，其中：

• 每个问题有4个选择[a，b，c，d]
• 每个问题只有一个正确答案（选择）
• 有10个问题
• 所有问题的分数均相同（1分，总计10分）