【题意】
用c种颜色染正s边形s个顶点有多少种不同的方案
【输入】
每行一个c、s
以两个0结束
【输出】
对于每组数据输出一个数表示有多少种不同的方案
polya定理经典模板
program poj2409;
var
c,s,i,j,k:longint;
ans:int64;
function gcd (a,b:int64):int64;
var
i:longint;
begin
while a mod b<>0 do
begin
i:=a mod b;
a:=b;
b:=i;
end;
exit(b);
end;
function quick (a,b:int64):int64;
var
i:int64;
begin
if b=0 then exit(1);
if b=1 then exit(a);
i:=quick(a,......
阅读全文