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
|
#define SINGELI_FILE search
|
||||||
#include "../utils/includeSingeli.h"
|
#include "../utils/includeSingeli.h"
|
||||||
#else
|
#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; \
|
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;} \
|
{if(c<min)min=c;} {if(c>max)max=c;} \
|
||||||
} \
|
} \
|
||||||
res[0]=min; res[1]=max; return 1; \
|
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
|
!"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 ⟨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 ⟨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
|
!"◶: 𝕘 must have rank 1 when index is a number" % 1◶[1‿2,3‿4] 3
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user