From 235f448cfdf7b6c1f1664cd32fa769670bdd0d6c Mon Sep 17 00:00:00 2001 From: Peter Mikkelsen Date: Mon, 17 Jan 2022 22:40:01 +0000 Subject: =?UTF-8?q?Implement=20monadic=20=E2=8D=AA=20(table)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- functions.c | 13 ++++++++++++- 1 file changed, 12 insertions(+), 1 deletion(-) (limited to 'functions.c') diff --git a/functions.c b/functions.c index ef9aa97..eff944f 100644 --- a/functions.c +++ b/functions.c @@ -52,7 +52,7 @@ fnmonad monadfunctiondefs[] = { 0, /* ∩ */ 0, /* ~ */ fnRavel, /* , */ - 0, /* ⍪ */ + fnTable, /* ⍪ */ fnShape, /* ⍴ */ fnReverseLast, /* ⌽ */ fnReverseFirst, /* ⊖ */ @@ -216,6 +216,17 @@ fnRavel(Array *right) return res; } +Array * +fnTable(Array *right) +{ + Array *res = duparray(right); + res->rank = 2; + res->shape = realloc(res->shape, sizeof(int) * 2); + res->shape[0] = right->rank ? res->shape[0] : 1; + res->shape[1] = right->size / res->shape[0]; + return res; +} + Array * fnShape(Array *right) { -- cgit v1.2.3