From 3ccef1fe86e36e61a7991c934d8e61ba918e3daf Mon Sep 17 00:00:00 2001 From: dzaima Date: Thu, 8 Sep 2022 14:52:19 +0300 Subject: [PATCH] =?UTF-8?q?=E2=8A=94=F0=9D=95=A9=20=E2=86=92=20=E2=8A=94?= =?UTF-8?q?=E2=9F=9C(=E2=86=95=E2=89=A0)=F0=9D=95=A9?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/sfns.c | 12 +++++++++--- 1 file changed, 9 insertions(+), 3 deletions(-) diff --git a/src/builtins/sfns.c b/src/builtins/sfns.c index ed91ed8a..8e1dd6ab 100644 --- a/src/builtins/sfns.c +++ b/src/builtins/sfns.c @@ -1293,9 +1293,6 @@ B shifta_c2(B t, B w, B x) { } extern B rt_group; -B group_c1(B t, B x) { - return c1(rt_group, x); -} B group_c2(B t, B w, B x) { if (isArr(w)&isArr(x) && RNK(w)==1 && RNK(x)==1 && depth(w)==1) { usz wia = IA(w); @@ -1413,6 +1410,15 @@ B group_c2(B t, B w, B x) { base: return c2(rt_group, w, x); } +B ud_c1(B, B); +B group_c1(B t, B x) { + if (isArr(x) && RNK(x)==1 && TI(x,arrD1)) { + usz ia = IA(x); + B range = ud_c1(t, m_f64(ia)); + return group_c2(m_f64(0), x, range); + } + return c1(rt_group, x); +} extern B rt_reverse; B reverse_c1(B t, B x) {