From 0e4600859652333c45c658737aa023fb1427f66c Mon Sep 17 00:00:00 2001 From: dzaima Date: Tue, 30 Mar 2021 02:35:48 +0300 Subject: [PATCH] =?UTF-8?q?reuse=20=F0=9D=95=A9=20in=20=E2=8C=9C=20if=20po?= =?UTF-8?q?ssible?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/md1.c | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/src/md1.c b/src/md1.c index bc71ebc0..ef646449 100644 --- a/src/md1.c +++ b/src/md1.c @@ -3,6 +3,11 @@ B tbl_c1(B t, B f, B x) { if (!isArr(x)) return err("⌜: argument was atom"); usz ia = a(x)->ia; + if (v(x)->type==t_harr && reusable(x)) { + B* p = harr_ptr(x); + for (usz i = 0; i < ia; i++) p[i] = c1(f, p[i]); + return x; + } HArr_p r = m_harrc(x); BS2B xget = TI(x).get; for (usz i = 0; i < ia; i++) r.a[i] = c1(f, xget(x,i));