結果

問題 No.2964 Obstruction Bingo
ユーザー maeshun
提出日時 2024-11-17 16:41:08
言語 C++17
(gcc 13.3.0 + boost 1.87.0)
結果
AC  
実行時間 1,365 ms / 2,468 ms
コード長 1,514 bytes
コンパイル時間 4,765 ms
コンパイル使用メモリ 255,260 KB
最終ジャッジ日時 2025-02-25 05:20:56
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 49
権限があれば一括ダウンロードができます

ソースコード

diff # 

#include <bits/stdc++.h>
#include <atcoder/all>
using namespace std;
using namespace atcoder;
#define rep(i, n) for(int i=0;i<(n);++i)
#define rep1(i, n) for(int i=1;i<=(n);i++)
#define ll long long
using mint = modint998244353;
using P = pair<ll,ll>;
using lb = long double;
using T = tuple<ll, ll, ll>;
#ifdef LOCAL
#  include <debug_print.hpp>
#  define dbg(...) debug_print::multi_print(#__VA_ARGS__, __VA_ARGS__)
#else
#  define dbg(...) (static_cast<void>(0))
#endif

mint dp[505][505][505];

int main()
{
    int l, k;
    cin >> l >> k;
    string S, T;
    cin >> S >> T;
    int n = 26;
    vector<int> a(n);
    rep(i,n) cin >> a[i];
    int all = accumulate(a.begin(),a.end(),0);
    dp[0][0][0] = 1;
    vector<mint> p(n);
    rep(i,n) p[i] = mint(a[i]) * mint(all).inv();
    rep(i,k) {
        for(int j=0;j<=k;j++)for(int h=0;h<=k;h++) {
            if(abs(j-h)>=l) continue;
            if(dp[i][j][h]==0) continue;
            rep(t,n) {
                if(t==S[j%l]-'a' && t==T[h%l]-'a')  dp[i+1][j+1][h+1] += dp[i][j][h]*p[t];
                else if(t==S[j%l]-'a') dp[i+1][j+1][h] += dp[i][j][h]*p[t];
                else if(t==T[h%l]-'a') dp[i+1][j][h+1] += dp[i][j][h]*p[t];
                else dp[i+1][j][h] += dp[i][j][h]*p[t];
            }
        }
    }
    mint A, B;
    for(int i=1;i<=k;i++) for(int j=0;j<=k;j++) for(int h=0;h<=k;h++) {
        if(j-h==l) A += dp[i][j][h];
        if(h-j==l) B += dp[i][j][h];
    }
    cout << A.val() << " " << B.val() << endl;
    return 0;
}
0