#272937 (Perl) No.139 交差点 - yukicoder

提出ソース

結果

問題	No.139 交差点
ユーザー	%20
提出日時	2018-07-15 16:03:49
言語	Perl (5.38.2)
結果	WA
実行時間	-
コード長	122 bytes
コンパイル時間	229 ms
コンパイル使用メモリ	5,460 KB
実行使用メモリ	4,832 KB
最終ジャッジ日時	2023-08-06 13:04:09
合計ジャッジ時間	1,932 ms
ジャッジサーバーID （参考情報）	judge14 / judge11

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

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	3 ms 4,516 KB
testcase_01	AC	3 ms 4,804 KB
testcase_02	AC	3 ms 4,832 KB
testcase_03	AC	3 ms 4,592 KB
testcase_04	AC	3 ms 4,592 KB
testcase_05	AC	3 ms 4,532 KB
testcase_06	AC	2 ms 4,524 KB
testcase_07	AC	3 ms 4,812 KB
testcase_08	AC	3 ms 4,512 KB
testcase_09	WA	-
testcase_10	WA	-
testcase_11	WA	-
testcase_12	WA	-
testcase_13	AC	2 ms 4,512 KB
testcase_14	WA	-
testcase_15	AC	3 ms 4,520 KB
testcase_16	WA	-
testcase_17	WA	-
testcase_18	AC	3 ms 4,616 KB
testcase_19	AC	3 ms 4,636 KB
testcase_20	AC	3 ms 4,504 KB
testcase_21	AC	3 ms 4,592 KB
testcase_22	AC	2 ms 4,636 KB
testcase_23	AC	3 ms 4,764 KB
testcase_24	AC	2 ms 4,796 KB
testcase_25	WA	-
testcase_26	AC	3 ms 4,520 KB
testcase_27	AC	3 ms 4,532 KB
testcase_28	AC	3 ms 4,780 KB
testcase_29	WA	-
testcase_30	WA	-

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

コンパイルメッセージ

Main.pl syntax OK

ソースコード

raw source code

<>=~$";$L=$';

	/ .* /,
	$t+=$`-$l,
	$t+=($t+$&)%(2*$')<$'?$&:$&+(2*$'-$t%(2*$'))%(2*$'),
	$l=$`+$&
for<>;

print$t+$L-$l

0