make non-Singeli getRange_f64 check first element for integerness

This commit is contained in:
dzaima 2024-04-20 21:21:33 +03:00
parent ce4461ff44
commit de529e483b
2 changed files with 5 additions and 2 deletions

View File

@ -50,9 +50,10 @@ INIT_GLOBAL RangeFn getRange_fns[el_f64+1];
#define SINGELI_FILE search
#include "../utils/includeSingeli.h"
#else
#define GETRANGE(T,X) bool getRange_##T(void* x0, i64* res, u64 ia) { \
#define GETRANGE(T,CHK) bool getRange_##T(void* x0, i64* res, u64 ia) { \
assert(ia>0); T* x=x0; T min=*x,max=min; \
for (ux i=1; i<ia; i++) { T c=x[i]; X; \
{ T c=min; CHK; (void)c; } \
for (ux i=1; i<ia; i++) { T c=x[i]; CHK; \
{if(c<min)min=c;} {if(c>max)max=c;} \
} \
res[0]=min; res[1]=max; return 1; \

View File

@ -371,6 +371,8 @@ w←1‿1⥊1 ⋄ x←2⥊1 ⋄ w‿x <¨↩ ⋄ {! (∾⟨•Repr𝕩,": Expe
!"Integer out of range: 1e20" % 1+1e20 0
!"⍟: 𝔾 contained non-integer (or integer was out of range)" % %USE evar {1+𝕩 0}_evar 1.5
!"⍟: 𝔾 contained non-integer (or integer was out of range)" % %USE evar {1+𝕩 0}_evar 1e20
!"⍟: 𝔾 contained non-integer (or integer was out of range)" % %USE evar {1+𝕩 0}_evar 9, 1.5
!"⍟: 𝔾 contained non-integer (or integer was out of range)" % %USE evar {1+𝕩 0}_evar 1.5, 9
# ◶
!"◶: 𝕘 must have rank 1 when index is a number" % 1[12,34] 3