From 1eee4d7450aca6f3078635d30dfe1514e05da60c Mon Sep 17 00:00:00 2001 From: dzaima Date: Wed, 9 Oct 2024 01:13:51 +0300 Subject: [PATCH] =?UTF-8?q?mark=20input=20of=20=E2=88=8A=F0=9D=95=A9=20as?= =?UTF-8?q?=20fl=5Fasc|fl=5Fdsc=20if=20it's=20all=20same?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- src/builtins/selfsearch.c | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) diff --git a/src/builtins/selfsearch.c b/src/builtins/selfsearch.c index a711aba1..5271fbe6 100644 --- a/src/builtins/selfsearch.c +++ b/src/builtins/selfsearch.c @@ -275,7 +275,12 @@ B memberOf_c1(B t, B x) { i++; } allSame:; - decG(x); + if (v(x)->refc > 1) { + FL_SET(x, fl_asc|fl_dsc); + incByG(x, -1); + } else { + decG(x); + } Arr* r = allZeroes(n); bitarrv_ptr((TyArr*) r)[0] = 1; return taga(arr_shVec(r));