「制約論理プログラミングその3」の編集履歴(バックアップ)一覧に戻る
test:- freeze(A,member(X,['喜','怒','哀','楽'])), freeze(A,member(X,['怒','哀','楽'])), freeze(A,member(X,['哀','楽'])), freeze(A,member(X,['楽'])), A = true, write(X). ||?-test. 楽 yes LOOP = 22
test:- freeze(A,member(X,['楽'])), freeze(A,member(X,['哀','楽'])), freeze(A,member(X,['怒','哀','楽'])), freeze(A,member(X,['喜','怒','哀','楽'])), A = true, write(X). ||?-test. 楽 yes LOOP = 22