make non-Singeli getRange_f64 check first element for integerness
This commit is contained in:
parent
ce4461ff44
commit
de529e483b
@ -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; \
|
||||
|
||||
@ -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◶[1‿2,3‿4] 3
|
||||
|
||||
Loading…
Reference in New Issue
Block a user