#557948 (Perl) No.1236 長針と短針 - yukicoder

提出ソース

結果

問題	No.1236 長針と短針
ユーザー	%20
提出日時	2020-09-25 21:33:36
言語	Perl (5.38.2)
結果	AC
実行時間	6 ms / 2,000 ms
コード長	97 bytes
コンパイル時間	629 ms
コンパイル使用メモリ	5,388 KB
実行使用メモリ	5,380 KB
最終ジャッジ日時	2023-09-10 14:58:54
合計ジャッジ時間	1,544 ms
ジャッジサーバーID （参考情報）	judge12 / judge15

このコードへのチャレンジ（β）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	6 ms 5,280 KB
testcase_01	AC	5 ms 5,356 KB
testcase_02	AC	6 ms 5,328 KB
testcase_03	AC	6 ms 5,148 KB
testcase_04	AC	5 ms 5,148 KB
testcase_05	AC	6 ms 5,148 KB
testcase_06	AC	6 ms 5,204 KB
testcase_07	AC	6 ms 5,148 KB
testcase_08	AC	6 ms 5,256 KB
testcase_09	AC	6 ms 5,152 KB
testcase_10	AC	6 ms 5,152 KB
testcase_11	AC	6 ms 5,092 KB
testcase_12	AC	6 ms 5,060 KB
testcase_13	AC	6 ms 5,084 KB
testcase_14	AC	6 ms 5,380 KB
testcase_15	AC	6 ms 5,152 KB
testcase_16	AC	6 ms 5,088 KB
testcase_17	AC	6 ms 5,360 KB
testcase_18	AC	6 ms 5,184 KB
testcase_19	AC	6 ms 5,152 KB
testcase_20	AC	6 ms 5,240 KB
testcase_21	AC	6 ms 5,296 KB
testcase_22	AC	6 ms 5,292 KB

権限があれば一括ダウンロードができます

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

($A,$B)=glob<>;
$A%=12;
$C=$A*60*60+$B*60;
($t=$_*60*60*12/11-$C)>=0&&exit!print$t|0,$/for 0..11

0