RosettaCodeData/Task/Text-processing-Max-licenses-in-use/Mathematica/text-processing-max-licenses-in-use.math

7 lines
284 B
Text
Raw Permalink Normal View History

2013-04-11 01:07:29 -07:00
LC = 0; LCMax = 0; Scan[
If[MemberQ[#, "OUT"], LC++;
If[LCMax < LC, LCMax = LC; LCMaxtimes = {};];
If[LCMax == LC, AppendTo[LCMaxtimes, #[[4]]]],
LC--;] &, Import["mlijobs.txt", "Table"]]
Print["The maximum number of licenses used was ", LCMax, ", at ", LCMaxtimes]