1 files changed, 8 insertions, 1 deletions
diff --git a/functions.c b/functions.c
index 353ad88..90bb3fb 100644
--- a/functions.c
+++ b/functions.c
@@ -85,7 +85,7 @@ fndyad dyadfunctiondefs[] = {
 	0, /* < */
 	0, /* > */
 	0, /* ≥ */
-	0, /* ≡ */
+	fnMatch, /* ≡ */
 	0, /* ≢ */
 	0, /* ∨ */
 	0, /* ∧ */
@@ -509,6 +509,13 @@ fnRight(Array *left, Array *right)
 }
 
 Array *
+fnMatch(Array *left, Array *right)
+{
+	int cmp = comparearray(left, right);
+	return mkscalarint(cmp == 0);
+}
+
+Array *
 fnCatenateFirst(Array *left, Array *right)
 {
 	Array *leftarr;