Prolog - Как утвердить/сделать базу данных только один раз

Question

resultList(UsersQuery):- 
    question(X,H), 
    write(H), 
    myintersection(H,UsersQuery,Match,TotalQuestionKeywords), 
    Percent is Match/TotalQuestionKeywords*100, 
    write('Question: '), 
    write(X),nl,write('Quality: '), write(Percent),write('%'),nl, 

    /* please look at this part 
    Percent>=50, 
    assert(listofQuestions(Percent,Question)), 
    write(Percent),write(Question),nl, 
    fail. 
resultList(_). 

Я хочу заполнить базу данных фактов с именем «listofQuestions». Все работает нормально, но вещи, которые я утверждаю, остаются в памяти. Итак, если я снова запустил свою программу, я получаю ту же кучу фактов, добавленных в «listofQuestions».

Я только хочу иметь один набор данных.

Thankyou

Answer 1

Может быть сделать retractall/1, прежде чем повторно запустить программу.

Answer 2

Сделайте отдельный предикат для утверждения, который проверяет, если факт еще не утверждал:

assertThisFact(Fact):- 
    \+(Fact),!,   % \+ is a NOT operator. 
    assert(Fact). 
assertThisFact(_).