結果

問題 No.1682 Unfair Game
ユーザー 👑 tttmmmyyyy
提出日時 2026-11-13 23:29:18
言語 Fix
(1.6.0 + cp-library + minilib)
コンパイル:
fix_c _filename_
実行:
./a.out
結果
AC  
実行時間 0 ms / 2,000 ms
+ 696µs
コード長 931 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 14,722 ms
コンパイル使用メモリ 671,380 KB
実行使用メモリ 9,900 KB
最終ジャッジ日時 2026-11-13 23:29:46
合計ジャッジ時間 6,516 ms
ジャッジサーバーID
（参考情報） 		judge1_0 / judge3_0
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 2
other AC * 19
権限があれば一括ダウンロードができます
コンパイルメッセージ
make: 'lib.o' は更新済みです.

ソースコード

diff #
raw source code 

module Main;

import CPLib.Arithmetic::power;
import CPLib.IO;
import CPLib.ZP;

// import BinaryHeap;
// import BoolArray;
// import CPLib.Arithmetic;
// import CPLib.Bipartite;
// import CPLib.Bits;
// import CPLib.Convolution;
// import CPLib.DSegtree;
// import CPLib.Graph;
// import CPLib.LDSegtree;
// import CPLib.LSegtree;
// import CPLib.MaxFlow;
// import CPLib.Memoize;
// import CPLib.MinCostFlow;
// import CPLib.Misc;
// import CPLib.Monoid;
// import CPLib.Segtree;
// import CPLib.String;
// import CPLib.Trait;
// import CPLib.TwoSat;
// import CPLib.UnionFind;
// import HashMap;
// import HashSet;

type Z = ZP P1000000007;

main : IO () = (
    let n = *read_i;
    let ps = *read_is(n);
    let a = ps.to_iter.filter(|p| p > 50).get_size;
    let b = ps.to_iter.filter(|p| p < 50).get_size;
    let ans = if a == 0 { 0 } else { (zp(2) : Z).power(a+b-1).@value.i64 };
    ans.to_string.println;;
    pure()
);
0