Text processing/Max licenses in use: Difference between revisions
m
Arrgh. Move to correct position.
Thundergnat (talk | contribs) (→{{header|Scala}}: Remove unnecessary inflammatory comment) |
Thundergnat (talk | contribs) m (Arrgh. Move to correct position.) |
||
Line 2,282:
wend
print maxCount;" ";theDate$</lang>
=={{header|Seed7}}==▼
<lang seed7>$ include "seed7_05.s7i";▼
const proc: main is func▼
local▼
var file: inFile is STD_NULL;▼
var string: line is "";▼
var integer: currLicenses is 0;▼
var integer: maxLicenses is 0;▼
var array string: maxLicenseTimes is 0 times "";▼
var string: eventTime is "";▼
begin▼
inFile := open("mlijobs.txt", "r");▼
while hasNext(inFile) do▼
line := getln(inFile);▼
if line[9 len 3] = "OUT" then▼
incr(currLicenses);▼
if currLicenses >= maxLicenses then▼
if currLicenses > maxLicenses then▼
maxLicenses := currLicenses;▼
maxLicenseTimes := 0 times "";▼
end if;▼
maxLicenseTimes &:= line[15 len 19];▼
end if;▼
elsif currLicenses > 0 then▼
decr(currLicenses);▼
end if;▼
end while;▼
close(inFile);▼
writeln("Maximum simultaneous license use is " <& maxLicenses <& " at the following times:");▼
for eventTime range maxLicenseTimes do▼
writeln(eventTime);▼
end for;▼
end func;</lang>▼
Output:▼
<pre>▼
Maximum simultaneous license use is 99 at the following times:▼
2008/10/03_08:39:34▼
2008/10/03_08:40:40▼
</pre>▼
=={{header|Scala}}==
Line 2,384 ⟶ 2,342:
{{in progress|lang=LANG|day=DD|month=MM|year=YYYY}}
//
▲=={{header|Seed7}}==
▲<lang seed7>$ include "seed7_05.s7i";
▲const proc: main is func
▲ local
▲ var file: inFile is STD_NULL;
▲ var string: line is "";
▲ var integer: currLicenses is 0;
▲ var integer: maxLicenses is 0;
▲ var array string: maxLicenseTimes is 0 times "";
▲ var string: eventTime is "";
▲ begin
▲ inFile := open("mlijobs.txt", "r");
▲ while hasNext(inFile) do
▲ line := getln(inFile);
▲ if line[9 len 3] = "OUT" then
▲ incr(currLicenses);
▲ if currLicenses >= maxLicenses then
▲ if currLicenses > maxLicenses then
▲ maxLicenses := currLicenses;
▲ maxLicenseTimes := 0 times "";
▲ end if;
▲ maxLicenseTimes &:= line[15 len 19];
▲ end if;
▲ elsif currLicenses > 0 then
▲ decr(currLicenses);
▲ end if;
▲ end while;
▲ close(inFile);
▲ writeln("Maximum simultaneous license use is " <& maxLicenses <& " at the following times:");
▲ for eventTime range maxLicenseTimes do
▲ writeln(eventTime);
▲ end for;
▲ end func;</lang>
▲Output:
▲<pre>
▲Maximum simultaneous license use is 99 at the following times:
▲2008/10/03_08:39:34
▲2008/10/03_08:40:40
▲</pre>
=={{header|Sidef}}==
|