Heartbeat 2016-01-01 06:04:44
点我顶贴
收藏
删除
var a:string;
s:ansistring;
x:array [0..335000] of string;
t,i,k,l,n:longint;
begin
readln(a);
readln(s);
t:=1;
for i:=1 to length(a) do
if(a[i]>='A')and(a[i]<='Z') then
a[i]:=lowercase(a[i]);
for i:=1 to length(s) do
begin
if(s[i]>='A')and(s[i]<='Z') then
s[i]:=lowercase(s[i]);
if s[i]<>' ' then x[t]:=x[t]+s[i]
else inc(t);
end;
for i:=1 to t do
if x[i]=a then inc(k);
if k=0 then begin
write(-1);
exit;
end
else write(k,' ');
for i:=1 to t do
if x[i]=a then begin
n:=i;
break;
end;
for i:=1 to n-1 do
l:=l+length(x[i])+1;
write(l);
end.