diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-09 22:24:07 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-09 22:24:07 +0000 |
| commit | 0b8bd8e88f2620992310c7ba41283f5d9120e371 (patch) | |
| tree | 428cdf822378a59fc5e5e9b9eb040cd91f64bdbc /functions.c | |
| parent | 325cfd6354dcccaa095767e0419760a3f9462fed (diff) | |
Add rule for monadic function application
Diffstat (limited to 'functions.c')
| -rw-r--r-- | functions.c | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/functions.c b/functions.c index 6ff653a..1c60a82 100644 --- a/functions.c +++ b/functions.c @@ -4,6 +4,63 @@ #include "apl9.h" +Rune primfuncnames[] = L"+-×÷*⍟⌹○!?|⌈⌊⊥⊤⊣⊢=≠≤<>≥≡≢∨∧⍲⍱↑↓⊂⊃⊆⌷⍋⍒⍳⍸∊⍷∪∩~,⍪⍴⌽⊖⍉⍎⍕"; + +fnmonad monadfunctiondefs[] = { + 0, /* + */ + 0, /* - */ + 0, /* × */ + 0, /* ÷ */ + 0, /* * */ + 0, /* ⍟ */ + 0, /* ⌹ */ + 0, /* ○ */ + 0, /* ! */ + 0, /* ? */ + 0, /* | */ + 0, /* ⌈ */ + 0, /* ⌊ */ + 0, /* ⊥ */ + 0, /* ⊤ */ + 0, /* ⊣ */ + 0, /* ⊢ */ + 0, /* = */ + 0, /* ≠ */ + 0, /* ≤ */ + 0, /* < */ + 0, /* > */ + 0, /* ≥ */ + 0, /* ≡ */ + 0, /* ≢ */ + 0, /* ∨ */ + 0, /* ∧ */ + 0, /* ⍲ */ + 0, /* ⍱ */ + 0, /* ↑ */ + 0, /* ↓ */ + fnEnclose, /* ⊂ */ + 0, /* ⊃ */ + fnNest, /* ⊆ */ + 0, /* ⌷ */ + 0, /* ⍋ */ + 0, /* ⍒ */ + 0, /* ⍳ */ + 0, /* ⍸ */ + 0, /* ∊ */ + 0, /* ⍷ */ + 0, /* ∪ */ + 0, /* ∩ */ + 0, /* ~ */ + fnRavel, /* , */ + 0, /* ⍪ */ + 0, /* ⍴ */ + 0, /* ⌽ */ + 0, /* ⊖ */ + 0, /* ⍉ */ + 0, /* ⍎ */ + 0, /* ⍕ */ +}; + Array * fnCatenateFirst(Array *left, Array *right) { |