結果
問題 | No.800 四平方定理 |
ユーザー |
|
提出日時 | 2019-03-17 21:26:13 |
言語 | D (dmd 2.109.1) |
結果 |
AC
|
実行時間 | 1,759 ms / 2,000 ms |
コード長 | 575 bytes |
コンパイル時間 | 894 ms |
コンパイル使用メモリ | 116,876 KB |
実行使用メモリ | 209,884 KB |
最終ジャッジ日時 | 2024-06-13 04:17:46 |
合計ジャッジ時間 | 21,838 ms |
ジャッジサーバーID (参考情報) |
judge3 / judge5 |
(要ログイン)
ファイルパターン | 結果 |
---|---|
sample | AC * 3 |
other | AC * 30 |
ソースコード
import std.stdio, std.array, std.string, std.conv, std.algorithm; import std.typecons, std.range, std.random, std.math, std.container; import std.numeric, std.bigint, core.bitop, core.stdc.string; void main() { auto s = readln.split.map!(to!long); auto N = s[0]; auto D = s[1]; long[long] cnt; foreach (z; 1..N+1) foreach (w; 1..N+1) cnt[z*z-w*w] += 1; long ans = 0; foreach (x; 1..N+1) { foreach (y; 1..N+1) { if (D-x*x-y*y in cnt) { ans += cnt[D-x*x-y*y]; } } } ans.writeln; }