奇怪的贸易

Description

刚结束了CS战斗的小D又进入了EVE的游戏世界,在游戏中小D是一名商人,每天要做的事情就是在这里买东西,再运到那里去卖.这次小D来到了陌生的X星,X星上有n种货物,小D决定每种都买走一些,他用ai来表示第i种货物购买的数量,X星人对物品的单价有特别的决定方式.他们首先会选择一个基本价x,第一种物品单价为x,第二种物品单价为x2,第三种物品单价为x3……第i种物品单价为xi.结算总价时,你还需要给他们一笔手续费a0,小D不知道自己带的钱是否能够进行这笔交易,所以请你帮助他计算这笔交易他要支付的总金额是多少.

Input

x n
a0
a1
a2
.
.
.
an
第一行两个数分别表示基准价x (x<=10),物品种数n (n<=100000)
第二行一个数,手续费a0 (a0<=100)
接下来的n行每行一个数,第i行表示第i种物品购买的数量(ai<=100)

Output

输出结果的最后100位,若不足100位请高位用零补足

Sample Input

2 3
4
3
2
1
Sample Output

0000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000026
Hint

对20%的数据,n<=10
对50%的数据,n<=200
对100%的数据,n<=100000

题解：

模拟，数据太大，用高精度就过了。

代码：

var
  a:array[0..100000] of longint;
  i,j,x,n,m:longint;
  w,sum:array[0..200] of longint;
begin
  readln(x,n);
  for i:=0 to n do readln(a[i]);
  w[1]:=x;
  sum[1]:=a[0];
  for i:=1 to n do
    begin
      m:=0;
      for j:=1 to 100 do
        begin
          sum[j]:=sum[j]+w[j]*a[i]+m;
          m:=sum[j] div 10;
          sum[j]:=sum[j] mod 10;
        end;
      m:=0;
      for j:=1 to 100 do
        begin
          w[j]:=w[j]*x+m;
          m:=w[j] div 10;
          w[j]:=w[j] mod 10;
        end;
    end;
  for i:=100 downto 1 do
    write(sum[i]);
end.