RosettaCodeData/Task/Text-processing-Max-licenses-in-use/Mathematica/text-processing-max-licenses-in-use.math
2023-07-01 13:44:08 -04:00

6 lines
284 B
Text

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]