#122177 (Perl) No.342 一番ワロタｗｗ - yukicoder

提出ソース

結果

問題	No.342 一番ワロタｗｗ
ユーザー	tails
提出日時	2016-10-07 12:23:14
言語	Perl (5.38.2)
結果	WA (最新) AC (最初)
実行時間	-
コード長	58 bytes
コンパイル時間	151 ms
コンパイル使用メモリ	6,688 KB
実行使用メモリ	6,820 KB
最終ジャッジ日時	2024-10-15 13:26:26
合計ジャッジ時間	719 ms
ジャッジサーバーID （参考情報）	judge3 / judge4

このコードへのチャレンジ
（要ログイン）

テストケース

テストケース表示

入力	結果	実行時間実行使用メモリ
testcase_00	AC	3 ms 5,376 KB
testcase_01	WA	-
testcase_02	AC	3 ms 5,248 KB
testcase_03	AC	3 ms 5,248 KB
testcase_04	AC	3 ms 5,248 KB
testcase_05	AC	3 ms 5,376 KB
testcase_06	AC	3 ms 5,376 KB
testcase_07	AC	3 ms 5,376 KB
testcase_08	AC	3 ms 5,376 KB
testcase_09	AC	3 ms 5,248 KB
testcase_10	AC	3 ms 5,248 KB
testcase_11	AC	3 ms 5,248 KB
testcase_12	AC	3 ms 5,248 KB
testcase_13	AC	3 ms 5,248 KB
testcase_14	AC	3 ms 5,248 KB
testcase_15	AC	3 ms 5,248 KB
testcase_16	AC	3 ms 5,248 KB

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

コンパイルメッセージ

Useless use of non-destructive substitution (s///r) in void context at Main.pl line 1.
Main.pl syntax OK

ソースコード

raw source code

<>=~s#(.*?)((ｗ)+)#$y|=$x=$1&&$2;$$x.=$1.$/;#ger;print$$y

0