Cod sursa(job #680437)

Utilizator batistaUPB-Oprea-Cosmin-Dumitru batista Data 15 februarie 2012 16:58:21
Problema Numerele lui Stirling Scor 100
Compilator cpp Status done
Runda Arhiva educationala Marime 0.65 kb
#include<fstream>
using namespace std;
int n,m,y,op,i,t;
ofstream g("stirling.out");
int s[202][202],S[202][202];
void init()
{int i;
	S[1][1]=1;
	s[1][1]=1;
}
void stirling1(int n,int m)
{int i,j;
   for(i=2;i<=n;i++)
	 for(j=1;j<=i;j++)
		 s[i][j]=(s[i-1][j-1] - (i-1)*s[i-1][j]) %98999;
	g<<s[n][m]<<'\n';
}
void stirling2(int n,int m)//partitionari
{int i,j;
  for(i=2;i<=n;i++)
	for(j=1;j<=i;j++)
		S[i][j]=(S[i-1][j-1] +j*S[i-1][j])%98999;
	g<<S[n][m]<<'\n';
}
int main()
{
	ifstream f("stirling.in");
	f>>t;
	init();
	for(i=1;i<=t;i++)
	{
		f>>op>>n>>m;
		if(op==1)stirling1(n,m);
		else stirling2(n,m);
	}
return 0;}