diff options
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)) |