埃及分数

【问题描述】

在古埃及，人们使用单位分数的和(形如1/a的, a是自然数)表示一切有理数。如：2/3=1/2+1/6,但不允许2/3=1/3+1/3,因为加数中有相同的。对于一个分数a/b,表示方法有很多种，但是哪种最好呢？首先，加数少的比加数多的好；其次，加数个数相同的，最小的分数越大越好；再次，满足上述条件的，字典序最小的最好。

如：

19/45=1/3 + 1/12 + 1/180

19/45=1/3 + 1/15 + 1/45

19/45=1/3 + 1/18 + 1/30

19/45=1/4 + 1/6 + 1/180

19/45=1/5 + 1/6 + 1/18

最好的是最后一种，因为1/18比1/180,1/45,1/30,1/180都大。

给出a,b(0

program asdf;
var
t:boolean;
ans,a:array[0..10000] of int64;
i,s:longint;
big,fz,fm,x,y:int64;
function max(a,b:longint):longint;
begin
max:=a;
if max<b then max:=b;
end;
function min(a,b:longint):longint;
begin
min:=a;
if min>b then min:=b;
end;
procedure sss(k:longint);
var
i:longint;
mmi,mma,sx,sy:int64;
begin
mmi:=max(a[k-1]+1,y div x);
mma:=min(big-1,y*(s-k+1) div x);
sx:=x;
sy:=y;
for i:=mmi to mma do
begin
x:=sx;
y:=sy;
x:=x*i-y;
if x<0 then
continue;
y:=y*i;
a[k]:=i;
if k<>s then
sss(k+1)
else if (x=0)and(i<=big) then
begin
ans:=a;
big:=i;
t:=true;
end;
end;
end;
begin
read(fz,fm);
s:=0;
big:=999999999;
t:=false;
while not t do
begin
inc(s);
x:=fz;
y:=fm;
sss(1);
if s>20 then
break;
end;
for i:=1 to s do
write(ans[i],' ');
writeln;
end.