RosettaCodeData/Task/Text-processing-Max-licenses-in-use/Zkl/text-processing-max-licenses-in-use.zkl
2017-09-25 22:28:19 +02:00

9 lines
384 B
Text

nOut,maxOut,maxTimes:=0,-1,List();
foreach job in (File("mlijobs.txt")){
_,status,_,date:=job.split();
nOut+=( if(status.toUpper()=="OUT") 1 else -1 );
if(nOut>maxOut){ maxOut=nOut; maxTimes.clear(); }
if(nOut==maxOut) maxTimes.append(date);
}
println(("Maximum simultaneous license use is %d at"
" the following times:\n %s").fmt(maxOut,maxTimes.concat("\n")));