• Home
• it.unibo.tuprolog
• solve-jvm
• 0.12.0
• source code
• CurrentPrologFlag.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.primitive.CurrentPrologFlag.kt Maven / Gradle / Ivy

package it.unibo.tuprolog.solve.stdlib.primitive

import it.unibo.tuprolog.core.Atom
import it.unibo.tuprolog.core.Substitution
import it.unibo.tuprolog.core.Term
import it.unibo.tuprolog.solve.ExecutionContext
import it.unibo.tuprolog.solve.primitive.BinaryRelation
import it.unibo.tuprolog.solve.primitive.Solve
import it.unibo.tuprolog.unify.Unificator.Companion.mguWith

object CurrentPrologFlag : BinaryRelation.WithoutSideEffects("current_prolog_flag") {
    override fun Solve.Request.computeAllSubstitutions(
        first: Term,
        second: Term
    ): Sequence =
        context.flags.asSequence()
            .map { (k, v) -> Atom.of(k) to v }
            .map { (k, v) -> (k mguWith first) + (v mguWith second) }
            .filter { it.isSuccess }
}