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'に追加されます。

私はただ1セットのデータを持ちたいと思っています。あなたがプログラムを再実行する前に

ありがとう

Answer 1

たぶんretractall/1を行います。

Answer 2

事実はまだアサートされていないかどうかを確認するアサーション用に別の述語ください：

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