diff --git a/src/builtins/selfsearch.c b/src/builtins/selfsearch.c index 2a6fade8..65ab5dc3 100644 --- a/src/builtins/selfsearch.c +++ b/src/builtins/selfsearch.c @@ -4,6 +4,7 @@ B not_c1(B t, B x); B shape_c1(B t, B x); +B slash_c2(B t, B w, B x); #define GRADE_UD(U,D) U #include "radix.h" @@ -192,7 +193,6 @@ B count_c1(B t, B x) { return r; } -extern B rt_indexOf; B indexOf_c1(B t, B x) { if (isAtm(x) || RNK(x)==0) thrM("⊐: 𝕩 cannot have rank 0"); usz n = *SH(x); @@ -215,6 +215,13 @@ B indexOf_c1(B t, B x) { rp[i]=s; u+=u==s; \ } \ decG(x); TFREE(uniq); return r; + #define DOTAB(T) \ + i32 u=0; \ + for (usz i=0; i8 && nmax) max = c; } i64 dst = 1 + (max-(i64)min); - if ((dst1) x = toCells(x); i32* rp; B r = m_i32arrv(&rp, n); @@ -274,8 +272,6 @@ B indexOf_c1(B t, B x) { return r; } -B slash_c2(B t, B w, B x); -extern B rt_find; B find_c1(B t, B x) { if (isAtm(x) || RNK(x)==0) thrM("⍷: Argument cannot have rank 0"); usz n = *SH(x);