第二类斯特林，注意(n=0)or(m=0)应输出0

不过这道题其实题意不是很清晰，要注意若两个方案满足第一个方案的M个瓮互相交换位置后可以得到第二个方案的话，那么这两个算一个方案

裸的集合划分，第一次传没用高精度……

（这也算原创题，NOIP初赛都考过……）

注意ans是0的情况

同LS，我也是50分，囧死

80分的的同学请注意了，把read改成readln，即可ac

考虑n

我觉得f[i][j]=f[j-1]+f[j]*j;不知道对不对，因为我比赛时只得了10分。看来unsigned long long不行，得上高精了……

应该是考虑n0） 的状况。。我只考虑了n

郁闷，还是离线好，方便......

早知道一开始就离线了....

话说这次比赛好水啊

这题不用高精度只过1个点？...没p了..以后再也不懒了

为什么比正确答案长。=_+

.

噢噢

提高组第二题~~

编译通过...

├ 测试数据 01：运行时错误...|错误号: 216

├ 测试数据 02：运行时错误...|错误号: 216

├ 测试数据 03：运行时错误...|错误号: 216

├ 测试数据 04：运行时错误...|错误号: 216

├ 测试数据 05：运行时错误...|错误号: 216

├ 测试数据 06：运行时错误...|错误号: 216

├ 测试数据 07：运行时错误...|错误号: 216

├ 测试数据 08：运行时错误...|错误号: 216

├ 测试数据 09：运行时错误...|错误号: 216

├ 测试数据 10：运行时错误...|错误号: 216

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：0 有效耗时：0ms

为什么啊？

program turtle;

const w=10000;

type arr=array[0..100] of longint;

var f:array[1..100,1..100] of arr;

i,j,n,m:longint;

function cheng(var a:arr; b:integer):arr;

var i:longint;

begin

for i:=1 to a[0] do a[i]:=a[i]*b;

for i:=1 to a[0] do

begin

a:=a+(a[i] div w);

a[i]:=a[i] mod w;

end;

if a[a[0]+1]>0 then inc(a[0]);

cheng:=a;

end;

function jia(a,b:arr):arr;

var i,k:longint;

c:arr;

begin

if a[0]0 then inc(a[0]);

jia:=a;

end;

procedure print(a:arr);

var i:longint;

begin

write(a[a[0]]);

for i:=a[0]-1 downto 1 do

begin

if (a[i]=100) then write('0')

else if (a[i]=10) then write('00')

else if a[i]

100个