結果

問題 No.273 回文分解
ユーザー tails
提出日時 2015-08-28 23:00:11
言語 Perl
(5.16.3)
結果
AC  
実行時間 4 ms
コード長 67 Byte
コンパイル時間 13 ms
使用メモリ 2,336 KB
最終ジャッジ日時 2020-03-31 23:50:28

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
scramble_00 AC 3 ms
2,320 KB
scramble_01 AC 3 ms
2,316 KB
scramble_02 AC 2 ms
2,316 KB
scramble_03 AC 2 ms
2,320 KB
scramble_04 AC 2 ms
2,320 KB
scramble_05 AC 3 ms
2,320 KB
scramble_06 AC 3 ms
2,320 KB
scramble_07 AC 2 ms
2,320 KB
scramble_08 AC 2 ms
2,320 KB
scramble_09 AC 3 ms
2,316 KB
scramble_10 AC 3 ms
2,320 KB
scramble_11 AC 2 ms
2,320 KB
scramble_12 AC 2 ms
2,320 KB
scramble_13 AC 2 ms
2,316 KB
scramble_14 AC 3 ms
2,332 KB
scramble_15 AC 3 ms
2,320 KB
scramble_16 AC 3 ms
2,320 KB
scramble_17 AC 3 ms
2,320 KB
scramble_18 AC 2 ms
2,320 KB
scramble_19 AC 3 ms
2,320 KB
scramble_20 AC 3 ms
2,320 KB
scramble_21 AC 3 ms
2,320 KB
scramble_22 AC 3 ms
2,336 KB
scramble_23 AC 3 ms
2,328 KB
scramble_24 AC 3 ms
2,332 KB
scramble_25 AC 3 ms
2,328 KB
scramble_26 AC 3 ms
2,332 KB
scramble_27 AC 3 ms
2,332 KB
scramble_28 AC 4 ms
2,328 KB
scramble_29 AC 3 ms
2,328 KB
scramble_30 AC 3 ms
2,332 KB
scramble_31 AC 3 ms
2,320 KB
scramble_32 AC 2 ms
2,324 KB
scramble_33 AC 2 ms
2,320 KB
scramble_34 AC 2 ms
2,324 KB
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
$_=<>;/((.)(?1)\2|.?)(?{$a+=$-=-$a+length$1if"$1
"ne$_})^$/;print$a
0