diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-02-12 15:30:01 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-02-12 15:30:01 +0000 |
| commit | 232190126274508840b3511554892cb1bc78351c (patch) | |
| tree | ce186eca3c4078b21b7ea7a6339b8d93491da4f9 | |
| parent | c04424458fedf7944ed7fdabd1c5234ecba34529 (diff) | |
Handle prototypes better in unique ∪ and mix ↑
| -rw-r--r-- | functions.c | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/functions.c b/functions.c index 576fc4c..46cbe7a 100644 --- a/functions.c +++ b/functions.c @@ -490,8 +490,10 @@ fnTally(Array *right) Array * fnMix(Array *right) { - if(GetType(right) != AtypeArray || GetSize(right) == 0) + if(GetType(right) != AtypeArray) return fnSame(right); + if(GetSize(right) == 0) + return rundfn(L"((⍴⍵),⍴⊃⍵)⍴⊃⍵", nil, nil, nil, right); int commonrank = 0; int i,j; @@ -720,6 +722,8 @@ fnUnique(Array *right) { if(GetRank(right) == 0) return fnRavel(right); + if(GetSize(right) == 0) + return fnSame(right); return rundfn(L"(≠⍵)⌿⍵", nil, nil, nil, right); } |