Anonymous user
Text processing/Max licenses in use: Difference between revisions
Text processing/Max licenses in use (view source)
Revision as of 15:55, 6 February 2012
, 12 years agoGP
(GP) |
|||
Line 1,205:
2008/10/03_08:40:40
</pre>
=={{header|PARI/GP}}==
<lang parigp>license()={
my(v=externstr("type mlijobs.txt"),u,cur,rec,t);
for(i=1,#v,
u=Vec(v[i]);
if(#u>9 && u[9] == "O",
if(cur++>rec,
rec=cur;
t=[v[i]]
,
if(cur == rec,t=concat(t,[v[i]]))
)
,
cur--
)
);
print(apply(s->concat(vecextract(Vec(s),"15..33")), t));
rec
};</lang>
<pre>["2008/10/03_08:39:34", "2008/10/03_08:40:40"]
%1 = 99</pre>
=={{header|Perl}}==
Line 1,730 ⟶ 1,752:
{{omit from|GUISS}}
{{omit from|Openscad}}
| |||