feat: Atomic & Compound parsen

src/prolog/builtins/analysisOperators.kt

@@ -137,3 +137,23 @@ class ClauseOp(private val head: Head, private val body: Body) :
         }
     }
 }
+
+class AtomicOp(private val term: Term) : Operator(Atom("atomic"), null, term) {
+    override fun satisfy(subs: Substitutions): Answers {
+        return if (atomic(term, subs)) {
+            sequenceOf(Result.success(emptyMap()))
+        } else {
+            emptySequence()
+        }
+    }
+}
+
+class CompoundOp(private val term: Term) : Operator(Atom("compound"), null, term) {
+    override fun satisfy(subs: Substitutions): Answers {
+        return if (compound(term, subs)) {
+            sequenceOf(Result.success(emptyMap()))
+        } else {
+            emptySequence()
+        }
+    }
+}