• Home
• it.unibo.tuprolog
• solve-jvm
• 0.12.0
• source code
• Arrow.kt

×

Project download

Many resources are needed to download a project. Please understand that we have to compensate our server costs. Thank you in advance.
Project price only 1 $

You can buy this project and download/modify it how often you want.

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

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")
    )
}