第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.