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

Checkpoint

Browse source
This commit is contained in:
Tibo De Peuter 2025-04-06 12:14:18 +02:00
parent 438af6c053
commit 6eca9dfcb7
Signed by: tdpeuter
GPG key ID: 38297DE43F75FFE2
25 changed files with 309 additions and 113 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/prolog/components/terms/Structure.kt
View file

@ -1,8 +1,17 @@
package prolog.components.terms
open class Structure(val name: Atom, val arguments: List<Argument>): Goal() {
import prolog.components.Resolvent
import prolog.unify
typealias Argument = Term
open class Structure(val name: Atom, val arguments: List<Argument>): Goal(), Head, Body, Resolvent {
override val functor: Functor = "${name.name}/${arguments.size}"
override fun solve(goal: Goal): Boolean {
return unify(goal, this).isEmpty
}
override fun toString(): String {
return when {
arguments.isEmpty() -> name.name