[vijos P1040] 高精度乘法

如果这次noip没考好，完全是因为从7月29日之后就没有再写过程序了。说起来，真是一个泪流满面的事实…

那这样一个弱智题练手恢复代码能力，竟然还花了我两个晚上（当然不是两整个晚上…）

第一天TLE了，好在我机智，一看到解题里说要压位就自动脑补出压位了。

代码风格非常诡异，弱智题竟然写到2KB我也是醉了。

program vijos_p1040;
const maxn=;
var a,b,aa,bb:array[..maxn] of integer;
    c:array[..*maxn] of integer;
    ma,mb,i,j,t,ca,cb:integer;
    ch:char;
begin
  //assign(input,'himul.in4');reset(input);
  //assign(output,'himul.ou4');rewrite(output);
  i:=;
  //input num a
  while not eoln do
    begin
      read(ch);
      inc(i);
      a[i]:=ord(ch)-ord('');
    end;
  ma:=i;
  readln;
  //reverse num a
  for i:= to ma div  do
    begin
      t:=a[i];a[i]:=a[ma-i+];a[ma-i+]:=t;
    end;
  //compress num a
  for i:= to (ma div )+ do
    aa[i]:=a[*i-]+a[*i]*;
  //input num b
  i:=;
  while not eoln do
    begin
      read(ch);
      inc(i);
      b[i]:=ord(ch)-ord('');
    end;
  mb:=i;
  //reverse num b
  for i:= to mb div  do
    begin
      t:=b[i];b[i]:=b[mb-i+];b[mb-i+]:=t;
    end;
  for i:= to (mb div )+ do
    bb[i]:=b[*i-]+b[*i]*;
  //multi
  ca:=ma div +;
  cb:=mb div +;
  for i:= to cb do
    begin
      for j:= to ca do
        begin
          c[i+j-]:=c[i+j-]+aa[j]*bb[i];
          if c[i+j-]>= then
            begin
              c[i+j]:=c[i+j]+c[i+j-] div ;
              c[i+j-]:=c[i+j-] mod ;
            end;
        end;
    end;
  j:=ca+cb+;
  while c[j]= do dec(j);
  write(c[j]);
  for i:=j- downto  do
   begin
     if c[i]>= then write(c[i]) else write('',c[i]);
   end;
  writeln;
  //close(input);close(output);
end.

高精度乘法

测试数据 #0: Accepted, time = 0 ms, mem = 732 KiB, score = 25

测试数据 #1: Accepted, time = 15 ms, mem = 732 KiB, score = 25

测试数据 #2: Accepted, time = 15 ms, mem = 736 KiB, score = 25

测试数据 #3: Accepted, time = 608 ms, mem = 732 KiB, score = 25