Lakhesh loves to make movies, so Nephren helps her run a cinema. We may call it No. 68 Cinema.

However, one day, the No. 68 Cinema runs out of changes (they don't have 50-yuan notes currently), but Nephren still wants to start their business. (Assume that yuan is a kind of currency in Regulu Ere.)

There are three types of customers: some of them bring exactly a 50-yuan note; some of them bring a 100-yuan note and Nephren needs to give a 50-yuan note back to him/her; some of them bring VIP cards so that they don't need to pay for the ticket.

Now n customers are waiting outside in queue. Nephren wants to know how many possible queues are there that they are able to run smoothly (i.e. every customer can receive his/her change), and that the number of 50-yuan notes they have after selling tickets to all these customers is between l and r, inclusive. Two queues are considered different if there exists a customer whose type is different in two queues. As the number can be large, please output the answer modulo p.

Input

One line containing four integers n (1 ≤ n ≤ 105), p (1 ≤ p ≤ 2·109), l and r (0 ≤ l ≤ r ≤ n).

Output

One line indicating the answer modulo p.

Examples

Input
4 97 2 3
Output
13
Input
4 100 0 4
Output
35

Note

We use A, B and C to indicate customers with 50-yuan notes, customers with 100-yuan notes and customers with VIP cards respectively.

For the first sample, the different possible queues that there are 2 50-yuan notes left are AAAB, AABA, ABAA, AACC, ACAC, ACCA, CAAC, CACA and CCAA, and the different possible queues that there are 3 50-yuan notes left are AAAC, AACA, ACAA and CAAA. So there are 13 different queues satisfying the first sample. Similarly, there are 35 different queues satisfying the second sample.

题意:现在有N个人排队看电影,最开始收费处没有50元额钞票。买票的人可以付100元、50元或者刷卡,但是付100元的时候需要保证收费处能补50元。

问最后收费处还剩L到R张50元的方案数。

思路:如果不考虑刷卡,那就是一个卡特兰数,有刷卡的情况,我们枚举刷卡个数即可。所以我们现在假设不存在刷卡的情况:

首先我们需要知道卡特兰数的扩展--->从(0,0)出发到点(a,b),方案数为C(a+b,a);其中经过x=y分界线的方案数等效于从(-1,1)到(a,b)的方案数C(a+b,a-1);所以从(0,0)到(a,b),而且不经过x=y的方案数为C(a+b,a)-C(a+b,a-1);

我们注意到这里的a+b为定值,a和a-1相差1,而[L,R]又是连续区间,所以我们利用前缀和来解决这个问题,最终可以推出:

ans=(C(N,(N-L)/2)-C(N,(N-L)/2-1))  +   (C(N,(N-L)/2-1)-C(N,(N-L)/2-2))  +...+  (C(N,(N-R)/2)-C(N,(N-R-1)/2)) =C(N,(N-L)/2)-C(N,(N-R-1)/2);

然后需要解决的问题是除法问题,因为P不一定是质数,但是鉴于N比较小,我们可以手动把所有数拆为不含P因子的数和含P因子的数,然后前者做正常的乘法,除法。后者做加,减法,最后统一快速幂乘。

(也可以用找循环节的方法:把P拆分为多个素数幂的形式,最后用中国剩余定理合并,可以见CQZhangYu的代码,但是这里N比较小,没必要。

#include<bits/stdc++.h>
#define rep(i,a,b) for(int i=a;i<=b;i++)
#define ll long long
using namespace std;
const int maxn=;
int f[maxn],rev[maxn],P,N,p[],cnt,num[maxn][];
int qpow(int a,int x){ int res=;while(x){if(x&)res=(ll)res*a%P;a=(ll)a*a%P;x>>=;}return res; }
void solve()
{
int phi=P,tp=P; f[]=rev[]=;
for(int i=;i<=tp/i;i++){
if(tp%i==) {
p[++cnt]=i;
phi=phi/i*(i-);
while(tp%i==) tp/=i;
}
}
if(tp>) phi=phi/tp*(tp-),p[++cnt]=tp;
rep(i,,N) {
int x=i; rep(j,,cnt){
num[i][j]=num[i-][j];
while(x%p[j]==) num[i][j]++,x/=p[j];
}
f[i]=(ll)f[i-]*x%P;
rev[i]=qpow(f[i],phi-);
}
}
int C(int x,int y)
{
if(y<) return ; int res=;
res=(ll)f[x]*rev[y]%P*rev[x-y]%P;
rep(i,,cnt) res=(ll)res*qpow(p[i],num[x][i]-num[y][i]-num[x-y][i])%P;
return res;
}
int main()
{
int L,R,ans=;
scanf("%d%d%d%d",&N,&P,&L,&R);
R=min(N,R); solve();
rep(i,,N-L) ans=(ans+1LL*(C(N-i,(N-i-L)>>)-C(N-i,(N-i-R-)>>))*C(N,i))%P;
printf("%d\n",ans);
return ;
}

CodeForces - 896D :Nephren Runs a Cinema(卡特兰数&组合数学---比较综合的一道题)的更多相关文章

  1. 【CF896D】Nephren Runs a Cinema 卡特兰数+组合数+CRT

    [CF896D]Nephren Runs a Cinema 题意:一个序列中有n格数,每个数可能是0,1,-1,如果一个序列的所有前缀和都>=0且总和$\in [L,R]$,那么我们称这个序列是 ...

  2. CF896D Nephren Runs a Cinema

    CF896D Nephren Runs a Cinema 题意 售票员最开始没有纸币,每次来一个顾客可以给她一张.拿走她一张或不操作.求出不出现中途没钱给的情况 \(n\) 名顾客后剩余钱数在 \(l ...

  3. Train Problem II(卡特兰数 组合数学)

    题目链接:http://acm.hdu.edu.cn/showproblem.php?pid=1023 Train Problem II Time Limit: 2000/1000 MS (Java/ ...

  4. uva 1478 - Delta Wave(递推+大数+卡特兰数+组合数学)

    option=com_onlinejudge&Itemid=8&category=471&page=show_problem&problem=4224" st ...

  5. hdu5673 Robot 卡特兰数+组合数学+线性筛逆元

    Robot Time Limit: 12000/6000 MS (Java/Others)    Memory Limit: 65536/65536 K (Java/Others)Total Subm ...

  6. BZOJ1856:[SCOI2010]字符串(卡特兰数,组合数学)

    Description lxhgww最近接到了一个生成字符串的任务,任务需要他把n个1和m个0组成字符串,但是任务还要求在组成的字符串中,在任意的前k个字符中,1的个数不能少于0的个数.现在lxhgw ...

  7. CodeForces - 1204E Natasha, Sasha and the Prefix Sums (组合数学,卡特兰数扩展)

    题意:求n个1,m个-1组成的所有序列中,最大前缀之和. 首先引出这样一个问题:使用n个左括号和m个右括号,组成的合法的括号匹配(每个右括号都有对应的左括号和它匹配)的数目是多少? 1.当n=m时,显 ...

  8. HDOJ/HDU 1133 Buy the Ticket(数论~卡特兰数~大数~)

    Problem Description The "Harry Potter and the Goblet of Fire" will be on show in the next ...

  9. 【高精度练习+卡特兰数】【Uva1133】Buy the Ticket

    Buy the Ticket Time Limit: 2000/1000 MS (Java/Others)    Memory Limit: 65536/32768 K (Java/Others) T ...

随机推荐

  1. javascript;Dom相关笔记

    document.ondblclick 页面双击事件document.title.charAt(0) 取标题第1个字符串window.alert  弹出消息对话框window.confirm 显示确定 ...

  2. 在vim下按ctrl+s后界面卡住

    用惯了window编辑器的我们,在使用linux vim编辑器时会不会遇到这个问题:在编辑时总是会不小心按下Ctrl+S,然后整个终端都没有反应了?其实在Linux下 Ctrl+S是有特殊的用途的,不 ...

  3. PHP搜索文件夹下全部文件

    搜索文件夹下全部文件 //搜索文件夹下全部文件,暂时不支持中文文件名 public function scanFile($path) { if (!is_dir($path)) return arra ...

  4. 函数进阶之结合tornado

    一.本篇博文内容 .协程函数 .面向过程编程 .递归和二分法 二.协程函数 协程函数:就是使用了yield表达式形式的生成器 首先函数的传参有几种? 三种: 1.实参形参传参 2.闭包的形式传参 3. ...

  5. 吴恩达深度学习笔记(十一)—— dropout正则化

    主要内容: 一.dropout正则化的思想 二.dropout算法流程 三.dropout的优缺点 一.dropout正则化的思想 在神经网络中,dropout是一种“玄学”的正则化方法,以减少过拟合 ...

  6. VCFtools

    The C++ executable module examples This page provides usage examples for the executable module. Exte ...

  7. 未在本地计算机上注册“Microsoft.Jet.OLEDB.4.0” 提供程序

    我在Web App程序里面用“Microsoft.Jet.OLEDB.4.0”来连接Excel文件,导入到数据库,在Windows 2003+ Office 2007 的环境下正常,但是在Window ...

  8. Android fill_parent和wrap_content分析

    fill_parent设置一个顶部布局或控件强制性让它布满整个屏幕.(这是不管内容大小,直接适应整个屏幕的大小,例长度设置了这,就只有长度适应屏幕的长度) wrap_content布局指根据视图内部内 ...

  9. myEclipse 输入时英文自动变成2个字符大小

    比如这样: ——这是输入法的问题,输入法被误设为圆角了. 输入法有区分圆角半角,正常来说我们使用的都是半角. 那么如何切换半圆角? ——比如:百度输入法 首先,将半圆角的快捷键显示出来: ——点击“d ...

  10. pf_ring DNA接收流程代码分析

    经过一个月的学习,对pf_ring DNA的内核部分有了一些认识,本文侧重pf_ring对ixgbe的改动分析. 先说一说接收流程吧,流程如下: 其中,硬中断处理函数是ixgbe_msix_clean ...