tdpeuter/2025LogProg-project-GhentProlog
tdpeuter/2025LogProg-project-GhentProlog
Archived
1
Fork 0
Code Issues Releases Activity Actions

Succ operator

Browse source
This commit is contained in:
Tibo De Peuter 2025-05-05 22:20:55 +02:00
parent cdf2513e96
commit 6b46965435
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
2 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/prolog/builtins/arithmeticOperators.kt
View file

@ -208,3 +208,8 @@ class Between(private val expr1: Expression, private val expr2: Expression, priv
override fun toString(): String = "$expr1..$expr3..$expr2"
}
class Successor(private val expr1: Expression, private val expr2: Expression) :
CompoundTerm(Atom("succ"), listOf(expr1, expr2)), Satisfiable {
override fun satisfy(subs: Substitutions): Answers = succ(expr1, expr2, subs)
}