JLOI 斯迈利的赌注

直接高精度模拟，加上简单贪心

Program XJOI2263;
type arr=array[0..1000] of longint;
var a,b:arr;
    s1,s2:ansistring;
    i,j:longint;
    sum:int64;
operator *(a:arr;x:longint) c:arr;
var i:longint;
begin
    fillchar(c,sizeof(c),0);
    for i:=1 to a[0] do c[i]:=a[i]*x;
    for i:=1 to a[0] do
    begin
        c[i+1]:=c[i+1]+c[i] div 10;
        c[i]:=c[i] mod 10;
    end;
        c[0]:=a[0];
    while c[c[0]+1]<>0 do
    begin
        inc(c[0]);
        i:=c[0];
        c[i+1]:=c[i+1]+c[i] div 10;
        c[i]:=c[i] mod 10;
    end;
    exit(c);
end;
function check(a,b:arr):boolean;
begin
    if a[0]<b[0] then exit(true);
    if a[0]>b[0] then exit(false);
    for i:=a[0] downto 1 do
    begin
        if a[i]<b[i] then exit(true);
        if a[i]>b[i] then exit(false);
    end;
    exit(true);
end;
begin
    readln(s1);
    readln(s2);
    a[0]:=length(s1);
    b[0]:=length(s2);
    for i:=1 to a[0] do a[i]:=ord(s1[a[0]-i+1])-48;
    for i:=1 to b[0] do b[i]:=ord(s2[b[0]-i+1])-48;
    while check(a,b) do
    begin
        inc(sum);
        a:=a*2;
    end;
    sum:=sum-1;
    sum:=sum mod 6;
    if sum=0 then writeln(0) else
    begin
        j:=1;
        for i:=1 to sum do j:=j*2;
        writeln(j);
    end;
end.