Implement monadic ⍪ (table)

2 files changed, 13 insertions, 1 deletions

diff --git a/apl9.h b/apl9.h
index b96e793..8ec4e78 100644
--- a/apl9.h
+++ b/apl9.h
@@ -199,6 +199,7 @@ Array *fnEnclose(Array *);
 Array *fnNest(Array *);
 Array *fnIndexGenerator(Array *);
 Array *fnRavel(Array *);
+Array *fnTable(Array *);
 Array *fnShape(Array *);
 Array *fnReverseLast(Array *);
 Array *fnReverseFirst(Array *);
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, /* ⊖ */
@@ -217,6 +217,17 @@ fnRavel(Array *right)
 }
 
 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)
 {
 	Array *res = allocarray(AtypeInt, 1, right->rank);