結果

問題 No.173 カードゲーム（Medium）
コンテスト
ユーザー te-sh
提出日時 2018-07-13 15:57:01
言語 D
(dmd 2.112.0)
コンパイル:
dmd -fPIE -m64 -w -wi -O -release -inline -I/opt/dmd/src/druntime/import/ -I/opt/dmd/src/phobos -L-L/opt/dmd/linux/lib64/ -fPIC _filename_
実行:
./Main
結果
AC  
実行時間 404 ms / 3,000 ms
コード長 1,250 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 4,893 ms
コンパイル使用メモリ 137,228 KB
実行使用メモリ 7,844 KB
最終ジャッジ日時 2026-02-19 21:28:01
合計ジャッジ時間 5,775 ms
ジャッジサーバーID
（参考情報） 		judge2 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 11
権限があれば一括ダウンロードができます

ソースコード

diff #
raw source code 

import std.algorithm, std.container, std.conv, std.math, std.range, std.typecons, std.stdio, std.string;
import std.random;

auto rdsp(){return readln.splitter;}
void pick(R,T)(ref R r,ref T t){t=r.front.to!T;r.popFront;}
void readV(T...)(ref T t){auto r=rdsp;foreach(ref v;t)pick(r,v);}
void readA(T)(size_t n,ref T[]t){t=new T[](n);auto r=rdsp;foreach(ref v;t)pick(r,v);}

const iter = 100_000;

void main()
{
  int n; real pa, pb; readV(n, pa, pb);
  int[] a; readA(n, a);
  int[] b; readA(n, b);

  a.sort();
  b.sort();

  auto calc()
  {
    auto decide(ref int[] a, real p)
    {
      if (a.length == 1) {
        auto r = a[0];
        a = [];
        return r;
      }

      auto q = uniform01;
      if (q < p) {
        auto r = a[0];
        a = a[1..$];
        return r;
      } else {
        auto i = uniform(1, a.length);
        auto r = a[i];
        a = a[0..i] ~ a[i+1..$];
        return r;
      }
    }

    auto da = a.dup, db = b.dup, sa = 0, sb = 0;

    foreach (_; 0..n) {
      auto ca = decide(da, pa), cb = decide(db, pb);
      if (ca > cb)      sa += ca+cb;
      else if (ca < cb) sb += ca+cb;
    }

    return sa > sb;
  }

  auto r = 0;
  foreach (_; 0..iter) r += calc;

  writefln("%.4f", r.to!real/iter);
}
0