結果

問題 No.58 イカサマなサイコロ
ユーザー TKTYITKTYI
提出日時 2022-04-08 13:15:08
言語 C++14
(gcc 12.3.0 + boost 1.83.0)
結果
WA  
実行時間 -
コード長 1,332 bytes
コンパイル時間 4,304 ms
コンパイル使用メモリ 232,396 KB
実行使用メモリ 5,376 KB
最終ジャッジ日時 2024-05-06 02:19:32
合計ジャッジ時間 4,685 ms
ジャッジサーバーID
（参考情報） 		judge1 / judge2
このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示
入力 結果 実行時間
実行使用メモリ
testcase_00 WA -
testcase_01 AC 2 ms
5,376 KB
testcase_02 WA -
testcase_03 WA -
testcase_04 WA -
testcase_05 WA -
testcase_06 WA -
testcase_07 AC 2 ms
5,376 KB
testcase_08 WA -
testcase_09 WA -
権限があれば一括ダウンロードができます

ソースコード

diff # 

#include <bits/stdc++.h>
#include <atcoder/all>
using namespace std;
using namespace atcoder;
typedef long long int ll;
typedef long double ld;
#define FOR(i,l,r) for(ll i=l;i<r;i++)
#define REP(i,n) FOR(i,0,n)
#define RFOR(i,l,r) for(ll i=r-1;i>=l;i--)
#define RREP(i,n) RFOR(i,0,n)
#define ALL(x) x.begin(),x.end()
#define PA pair<ll,ll>
#define F first
#define S second
#define BS(A,x) binary_search(ALL(A),x)
#define LB(A,x) (ll)(lower_bound(ALL(A),x)-A.begin())
#define UB(A,x) (ll)(upper_bound(ALL(A),x)-A.begin())
#define COU(A,x) (UB(A,x)-LB(A,x))
template<typename T>using min_priority_queue=priority_queue<T,vector<T>,greater<T>>;
using mint=modint1000000007;
//using mint=modint998244353;
void chmax(ll&a,ll b){a=max(a,b);}
void chmin(ll&a,ll b){a=min(a,b);}
void print(vector<ll>&A){REP(i,A.size()){if(i)cout<<" ";cout<<A[i];}cout<<endl;}
ld dist(ld x1,ld y1,ld x2,ld y2){return sqrtl((x1-x2)*(x1-x2)+(y1-y2)*(y1-y2));}
int main(){
  int N,K;cin>>N>>K;
  vector<vector<ll>>Taro(N+1,vector<ll>(60)),Jiro(N+1,vector<ll>(60));
  Taro[0][0]=Jiro[0][0]=1;
  REP(i,N)REP(j,6)REP(k,60-j)Taro[i+1][k+j]+=Taro[i][k];
  REP(i,N-K)Jiro[i+1]=Taro[i+1];
  FOR(i,N-K,N)FOR(j,3,6)REP(k,60-j)Jiro[i+1][k+j]+=2*Jiro[i][k];
  ll ans=0;
  REP(i,60)REP(j,i)ans+=Taro[N][i]*Jiro[N][j];
  printf("%.10llf\n",(ld)ans/powl(36,N));
  return 0;
}
0