BigArray：every()

[以下のJavaScriptプログラムをダウンロード]

// BigArray:Every(BigArray,func)
// BigArray(adrs)
function BigAry(a){
this.adrs=a; // EEPROM Address
this.length=0; // Length
this.set=function(idx,n){ // Set Data
var adrs=this.adrs+idx*4; // EEPROM Address+Index
i2cw(0x50|(((adrs>>16)&1)<<2), (adrs&0xff00)>>8,adrs&0xff, (n&0xFF000000)>>24,(n&0xFF0000)>>16,(n&0xFF00)>>8,n&0xFF);
if ((idx+1)>this.length){ this.length=idx+1; }
};
this.get=function(idx){ // Get Data
var adrs=this.adrs+idx*4; // EEPROM Address+Index
var t1,t2,t3,t4,d=0x50|(((adrs>>16)&1)<<2);
i2cw(d,(adrs&0xff00)>>8,adrs&255);
i2cr(d,t1,t2,t3,t4);
return (t1<<24)|(t2<<16)|(t3<<8)|t4;
};
}
// BigArray Every
function every(ary,func){
var s=0,f=1;
while(s<ary.length){
var d=ary.get(s);
sleep(10); // Wait
f=f&func(d);
s=s+1;
}
return f;
}
// Sample Code
function over10(n){
if(n>=10){ return 1; }
return 0;
}
var myAry=new BigAry(0);
myAry.set(0, 10);sleep(9);
myAry.set(1, 20);sleep(9);
myAry.set(2, 100);sleep(9);
myAry.set(3, 90);sleep(9);
var r=every(myAry,over10);
log("result : ",r,"\n");