map<pair<ll,ll>,ll>a;
ll@n,@m,b[n],z=0;
rep(i,n)b[i]=i;
rep(m){
	ll@s,x=b[s-1],y=b[s];
	sortE(x,y);
	z+=!a[{x,y}]++;
	swap(b[s-1],b[s]);
}
wt(z);