diff options
| author | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-28 14:32:59 +0000 |
|---|---|---|
| committer | Peter Mikkelsen <petermikkelsen10@gmail.com> | 2022-01-28 14:32:59 +0000 |
| commit | 69d4a8f20cbc60bae27aef9a36857324a04c581f (patch) | |
| tree | ba35193a5d58154ecd461a12e5bb833f89d0789f /functions.c | |
| parent | bd976bb05f188e26857249e9abf093fe991fb626 (diff) | |
Implement disclose (monadic ⊃)
Diffstat (limited to 'functions.c')
| -rw-r--r-- | functions.c | 11 |
1 files changed, 10 insertions, 1 deletions
diff --git a/functions.c b/functions.c index 6c9f837..eedacb9 100644 --- a/functions.c +++ b/functions.c @@ -39,7 +39,7 @@ fnmonad monadfunctiondefs[] = { fnMix, /* ↑ */ fnSplit, /* ↓ */ fnEnclose, /* ⊂ */ - 0, /* ⊃ */ + fnDisclose, /* ⊃ */ fnNest, /* ⊆ */ 0, /* ⌷ */ fnGradeUp, /* ⍋ */ @@ -497,6 +497,15 @@ fnEnclose(Array *right) } Array * +fnDisclose(Array *right) +{ + if(right->size == 0) + return fillelement(right); + else + return arrayitem(right, 0); +} + +Array * fnNest(Array *right) { if(simplearray(right)) |