Cleanup 3

This commit is contained in:
Tibo De Peuter 2025-05-09 19:49:37 +02:00
parent 3c938749d0
commit a5bd38ef01
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
6 changed files with 62 additions and 9 deletions

View file

@ -6,11 +6,6 @@ import prolog.ast.logic.LogicOperand
import prolog.ast.logic.LogicOperator
import prolog.ast.terms.Goal
class Initialization(val goal: LogicOperand) : LogicOperator(":-", rightOperand = goal) {
override fun satisfy(subs: Substitutions): Answers = goal.satisfy(subs).take(1)
override fun toString(): String = goal.toString()
}
class Query(val query: LogicOperand) : LogicOperator("?-", rightOperand = query) {
override fun satisfy(subs: Substitutions): Answers = query.satisfy(subs)
}