diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-22 17:36:04 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-22 17:36:04 +0000 |
| commit | 09d3d9272193a809cca535019f34cc5e7a5d4953 (patch) | |
| tree | 73c6e7a118c6735448ab89ff448d281fc816c25d /functions.c | |
| parent | f91a5f5c9a5426ced951c373ad5613db0b55013d (diff) | |
Add , implemented via transpose and ⍪
Diffstat (limited to 'functions.c')
| -rw-r--r-- | functions.c | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/functions.c b/functions.c index f2b0d83..09e4917 100644 --- a/functions.c +++ b/functions.c @@ -106,7 +106,7 @@ fndyad dyadfunctiondefs[] = { 0, /* ∪ */ 0, /* ∩ */ 0, /* ~ */ - 0, /* , */ + fnCatenateLast, /* , */ fnCatenateFirst, /* ⍪ */ fnReshape, /* ⍴ */ 0, /* ⌽ */ @@ -1034,6 +1034,12 @@ fnIndex(Array *left, Array *right) } Array * +fnCatenateLast(Array *left, Array *right) +{ + return rundfn(L"⍉(⍉⍺)⍪⍉⍵", left, right); +} + +Array * fnCatenateFirst(Array *left, Array *right) { Array *leftarr = nil; |