RosettaCodeData/Task/Van-der-Corput-sequence/Zkl/van-der-corput-sequence-1.zkl

fcn vdc(n,base=2){
   vdc:=0.0; denom:=1;
   while(n){ reg remainder;
      denom *= base;
      n, remainder = n.divr(base);
      vdc += (remainder.toFloat() / denom);
   }
   vdc
}