diff options
| -rw-r--r-- | apl9.h | 2 | ||||
| -rw-r--r-- | functions.c | 28 |
2 files changed, 28 insertions, 2 deletions
@@ -333,6 +333,8 @@ Array *fnDeal(Array *, Array *); Array *fnResidue(Array *, Array *); Array *fnMaximum(Array *, Array *); Array *fnMinimum(Array *, Array *); +Array *fnDecode(Array *, Array *); +Array *fnEncode(Array *, Array *); Array *fnLeft(Array *, Array *); Array *fnRight(Array *, Array *); Array *fnEqual(Array *, Array *); diff --git a/functions.c b/functions.c index 24fefa9..68dcbe7 100644 --- a/functions.c +++ b/functions.c @@ -76,8 +76,8 @@ fndyad dyadfunctiondefs[] = { fnResidue, /* | */ fnMaximum, /* ⌈ */ fnMinimum, /* ⌊ */ - 0, /* ⊥ */ - 0, /* ⊤ */ + fnDecode, /* ⊥ */ + fnEncode, /* ⊤ */ fnLeft, /* ⊣ */ fnRight, /* ⊢ */ fnEqual, /* = */ @@ -1052,6 +1052,30 @@ SCALAR_FUNCTION_2(fnMinimum, 0, left->type, ) Array * +fnDecode(Array *left, Array *right) +{ + if(left->type != AtypeInt && left->type != AtypeFloat) + throwerror(nil, EType); + if(right->type != AtypeInt && right->type != AtypeFloat) + throwerror(nil, EType); + return rundfn(L"(⌽×\\1,⌽⍵∘{1↓(≢⍺)⍴⍵}⍤1⊢⍺)+.×⍵", nil, nil, left, right); +} + +Array * +fnEncode(Array *left, Array *right) +{ + if(left->type != AtypeInt && left->type != AtypeFloat) + throwerror(nil, EType); + if(right->type != AtypeInt && right->type != AtypeFloat) + throwerror(nil, EType); + + if(left->rank > 1) + return rundfn(L"⍉(⍉⍺) (⊤⍤1) ⍵", nil, nil, left, right); + else + return rundfn(L"⎕div←1 ⋄ ((⍴⍺),⍴⍵)⍴(⌽⍺){0=≢⍺:⍬ ⋄ n←⊃⍺ ⋄ x←n|⍵ ⋄ ((1↓⍺)∇n÷⍨⍵-x)⍪x}⍵", nil, nil, left, right); +} + +Array * fnLeft(Array *left, Array *right) { USED(right); |