include microbenchmark;

nodOut_int := microbenchmark.random(0:oid,1000000,10);
nodOut := batcalc.lng(nodOut_int);

t0 := alarm.usec();
res:=bat.new(:lng,:int);
valor:=0;
barrier (mloop16:lng ,h16:oid ,tl16:lng ) := bat.newIterator(nodOut);
        bite1:=algebra.exist(res,tl16);
        barrier ifpart:= bite1;
                valor:=algebra.find(res, tl16);
                valor:=calc.+(valor,1);
                res:=bat.replace(res,tl16,valor);
        exit ifpart;
        barrier elsepart:= calc.!=(bite1,true);
                bat.insert(res,tl16,1);
        exit elsepart;
    redo (mloop16:lng ,h16:oid ,tl16:lng ) :=
bat.hasMoreElements(nodOut);
exit mloop16:lng ;
t1 := alarm.usec();
t := calc.-(t1,t0);
io.printf("time for 'Maxium out degree': %9lld usec\n",t);
io.print("result of 'Maxium out degree'");
io.print(res);

t0 := alarm.usec();
res2 := aggr.histogram(nodOut);
t1 := alarm.usec();
t := calc.-(t1,t0);
io.printf("time for 'aggr.histogram()':  %9lld usec\n",t);
io.print("result of 'aggr.histogram()'");
io.print(res2);

t0 := alarm.usec();
res:=bat.new(:lng,:int);
valor:=0;
barrier (mloop16:lng ,h16:oid ,tl16:lng ) := bat.newIterator(nodOut);
        bite1:=algebra.exist(res,tl16);
        barrier ifpart:= bite1;
                valor:=algebra.find(res, tl16);
                valor:=calc.+(valor,1);
                res:=bat.replace(res,tl16,valor);
        exit ifpart;
        barrier elsepart:= calc.!=(bite1,true);
                bat.insert(res,tl16,1);
        exit elsepart;
    redo (mloop16:lng ,h16:oid ,tl16:lng ) :=
bat.hasMoreElements(nodOut);
exit mloop16:lng ;
t1 := alarm.usec();
t := calc.-(t1,t0);
io.printf("time for 'Maxium out degree': %9lld usec\n",t);
io.print("result of 'Maxium out degree'");
io.print(res);

t0 := alarm.usec();
res2 := aggr.histogram(nodOut);
t1 := alarm.usec();
t := calc.-(t1,t0);
io.printf("time for 'aggr.histogram()':  %9lld usec\n",t);
io.print("result of 'aggr.histogram()'");
io.print(res2);