From 09d3d9272193a809cca535019f34cc5e7a5d4953 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Sat, 22 Jan 2022 17:36:04 +0000
Subject: =?UTF-8?q?Add=20,=20implemented=20via=20transpose=20and=20?=
 =?UTF-8?q?=E2=8D=AA?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 functions.c | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

(limited to 'functions.c')

diff --git a/functions.c b/functions.c
index f2b0d83..09e4917 100644
--- a/functions.c
+++ b/functions.c
@@ -106,7 +106,7 @@ fndyad dyadfunctiondefs[] = {
 	0, /* ∪ */
 	0, /* ∩ */
 	0, /* ~ */
-	0, /* , */
+	fnCatenateLast, /* , */
 	fnCatenateFirst, /* ⍪ */
 	fnReshape, /* ⍴ */
 	0, /* ⌽ */
@@ -1033,6 +1033,12 @@ fnIndex(Array *left, Array *right)
 	return result;
 }
 
+Array *
+fnCatenateLast(Array *left, Array *right)
+{
+	return rundfn(L"⍉(⍉⍺)⍪⍉⍵", left, right);
+}
+
 Array *
 fnCatenateFirst(Array *left, Array *right)
 {
-- 
cgit v1.2.3