all tasks

2013-04-11 01:07:29 -07:00 · 2013-04-11 01:07:29 -07:00 · 68f8f3e56b
commit 68f8f3e56b
parent b83f433714
14735 changed files with 178959 additions and 0 deletions
--- a/Task/Text-processing-Max-licenses-in-use/Mathematica/text-processing-max-licenses-in-use.math
+++ b/Task/Text-processing-Max-licenses-in-use/Mathematica/text-processing-max-licenses-in-use.math
@ -0,0 +1,9 @@
+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]
+
+output:
+-> The maximum number of licenses used was 99, at {2008/10/03_08:39:34,2008/10/03_08:40:40}