18 lines
294 B
Text
18 lines
294 B
Text
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
|
|
};
|