結果

問題 No.152 貯金箱の消失
コンテスト
ユーザー ゴリポン先生
提出日時 2025-11-19 14:42:34
言語 D
(dmd 2.109.1)
結果
AC  
実行時間 174 ms / 5,000 ms
コード長 552 bytes
コンパイル時間 5,825 ms
コンパイル使用メモリ 160,216 KB
実行使用メモリ 7,720 KB
最終ジャッジ日時 2025-11-19 16:09:15
合計ジャッジ時間 7,698 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge5
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
other AC * 12
権限があれば一括ダウンロードができます
コンパイルメッセージ
/home/linuxbrew/.linuxbrew/opt/dmd/include/dlang/dmd/std/numeric.d(2999): Warning: cannot inline function `std.numeric.gcdImpl!ulong.gcdImpl`

ソースコード

diff #
raw source code 

module main;
// https://note.com/mersenne13/n/n7fee38b6e14c より
// 原始ピタゴラス数
import std;


void main()
{
	// 入力
	auto L = readln.chomp.to!long;
	// 答えの計算
	immutable MOD = 1_000_003L;
	long ans = 0;
	long m = 2;
	while (m * m <= 10L ^^ 7) {
		foreach (n; 1 .. m) {
			if ((m - n) % 2 == 0 || gcd(m, n) > 1)
				continue;
			long a = m * m - n * n;
			long b = 2 * m * n;
			long c = m * m + n * n;
			if (4 * (a + b + c) <= L) {
				if (++ans == MOD)
					ans = 0;
			}
		}
		++m;
	}
	// 答えの出力
	writeln(ans);
}
0