diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-19 10:42:21 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-19 10:42:21 +0000 |
| commit | fbcb1cad3eca5ca670f623bdb25a78b8fe54af1b (patch) | |
| tree | c99123e5ebf3ac3b964cc697f028d075bfd371a0 /functions.c | |
| parent | 5e5915618dbd52eb08f81b8d370fda8cb699dcb7 (diff) | |
Add dyadic ≡ match
Diffstat (limited to 'functions.c')
| -rw-r--r-- | functions.c | 9 |
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; |