Submission #2516446

---

Source Code Expand

var n,m,i,j,liu,buliu,k:longint; ans,max:int64; f,w,t:array[0..100005] of longint;
function maxx(a,b:longint):longint;
begin
   if a>b then exit(a)
     else exit(b);
end;
function minn(a,b:longint):longint;
begin
  if a<b then exit(a)
    else exit(b);
end;
begin
  readln(n,m);
  for i:=1 to n do
    read(f[i]);
  readln;
  for i:=1 to m do
    read(w[i]);
  for i:=1 to n do
    begin
      for j:=i to n do
      begin
        ans:=0;
        for k:=i to j do
          if t[f[k]]=0  then
            begin
              inc(ans,w[f[k]]);
              liu:=maxx(liu,f[k]);
              buliu:=minn(buliu,f[k]);
              inc(t[f[k]]);
            end
            else
            if t[f[k]]=1 then
              begin
                dec(ans,w[f[k]]);
                t[f[k]]:=2;
              end;
        for k:=buliu to liu do
          t[k]:=0;
        max:=maxx(max,ans);
      end;
    end;
write(max);
end.

Submission Info

Judge Result