Hướng dẫn giải của INCSEQ VN


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='';
      maxn=10001;
      z=5000000;
var n,k,i,x,re,j,t,maxc,max:longint;
    a,e,d:array[0..maxn] of longint;
    f:array[1..50,1..maxn] of longint;

procedure add(j,x,v:longint);
begin
     while x<=maxc do
     begin
          f[j,x]:=f[j,x]+v; 
          if f[j,x]>=z then f[j,x]:=f[j,x]-z;
          x:=x+x and (-x);
     end;
end;

function calc(j,x:longint):longint;
var r:longint;
begin
     r:=0;
     while x>0 do
     begin
          r:=r+f[j,x];
          if r>=z then r:=r-z;
          x:=x-x and (-x);
     end;
     calc:=r;
end;

procedure sort(l,r:longint);
var i,x,y,j:longint;
begin
     i:=l; j:=r; x:=a[(i+j) shr 1];
     repeat
           while a[i]<x do i:=i+1;
           while a[j]>x do j:=j-1;
           if i<=j then
           begin
                y:=a[i]; a[i]:=a[j]; a[j]:=y;
                y:=d[i]; d[i]:=d[j]; d[j]:=y;
                i:=i+1; j:=j-1;
           end;
     until i>j;
     if i<r then sort(i,r);
     if l<j then sort(l,j);
end;

begin
     assign(input,fi); reset(input);
     assign(output,fo); rewrite(output);
     read(n,k); 
     if k=1 then
     begin
          writeln(n); halt;
     end;
     max:=-1;
     a[0]:=-1;
     for i:=1 to n do
     begin
          read(a[i]);
          d[i]:=i;
     end;
     close(input);
     sort(1,n);
     for i:=1 to n do
     begin
          e[d[i]]:=i;
          if a[i]=a[i-1] then d[i]:=d[i-1]
          else d[i]:=d[i-1]+1;
     end;
     maxc:=d[n];
     re:=0;
     for i:=1 to n do
     begin
          x:=d[e[i]];
          t:=calc(k-1,x-1);
          if t>0 then re:=(re+t) mod z;
          for j:=k-1 downto 2 do
          begin
               t:=calc(j-1,x-1);
               if t=0 then continue;
               add(j,x,t);
          end;
          add(1,x,1);
     end;
     writeln(re);
     close(output);
end.

Code mẫu của happyboy99x

#include<cstdio>
#include<cstring>

const int MOD = 5000000, VAL = 1e5 + 1, N = 10000;
int inc[N], bit[VAL+1], n, k, a[N];

void update(int idx, int v) {
    for(; idx <= VAL; idx += idx & -idx)
        bit[idx] = (bit[idx] + v) % MOD;
}

int sum(int idx) {
    long long res = 0;
    for(; idx > 0; idx -= idx & -idx)
        res += bit[idx];
    return res % MOD;
}

int main() {
    scanf("%d%d", &n, &k);
    for(int i = 0; i < n; ++i) {
        scanf("%d", a+i);
        ++a[i]; inc[i] = 1;
    }
    for(int l = 2; l <= k; ++l) {
        memset(bit, 0, sizeof bit);
        for(int i = 0; i < n; ++i) {
            update(a[i], inc[i]);
            inc[i] = sum(a[i] - 1);
        }
    }
    long long res = 0;
    for(int i = 0; i < n; ++i) res += inc[i]; 
    printf("%d\n", int(res % MOD));
    return 0;
}

Code mẫu của ladpro98

program incvn;
uses    math;
const   base=5000000;
        maxN=10004;
        maxK=55;
        maxV=100010;
var     f:array[0..maxN,0..maxK] of longint;
        a:array[1..maxN] of longint;
        bit:array[0..maxK,0..maxV] of longint;
        n,k,res,mv,i,j,t,p:longint;

procedure update(i,v:longint);
begin
        while i<=mV do
        begin
                inc(bit[p,i],v);
                if bit[p,i]>=base then dec(bit[p,i],base);
                i:=i+i and (-i);
        end;
end;

function get(k:longint):longint;
var     sum:longint;
begin
        sum:=0;
        while k>0 do
        begin
                inc(sum,bit[p,k]);
                if sum>=base then dec(sum,base);
                k:=k-k and (-k);
        end;
        exit(sum);
end;

begin
        readln(n,k);
        p:=1;
        for i:=1 to n do
        begin
                readln(a[i]);
                inc(a[i],2);
                mv:=max(mv,a[i]);
                f[i,1]:=1;
        end;

        for j:=2 to k do
        begin
                for i:=1 to n do
                begin
                        f[i,j]:=get(pred(a[i]));
                        update(a[i],f[i,p]);
                end;
                inc(p);
        end;

        for i:=1 to n do
        begin
                inc(res,f[i,k]);
                if res>=base then dec(res,base);
        end;

        write(res);
end.

Code mẫu của RR

program INCSEQ;
const
  FINP='';
  FOUT='';
  MAXN=10001;
  MAXK=50;
  MAX=100001;
  oo=5000000;
var
  a,c,ind:array[1..MAXN] of longint;
  d:array[1..MAXK,1..MAX] of longint;
  sl,n,k:integer;
  s,count:longint;
procedure inp;
var
  f:text;
  i:integer;
begin
  assign(f,FINP); reset(f);
  readln(f,n,k);
  for i:=1 to n do
      read(f,a[i]);
  close(f);
end;
function get(k,u:longint):longint; inline;
var
  kq,v:longint;
begin
  if u<=0 then exit(0);
  kq:=d[k,u];
  v:=u and (u-1);
  if v>0 then
    begin
      kq:=kq+get(k,v);
      if kq>oo then dec(kq,oo);
    end;
  exit(kq);
end;
procedure update(k,u:longint); inline;
var
  v:longint;
begin
  if u<=0 then exit;
  d[k,u]:=d[k,u]+s;
  if d[k,u]>oo then dec(d[k,u],oo);
  v:=u+u and (-u);
  if v<=MAX then update(k,v);
end;
procedure solve;
var
  j,i:integer;
begin
  count:=0;
  for i:=1 to n do
  begin
    s:=1;
    update(1,a[i]);
    for j:=2 to k do
    begin
      s:=get(j-1,a[i]-1);
      update(j,a[i]);
    end;
    count:=count+s;
    if count>oo then dec(count,oo);
  end;
end;
procedure ans;
var
  f:text;
begin
  assign(f,FOUT); rewrite(f);
  writeln(f,count);
  close(f);
end;

procedure swap(var a,b:longint); inline;
var
  tmp:longint;
begin
  tmp:=a; a:=b; b:=tmp;
end;
procedure sort(l,r:longint); inline;
var
  i,j,mid:longint;
begin
  i:=l; j:=r; mid:=c[l+random(r-l+1)];
  repeat
    while c[i]<mid do inc(i);
    while c[j]>mid do dec(j);
    if i<=j then
      begin
        swap(c[i],c[j]);
        swap(ind[i],ind[j]);
        inc(i); dec(j);
      end;
  until i>j;
  if i<r then sort(i,r);
  if l<j then sort(l,j);
end;
procedure RR;
var
  i:longint;
begin
  for i:=1 to n do
    begin
      c[i]:=a[i];
      ind[i]:=i;
    end;
  sort(1,n);
  a[ind[1]]:=1; sl:=1;
  for i:=2 to n do
    begin
      if c[i]>c[sl] then
        begin
          inc(sl);
          c[sl]:=c[i];
        end;
      a[ind[i]]:=sl;
    end;
end;

begin
  inp;
  RR;
  solve;
  ans;
end.

Code mẫu của hieult

#include <set>
#include <map>
#include <list>
#include <cmath>
#include <ctime>
#include <deque>
#include <queue>
#include <stack>
#include <bitset>
#include <cctype>
#include <cstdio>
#include <string>
#include <vector>
#include <cassert>
#include <cstdlib>
#include <cstring>
#include <sstream>
#include <iomanip>
#include <iostream>
#include <algorithm>

using namespace std;

typedef long long ll;
typedef long double ld;
typedef unsigned int ui;
typedef unsigned long long ull;

#define Rep(i,n) for(__typeof(n) i = 0; i < (n); ++i)
#define Repd(i,n) for(__typeof(n) i = (n)-1; i >= 0; --i)
#define For(i,a,b) for(__typeof(b) i = (a); i <= (b); ++i)
#define Ford(i,a,b) for(__typeof(a) i = (a); i >= (b); --i)
#define Fit(i,v) for(__typeof((v).begin()) i = (v).begin(); i != (v).end(); ++i)
#define Fitd(i,v) for(__typeof((v).rbegin()) i = (v).rbegin(); i != (v).rend(); ++i)
#define mp make_pair
#define pb push_back
#define fi first
#define se second
#define sz(a) ((int)(a).size())
#define all(a) (a).begin(), (a).end()
#define ms(a,x) memset(a, x, sizeof(a))
#define nl puts("")
#define sp printf(" ")
#define ok puts("ok")
//#include <conio.h>

template<class F, class T> T convert(F a, int p = -1) { stringstream ss; if (p >= 0) ss << fixed << setprecision(p); ss << a; T r; ss >> r; return r; }
template<class T> void db(T a, int p = -1) { if (p >= 0) cout << fixed << setprecision(p); cout << a << " "; }
template<class T> T gcd(T a, T b) { T r; while (b != 0) { r = a % b; a = b; b = r; } return a; }
template<class T> T lcm(T a, T b) { return a / gcd(a, b) * b; }
template<class T> T sqr(T x) { return x * x; }
template<class T> T cube(T x) { return x * x * x; }
template<class T> struct Triple { T x, y, z; Triple() {} Triple(T _x, T _y, T _z) : x(_x), y(_y), z(_z) {} };
template<class T> Triple<T> euclid(T a, T b) { if (b == 0) return Triple<T>(1, 0, a); Triple<T> r = euclid(b, a % b); return Triple<T>(r.y, r.x - a / b * r.y, r.z); }
template<class T> int getbit(T s, int i) { return (s >> i) & 1; }
template<class T> T onbit(T s, int i) { return s | (T(1) << i); }
template<class T> T offbit(T s, int i) { return s & (~(T(1) << i)); }
template<class T> int cntbit(T s) { return s == 0 ? 0 : cntbit(s >> 1) + (s & 1); }
const int bfsz = 1 << 16; char bf[bfsz + 5]; int rsz = 0;int ptr = 0;
char gc() { if (rsz <= 0) { ptr = 0; rsz = fread(bf, 1, bfsz, stdin); if (rsz <= 0) return EOF; } --rsz; return bf[ptr++]; }
void ga(char &c) { c = EOF; while (!isalpha(c)) c = gc(); }
int gs(char s[]) { int l = 0; char c = gc(); while (isspace(c)) c = gc(); while (c != EOF && !isspace(c)) { s[l++] = c; c = gc(); } s[l] = '\0'; return l; }
template<class T> bool gi(T &v) {
    v = 0; char c = gc(); while (c != EOF && c != '-' && !isdigit(c)) c = gc(); if (c == EOF) return false; bool neg = c == '-'; if (neg) c = gc();
    while (isdigit(c)) { v = v * 10 + c - '0'; c = gc(); } if (neg) v = -v; return true;
}

const double PI = 2 * acos(0);
const string months[] = {"January", "February", "March", "April", "May", "June", "July", "August", "September", "October", "November", "December"};
const int days[] = {31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31};
const int dr[] = {-1, 0, +1, 0};
const int dc[] = {0, +1, 0, -1};

const int inf = (int)1e9 + 5;
const ll linf = (ll)1e16 + 5;
const double eps = 1e-9;
const ll mod = 5000000;
typedef pair<int, int> II;

#define maxn 10005

int n, k, a[maxn], g[maxn][52], f[maxn][52] = {0};
int x[maxn];
vector<int> v;

int get(int u, int id){
    int res = 0;
    for(int i = u; i > 0; i -= i & -i)
        res = (res + f[i][id]) % mod;
    return res;
}

void update(int u, int add, int id){
    for(int i = u; i < maxn; i += i & -i){
        f[i][id] = (f[i][id] + add) % mod;
    }
}

int main() {
//    freopen("in.txt", "r", stdin);
//    freopen("out.txt", "w", stdout);
    scanf("%d", &n); scanf("%d", &k);
    For(i, 1, n){ scanf("%d", &x[i]); x[i]++; v.pb(x[i]);}
    sort(all(v));
    For(i, 1, n) a[i] = lower_bound(all(v), x[i]) - v.begin() + 1;

    int res = 0;
    For(i, 1, n) For(j, 1, k){
        if(j == 1) g[i][j] = 1;
        else g[i][j] = get(a[i] - 1, j - 1);
        update(a[i], g[i][j], j);
        if(j == k) res = (res + g[i][j]) % mod;
    }
    cout << res;
}

Code mẫu của ll931110

{$MODE DELPHI}
program INCVN;
const
  input  = '';
  output = '';
  maxn = 10000;
  maxk = 50;
  base = 5000000;
var
  b,pos,a: array[1..maxn] of integer;
  t: array[0..maxn,0..maxk] of integer;
  n,k: integer;

procedure init;
var
  f: text;
  i: integer;
begin
  assign(f, input);
    reset(f);

  readln(f, n,k);
  for i := 1 to n do
    begin
      read(f, b[i]);
      pos[i] := i;
    end;

  close(f);
end;

procedure swap(var x,y: integer);
var
  z: integer;
begin
  z := x;
  x := y;
  y := z;
end;

procedure quicksort;

  procedure partition(l,h: integer);
  var
    i,j,p: integer;
  begin
    if l >= h then exit;
    i := l;     j := h;     p := b[random(h - l + 1) + l];

    repeat
      while b[i] < p do inc(i);
      while b[j] > p do dec(j);

      if i <= j then
        begin
          if i < j then
            begin
              swap(b[i],b[j]);
              swap(pos[i],pos[j]);
            end;
          inc(i);
          dec(j);
        end;

    until i > j;

    partition(l,j);
    partition(i,h);
  end;

var
  i,c: integer;
begin
  partition(1,n);
  c := 1;
  a[pos[1]] := 1;
  for i := 2 to n do
    begin
      if b[i] > b[i - 1] then inc(c);
      a[pos[i]] := c;
    end;
end;

procedure update(x,y,z: integer);
begin
  while x <= maxn do
    begin
      t[x,y] := (t[x,y] + z) mod base;
      x := x + (x and -x);
    end;
end;

function calc(x,y: integer): integer;
var
  res: integer;
begin
  if x = 0 then exit(0);
  res := 0;
  while x > 0 do
    begin
      res := res + t[x,y];
      x := x - (x and -x);
    end;
  calc := res mod base;
end;

procedure solve;
var
  i,j,tmp: integer;
begin
  fillchar(t, sizeof(t), 0);
  for i := 1 to n do
    begin
      for j := 2 to k do
        begin
          tmp := calc(a[i] - 1,j - 1);
          update(a[i],j,tmp);
        end;
      update(a[i],1,1);
    end;
end;

procedure printresult;
var
  f: text;
begin
  assign(f, output);
    rewrite(f);
    writeln(f, calc(n,k));
  close(f);
end;

begin
  init;
  quicksort;
  solve;
  printresult;
end.

Code mẫu của khuc_tuan

#include <vector>
#include <algorithm>
#include <cstdio>
#include <iostream>
#include <cstring>
using namespace std;

const int MOD = 5000000;

int n, k;
int a[10010], pos[10010], F[10010], bit[10010];
pair<int,int> b[10010];

void add(int i, int v) {
    for(;i<=n;i+=i&(-i)) bit[i] = (bit[i] + v) % MOD;
}

int get(int i) {
    int r = 0;
    for(;i>0;i&=(i-1)) r = (r + bit[i]) % MOD;
    return r;
}

int main() {
    scanf("%d%d", &n, &k);
    for(int i=1;i<=n;++i) {
        scanf("%d", a+i);
        b[i] = make_pair(a[i], -i);
    }
    sort( b + 1, b + n + 1);
    for(int i=1;i<=n;++i) pos[-b[i].second] = i;
    for(int i=1;i<=n;++i) F[i] = 1;
    for(int i=2;i<=k;++i) {
        memset( bit, 0, sizeof(bit));
        for(int j=1;j<=n;++j) {
            int tmp = get(pos[j]);
            add(pos[j], F[j]);
            F[j] = tmp;
        }
    }   
    int result = 0;
    for(int i=1;i<=n;++i) result = (result + F[i]) % MOD;
    printf("%d\n", result);
    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.