Hướng dẫn giải của Quan hệ có điều kiện


Chỉ dùng lời giải này khi không có ý tưởng, và đừng copy-paste code từ lời giải này. Hãy tôn trọng người ra đề và người viết lời giải.
Nộp một lời giải chính thức trước khi tự giải là một hành động có thể bị ban.

Lưu ý: Các code mẫu dưới đây chỉ mang tính tham khảo và có thể không AC được bài tập này

Code mẫu của flashmt

const fi='';
      fo='';
      d2:array[0..1] of longint=(2,1);
      d3:array[0..3] of longint=(6,6,0,1);
type int65=longint;
var p:array[0..10] of int65;
    a:array[4..10,0..60] of int65;
    b,com:array[1..10] of int65;
    t:longint; u:int64;

function sum(i:longint):int65;
var j:longint; re:int65;
begin
     re:=0;
     for j:=1 to i do re:=re+b[j];
     sum:=re;
end;

function mul(i:longint):int65;
var j:longint; re:int65;
begin
     re:=1;
     for j:=1 to i do re:=re*p[b[j]];
     mul:=re;
end;


procedure find(pos,num:longint);
var i,s,dem,k:longint;    j:int65;
begin
     i:=0;
     while i<num do
     begin
          inc(i);
          b[pos]:=i;
          s:=sum(pos);
          if s=num then
          begin
               dem:=0;
               for k:=1 to pos do dem:=dem+com[b[k]];
               a[num,dem]:=a[num,dem]+p[num] div mul(pos);
          end
          else
          begin
               if (s<num) then find(pos+1,num)
               else
               begin
                    b[pos]:=0;
                    break;
               end;
          end;
          b[pos]:=0;
     end;
end;

procedure init;
var i,j:longint; t:int65;
begin
     p[0]:=1; p[1]:=1;
     t:=1; j:=1; com[1]:=0;
     while t<10 do
     begin
          inc(t);
          inc(j);
          p[t]:=p[t-1]*t;
          com[t]:=com[t-1]+t-1;
     end;
     fillchar(a,sizeof(a),0);
     for i:=4 to 10 do
         find(1,i);
end;

begin
     init;
     assign(input,fi);
     reset(input);
     assign(output,fo);
     rewrite(output);
     read(t);
     while t<>-1 do
     begin
          readln(u);
          if t=2 then
begin
if u>1 then writeln(0) else writeln(d2[u]);
end
          else
begin
if t=3 then 
begin
if u>3 then writeln(0) else writeln(d3[u]);
end
else
begin
          if u<60 then writeln(a[t,u])
          else writeln(0);
end;
end;
          read(t);
     end;
     close(input);
     close(output);
end.

Code mẫu của happyboy99x

#include <algorithm>
#include <bitset>
#include <cctype>
#include <cfloat>
#include <climits>
#include <cmath>
#include <complex>
#include <cstdio>
#include <cstdlib>
#include <cstring>
#include <ctime>
#include <deque>
#include <functional>
#include <iostream>
#include <list>
#include <map>
#include <numeric>
#include <queue>
#include <set>
#include <stack>
#include <string>
#include <utility>
#include <vector>
using namespace std;

typedef pair<int, int> ii;
typedef vector<ii> vii;
typedef vector<vii> vvii;
typedef vector<int> vi;
typedef vector<vi> vvi;
typedef long long LL;

#define sz(a) (int((a).size()))
#define fi first
#define se second
#define pb push_back
#define mp make_pair
#define all(c) (c).begin(), (c).end()
#define tr(c,i) for(typeof((c).begin()) i = (c).begin(), _e = (c).end(); i != _e; ++i)
#define present(c,x) ((c).find(x) != (c).end())
#define cpresent(c,x) (find(all(c),x) != (c).end())
#define rep(i,n) for(int i = 0, _n = (n); i < _n; ++i)
#define repd(i,n) for(int i = (n)-1; i >= 0; --i )
#define fo(i,a,b) for(int i = (a), _b = (b); i <= _b; ++i)
#define fod(i,a,b) for(int i = (a), _b = (b); i >= _b; --i)

#define INF 1000000000
#define N 15

bool hc[N][N*(N-1)/2];
int f[N][N*(N-1)/2];

int F(int n, int k) {
    int & res = f[n][k];
    if(hc[n][k]) return res;
    hc[n][k] = 1;
    LL c = 1;
    for(int i = 1; i <= n && i*(i-1)/2 <= k; ++i) {
        c = c * (n-i+1) / i;
        res += c * F(n-i, k - i*(i-1)/2);
    }
    return res;
}

int main() {
    //freopen( "input.txt", "r", stdin );
    //freopen( "output.txt", "w", stdout );
    hc[0][0] = f[0][0] = 1;
    fo(i,1,10) { hc[i][0] = 1; f[i][0] = i * f[i-1][0]; }
    int n; LL k;
    while(scanf("%d%lld",&n,&k)==2 && n != -1) {
        printf("%d\n", n*(n-1)/2 < k ? 0 : F(n, k));
    }
    return 0;
}

Code mẫu của RR

var
  n,k:int64;
  f:array[1..10,0..45] of longint;
begin
  read(n);
f[1,0]:=1;
f[2,0]:=2;
f[2,1]:=1;
f[3,0]:=6;
f[3,1]:=6;
f[3,3]:=1;
f[4,0]:=24;
f[4,1]:=36;
f[4,2]:=6;
f[4,3]:=8;
f[4,6]:=1;
f[5,0]:=120;
f[5,1]:=240;
f[5,2]:=90;
f[5,3]:=60;
f[5,4]:=20;
f[5,6]:=10;
f[5,10]:=1;
f[6,0]:=720;
f[6,1]:=1800;
f[6,2]:=1080;
f[6,3]:=570;
f[6,4]:=360;
f[6,6]:=110;
f[6,7]:=30;
f[6,10]:=12;
f[6,15]:=1;
f[7,0]:=5040;
f[7,1]:=15120;
f[7,2]:=12600;
f[7,3]:=6720;
f[7,4]:=5040;
f[7,5]:=630;
f[7,6]:=1260;
f[7,7]:=630;
f[7,9]:=70;
f[7,10]:=126;
f[7,11]:=42;
f[7,15]:=14;
f[7,21]:=1;
f[8,0]:=40320;
f[8,1]:=141120;
f[8,2]:=151200;
f[8,3]:=90720;
f[8,4]:=69720;
f[8,5]:=20160;
f[8,6]:=15120;
f[8,7]:=11760;
f[8,8]:=1260;
f[8,9]:=1680;
f[8,10]:=1344;
f[8,11]:=1008;
f[8,12]:=70;
f[8,13]:=112;
f[8,15]:=168;
f[8,16]:=56;
f[8,21]:=16;
f[8,28]:=1;
f[9,0]:=362880;
f[9,1]:=1451520;
f[9,2]:=1905120;
f[9,3]:=1330560;
f[9,4]:=1020600;
f[9,5]:=453600;
f[9,6]:=221760;
f[9,7]:=211680;
f[9,8]:=45360;
f[9,9]:=31920;
f[9,10]:=22680;
f[9,11]:=18144;
f[9,12]:=4158;
f[9,13]:=3024;
f[9,15]:=2016;
f[9,16]:=1764;
f[9,18]:=168;
f[9,21]:=216;
f[9,22]:=72;
f[9,28]:=18;
f[9,36]:=1;
f[10,0]:=3628800;
f[10,1]:=16329600;
f[10,2]:=25401600;
f[10,3]:=20714400;
f[10,4]:=16102800;
f[10,5]:=9185400;
f[10,6]:=4082400;
f[10,7]:=3780000;
f[10,8]:=1285200;
f[10,9]:=646800;
f[10,10]:=483840;
f[10,11]:=302400;
f[10,12]:=141120;
f[10,13]:=69930;
f[10,14]:=15120;
f[10,15]:=25200;
f[10,16]:=37800;
f[10,17]:=3780;
f[10,18]:=5040;
f[10,20]:=252;
f[10,21]:=3300;
f[10,22]:=2160;
f[10,24]:=240;
f[10,28]:=270;
f[10,29]:=90;
f[10,36]:=20;
f[10,45]:=1;
  while (n>=0) do
    begin
      read(k);
      if (k<0) or (k>45) then writeln(0)
      else writeln(f[n,k]);
      read(n);
    end;
end.

Code mẫu của hieult

#include <stdio.h>
//#include <conio.h>
main()
{
long long n,k,C[11][11],f[11][46];
for(long long i=0;i<=10;i++)
  for(long long j=0;j<=10;j++)
    C[i][j]=0;
for(long long i=1;i<=10;i++)
  for(long long j=i;j<=10;j++)
    {
    C[i][j]=1;
    for(long long k=2;k<=j;k++)
      C[i][j]*=k;
    for(long long k=2;k<=i;k++)
      C[i][j]=C[i][j]/k;
    for(long long k=2;k<=(j-i);k++)
      C[i][j]=C[i][j]/k;
    }
for(long long i=0;i<=10;i++)
  C[0][i]=1;     
for(long long i=0;i<=10;i++)
  for(long long j=0;j<=45;j++)
    f[i][j]=0;
f[0][0]=1;f[1][0]=1;
for(long long i=2;i<=10;i++)
  for(long long j=0;j<=i;j++)
     for(long long k=0;k<=C[2][i-j];k++)
       f[i][C[2][j]+k]=f[i][C[2][j]+k]+C[j][i]*f[i-j][k];
while(1)
  {
  scanf("%lld",&n);
  if(n==-1)
    break;
  scanf("%lld",&k);
  if(k>45)
    printf("0\n");
  else  
  printf("%lld\n",f[n][k]);
  }               
//getch();   
}

Code mẫu của ll931110

{$MODE DELPHI}
program QBCOND;
const
  maxn = 10;
var
  a: array[1..maxn] of integer;
  t: array[1..maxn] of int64;
  n,res: integer;
  k: int64;

procedure firstlist;
var
  i: integer;
begin
  for i := 1 to maxn do
    t[i] := (i - 1) * i div 2;
end;

function calc(x,y: integer): integer;
var
  z,p: integer;
begin
  p := 1;
  for z := 1 to y do p := p * (x - z + 1) div z;
  calc := p;
end;

procedure addres;
var
  i,s,z: integer;
begin
  z := 1;
  s := 0;
  i := 1;

  while s < n do
    begin
      s := s + a[i];
      z := z * calc(s,a[i]);
      inc(i);
    end;

  res := res + z;
end;

procedure attempt(x,y,z: integer);
var
  p: integer;
begin
  for p := 1 to y do
    begin
      a[x] := p;
      if p < y then attempt(x + 1,y - p,z - t[p]) else if z = t[p] then addres;
    end;
end;

begin
  firstlist;
  repeat
    read(n);
    if n <> -1 then
      begin
        readln(k);
        res := 0;
        attempt(1,n,k);
        writeln(res);
      end;
  until n = -1;
end.

Code mẫu của khuc_tuan

#include <iostream>
using namespace std;

int n, k;
long long F[11][11][150];
long long C[20][20];
long long result[11][150];

int main() {

    //int tbegin = clock();

    for(int i=0;i<20;++i) for(int j=0;j<=i;++j)
        if(j==0 || j==i) C[j][i] = 1;
        else C[j][i] = C[j-1][i-1] + C[j][i-1];

    for(int i=1;i<=10;++i) for(int j=1;j<=i;++j) for(int t=0;t<150;++t)
        if(j==1) {
            if(t==i*(i-1)/2) F[i][j][t] = 1;
            else F[i][j][t] = 0;
        }
        else {
            for(int k=1;k<=i;++k) {
                long long socach = C[k-1][i-1];
                if(t>=k*(k-1)/2) F[i][j][t] += F[i-k][j-1][t-k*(k-1)/2] * socach;
            }
        }

    for(n=1;n<=10;++n) for(k=0;k<150;++k) {
        long long res = 0;
        for(int sn=1;sn<=n;++sn) {
            long long socach = F[n][sn][k];
            for(int i=1;i<=sn;++i) socach *= i;
            res += socach;
        }
        result[n][k] = res;
    }

    //cout << clock() - tbegin << endl;

    while(true) {
        n = -1;
        scanf("%d%d", &n, &k);
        if(n==-1) break;
        if(k<0 || k>=100) {
            cout << 0 << endl;
            continue;
        }

        printf("%lld\n", result[n][k]);
    }
    return 0;
}

Bình luận

Hãy đọc nội quy trước khi bình luận.


Không có bình luận tại thời điểm này.