解码

【题目描述】 

从前有一只红色的云在天上非常愉快地飘，但是……

红云是一只十分好奇的生物（友情提示：生物考试的时候千万不能说云是生物，千万不能！），俗话说好奇心害死云，红云因为太好奇了所以被一个邪恶的地球人的陷阱困住了。

陷阱有一个神奇的出口，但需要输入正确的密码。红云不能理解地球人的思维所以并不知道怎么办。幸运的是它发现陷阱的旁边有一只DTZ，于是它用iPhone6威胁DTZ帮它解码。

DTZ通过神奇的途径得知了密码是这道题的答案：对于一个包含n个数的数列，每一位可以从1~m中选择一个数填上去，使得这个数列递增。该数列每一位的数字不能相同，求总共有几种不同的选择方法。将答案模23333便是密码。

然而DTZ非常尴尬地发现他解决不了这个问题因为数实在太大了，所以就把这个锅强行甩给了你。作为一个善良的地球人，请尽快解决这个问题，这样红云就会十分感激并用iPhone6威胁评测系统给你的考试分数加上100分。

【输入描述】 

输入包含两个正整数n，m

【输出描述】 

输出包含一个正整数表示密码

【样例输入】 

3 3

【样例输出】 

1

【样例解释】 

假设这个数列的3个数分别为a1，a2，a3（1<=a1<a2<a3<=3< span="">），求有几种不同的填法。 </a2<a3<=3<>

那么只有一种答案：1,2,3

所以密码为1 mod 23333=1

【数据范围】

对于10%的数据，n=m

对于100%的数据，1<=n<=10000, n<=m<=10000

程序：

var
f:array[0..1,-1..10001]of longint;
i,j,n,m:longint;
function min(x,y:longint):longint;
begin
    if x>y then exit(y) else exit(x);
end;
begin
    read(n,m);
    f[0,0]:=1;
    for i:=1 to m do
    for j:=0 to min(n,i) do
    f[i mod 2,j]:=(f[(i+1) mod 2,j]+f[(i+1) mod 2,j-1]) mod 23333;
    write(f[m mod 2,n]);
end.