function void main[var arga,var argb]
(
var m:=10;
var a:Int :: allocated[multiple[]];
var p;
par p from 0 to m - 1
(
var mine:Int;
mine:= randomnumber[0,toInt[argb#1]];
var i;
for i from 0 to m - 1
(
var myvalue:=mine;
if (i < p) myvalue:=0;
(a :: reduce[i, "sum"]):=myvalue;
);
print[p," = ",a,"\n"];
);
);
|