2017.5.14测试 第4题: 解码

第4题: 解码

【题目描述】 

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

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

陷阱有一个神奇的出口，但需要输入正确的密码。红云不能理解地球人的思维所以并不知道怎么办。幸运的是它发现陷阱的旁边有一只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<=1000, n<=m<=10000

var
 n,m,i:longint;
 f:array[0..2] of longint;
function try(x,y:longint):longint;
var ans:longint;
begin
  ans:=1;
  while y>0 do
  begin
    if odd(y) then ans:=ans*x mod 23333;
    x:=x*x mod 23333;
    y:=y div 2;
  end;
  exit(ans);
end;
begin
 readln(n,m);
 f[0]:=1;
 for i:=1 to n do
  f[i mod 2]:=f[(i+1)mod 2]*(m-i+1)*try(i,23331)mod 23333;
 writeln(f[n mod 2]);
end.