#8140 (D) No.137 貯金箱の焦り

• 問題: No.137 貯金箱の焦り
• ユーザー: 👑 hos.lyric
• 提出日時: 2015-01-05 05:33:14
• 言語: D (dmd 2.106.1)
• 結果: AC
• 実行時間: 991 ms / 5,000 ms
• コード長: 733 bytes
• コンパイル時間: 864 ms
• コンパイル使用メモリ: 102,784 KB
• 実行使用メモリ: 5,376 KB
• 最終ジャッジ日時: 2024-06-12 01:51:28
• 合計ジャッジ時間: 6,543 ms
• ジャッジサーバーID （参考情報）: judge1 / judge3

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	2 ms; 5,248 KB
testcase_01	AC	1 ms; 5,376 KB
testcase_02	AC	2 ms; 5,376 KB
testcase_03	AC	1 ms; 5,376 KB
testcase_04	AC	26 ms; 5,376 KB
testcase_05	AC	13 ms; 5,376 KB
testcase_06	AC	14 ms; 5,376 KB
testcase_07	AC	7 ms; 5,376 KB
testcase_08	AC	8 ms; 5,376 KB
testcase_09	AC	16 ms; 5,376 KB
testcase_10	AC	7 ms; 5,376 KB
testcase_11	AC	1 ms; 5,376 KB
testcase_12	AC	991 ms; 5,376 KB
testcase_13	AC	536 ms; 5,376 KB
testcase_14	AC	475 ms; 5,376 KB
testcase_15	AC	407 ms; 5,376 KB
testcase_16	AC	383 ms; 5,376 KB
testcase_17	AC	127 ms; 5,376 KB
testcase_18	AC	367 ms; 5,376 KB
testcase_19	AC	431 ms; 5,376 KB
testcase_20	AC	1 ms; 5,376 KB
testcase_21	AC	201 ms; 5,376 KB
testcase_22	AC	23 ms; 5,376 KB
testcase_23	AC	22 ms; 5,376 KB
testcase_24	AC	97 ms; 5,376 KB
testcase_25	AC	256 ms; 5,376 KB

ソースコード

import std.algorithm, std.conv, std.stdio, std.string;

immutable long MO = 1_234_567_891;

void add(ref long t, in long f) {
	if ((t += f) >= MO) {
		t -= MO;
	}
}

void main() {
	string[] tokens;
	tokens = readln.chomp.split(" ");
	const N = tokens[0].to!int;
	const M = tokens[1].to!long;
	tokens = readln.chomp.split(" ");
	auto A = new int[N];
	foreach (i; 0 .. N) {
		A[i] = tokens[i].to!int;
	}
	
	const ASum = A.reduce!((a, b) => a + b);
	auto dp = new long[ASum * 2];
	dp[0] = 1;
	foreach (j; 0 .. 64) {
		foreach (i; 0 .. N) {
			foreach_reverse (x; A[i] .. ASum * 2) {
				add(dp[x], dp[x - A[i]]);
			}
		}
		foreach (x; 0 .. ASum) {
			dp[x] = dp[x << 1 | ((M >> j) & 1)];
		}
		dp[ASum .. $] = 0;
	}
	writeln(dp[0]);
}