From fbcb1cad3eca5ca670f623bdb25a78b8fe54af1b Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Wed, 19 Jan 2022 10:42:21 +0000 Subject: =?UTF-8?q?Add=20dyadic=20=E2=89=A1=20match?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- functions.c | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'functions.c') 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, /* ∧ */ @@ -508,6 +508,13 @@ fnRight(Array *left, Array *right) return right; } +Array * +fnMatch(Array *left, Array *right) +{ + int cmp = comparearray(left, right); + return mkscalarint(cmp == 0); +} + Array * fnCatenateFirst(Array *left, Array *right) { -- cgit v1.2.3