记录编号	209380	评测结果	AAAAAAAAAA
题目名称	[NOIP 2015PJ]求和	最终得分	100
用户昵称	FoolMike	是否通过	通过
代码语言	Pascal	运行时间	0.309 s
提交时间	2015-11-22 12:03:38	内存使用	3.98 MiB

var
num,color:array[1..100000]of longint;
count:array[1..100000,0..1,1..2]of int64;
n,m,i,j:longint;
ans:int64;
begin
assign(input,'2015sum.in');
reset(input);
assign(output,'2015sum.out');
rewrite(output);
read(n,m);
for i:=1 to n do
read(num[i]);
for i:=1 to n do
  begin
  read(color[i]);
  inc(count[color[i],i mod 2,1],num[i]);
  inc(count[color[i],i mod 2,2]);
  end;
for i:=1 to m do
for j:=0 to 1 do
dec(count[i,j,2],2);
for i:=1 to n do
ans:=(ans+i*(count[color[i],i mod 2,1]+count[color[i],i mod 2,2]*num[i])) mod 10007;
writeln(ans);
close(input);
close(output);
end.