commonMain.it.unibo.tuprolog.solve.stdlib.rule.Arrow.kt Maven / Gradle / Ivy

Go to download

Show more of this group Show more artifacts with this name
Show all versions of solve-jvm Show documentation

Resolution-agnostic API for logic solvers

There is a newer version: 1.0.4

package it.unibo.tuprolog.solve.stdlib.rule

import it.unibo.tuprolog.core.Scope
import it.unibo.tuprolog.core.Term
import it.unibo.tuprolog.solve.ExecutionContext
import it.unibo.tuprolog.solve.rule.RuleWrapper
import it.unibo.tuprolog.solve.stdlib.magic.MagicCut
import kotlin.collections.List as KtList
import kotlin.collections.listOf as ktListOf

object Arrow : RuleWrapper("->", 2) {
    override val Scope.head: KtList
        get() = ktListOf(varOf("Cond"), varOf("Then"))

    override val Scope.body: Term get() =
        tupleOf(
            structOf("call", varOf("Cond")),
            MagicCut,
            varOf("Then"),
        )
}