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 баллов)