PersonalCorpus 版 (精华区)

149012 11:31:12 1 Mar 2002
Bozhang,HIT,P.R.China 1012 Pascal Accepted 0.02 sec 65K


type LongInteger =  record
                        n:array[1..2000] of integer;
                        len:integer;
                    end;
var
    s:array[1..2,1..2] of LongInteger;
    i,k,n:integer;
procedure setlengthLI(var a:LongInteger;v:integer);
begin a.len:=v end;
procedure setvalueLI(var a:LongInteger;pos,v:integer);
begin a.n[pos]:=v; end;
procedure copyLI(var des,src:LongInteger);
var i:integer;
begin
    for i:=1 to src.len do des.n[i]:=src.n[i];
    des.len:=src.len;
end;
procedure PlusLI(var des,src1,src2:LongInteger);
var i,k:integer;
begin
    i:=1; k:=0;
    while (i<=src1.len) or (i<=src2.len) do begin
        if i<=src1.len then des.n[i]:=src1.n[i] else des.n[i]:=0;
        if i<=src2.len then des.n[i]:=des.n[i]+src2.n[i];
        des.n[i]:=des.n[i]+k;
        k:=des.n[i] div 10000;
        des.n[i]:=des.n[i] mod 10000;
        inc(i);
    end;
    if k<>0 then begin des.n[i]:=k; des.len:=i end else des.len:=i-1;
end;
procedure MulLI(var des:LongInteger;u:integer);
var i,k:integer;
begin
    i:=1; k:=0;
    while i<=des.len do begin
        des.n[i]:=des.n[i]*u+k;
        k:=des.n[i] div 10000;
        des.n[i]:=des.n[i] mod 10000;
        inc(i);
    end;
    if k<>0 then begin des.n[i]:=k; des.len:=i end else des.len:=i-1;
end;
procedure PrintLI(var des:LongInteger);
var i:integer;
begin
    write(des.n[des.len]);
    for i:=des.len-1 downto 1 do begin
        if des.n[i]<1000 then write(0);
        if des.n[i]<100 then write(0);
        if des.n[i]<10 then write(0);
        write(des.n[i]);
    end;
    writeln;
end;
begin
    readln(n,k);  dec(k);
    setvalueLI(s[1,1],1,0);
    setvalueLI(s[1,2],1,k);
    setlengthLI(s[1,1],1);
    setlengthLI(s[1,2],1);
    for i:=2 to n do begin
//        s[2,1]:=s[1,2];
        copyLI(s[2,1],s[1,2]);
//        s[1,2]:=(s[1,1]+s[2,1])*(k);
        PlusLI(s[1,2],s[1,1],s[2,1]);
        MulLI(s[1,2],k);
//        s[1,1]:=s[2,1];
        copyLI(s[1,1],s[2,1]);
    end;
//    writeln(s[1,1]+s[1,2]);
    PlusLI(s[2,1],s[1,1],s[1,2]);
    PrintLI(s[2,1]);
//    readln;
end.