RosettaCodeData/Task/Jensens-Device/Zkl/jensens-device-2.zkl
2017-09-25 22:28:19 +02:00

7 lines
212 B
Text

fcn sum2(ri, lo,hi, term){
temp:=0.0; ri.set(lo);
do{ temp=term + temp; } while(ri.inc()<hi); // inc return previous value
return(temp);
}
ri:=Ref(0);
sum2(ri, 1,100, 'wrap(){ 1.0/ri.value }).println();