#65587 (Perl) No.321 (P,Q)-サンタと街の子供たち

• 問題: No.321 (P,Q)-サンタと街の子供たち
• ユーザー: tails
• 提出日時: 2015-12-14 03:17:52
• 言語: Perl (5.38.2)
• 結果: AC
• 実行時間: 155 ms / 2,000 ms
• コード長: 155 bytes
• コンパイル時間: 58 ms
• コンパイル使用メモリ: 5,336 KB
• 実行使用メモリ: 18,728 KB
• 最終ジャッジ日時: 2023-09-21 03:13:51
• 合計ジャッジ時間: 4,389 ms
• ジャッジサーバーID （参考情報）: judge12 / judge14

入力	結果	実行時間; 実行使用メモリ
testcase_00	AC	2 ms; 4,640 KB
testcase_01	AC	2 ms; 4,644 KB
testcase_02	AC	2 ms; 4,520 KB
testcase_03	AC	3 ms; 4,744 KB
testcase_04	AC	3 ms; 4,648 KB
testcase_05	AC	3 ms; 4,784 KB
testcase_06	AC	2 ms; 4,520 KB
testcase_07	AC	3 ms; 4,804 KB
testcase_08	AC	2 ms; 4,772 KB
testcase_09	AC	3 ms; 4,664 KB
testcase_10	AC	2 ms; 4,524 KB
testcase_11	AC	2 ms; 4,548 KB
testcase_12	AC	2 ms; 4,604 KB
testcase_13	AC	3 ms; 4,704 KB
testcase_14	AC	92 ms; 14,616 KB
testcase_15	AC	154 ms; 18,728 KB
testcase_16	AC	51 ms; 10,148 KB
testcase_17	AC	3 ms; 4,724 KB
testcase_18	AC	63 ms; 11,540 KB
testcase_19	AC	86 ms; 13,720 KB
testcase_20	AC	129 ms; 18,512 KB
testcase_21	AC	95 ms; 12,652 KB
testcase_22	AC	23 ms; 6,984 KB
testcase_23	AC	125 ms; 16,188 KB
testcase_24	AC	30 ms; 7,624 KB
testcase_25	AC	71 ms; 12,280 KB
testcase_26	AC	122 ms; 18,148 KB
testcase_27	AC	93 ms; 14,736 KB
testcase_28	AC	93 ms; 14,424 KB
testcase_29	AC	155 ms; 18,656 KB
testcase_30	AC	5 ms; 4,792 KB
testcase_31	AC	3 ms; 4,732 KB
testcase_32	AC	77 ms; 11,628 KB
testcase_33	AC	68 ms; 11,524 KB
testcase_34	AC	49 ms; 9,460 KB
testcase_35	AC	128 ms; 15,504 KB
testcase_36	AC	6 ms; 4,992 KB
testcase_37	AC	82 ms; 12,956 KB
testcase_38	AC	67 ms; 11,612 KB
testcase_39	AC	25 ms; 6,508 KB
testcase_40	AC	127 ms; 17,752 KB
testcase_41	AC	42 ms; 7,956 KB
testcase_42	AC	105 ms; 16,080 KB
testcase_43	AC	54 ms; 9,924 KB
testcase_44	AC	96 ms; 14,896 KB

コンパイルメッセージ

Main.pl syntax OK

ソースコード

($a,$b)=($p,$q)=<>=~/\d+/g;
($a,$b)=($b,$a%$b)while$b;
$a||=1e9;
$p/=$a;$q/=$a;
<>;
($x,$y)=//g,$x%$a||$y%$a||$p%2&&$q%2&&($x+$y)/$a%2||++$-for<>;
print$-;