結果

問題 No.273 回文分解
ユーザー tails
提出日時 2015-08-28 23:00:11
言語 Perl
(5.16.3)
結果
AC  
実行時間 5 ms
コード長 67 Byte
コンパイル時間 224 ms
使用メモリ 8,920 KB
最終ジャッジ日時 2019-10-18 01:41:12

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
99_system_test1.txt AC 3 ms
6,876 KB
99_system_test2.txt AC 3 ms
6,872 KB
99_system_test3.txt AC 4 ms
6,872 KB
sample1.txt AC 4 ms
6,872 KB
sample2.txt AC 4 ms
6,876 KB
sample3.txt AC 4 ms
6,872 KB
system_test1.txt AC 4 ms
8,912 KB
system_test2.txt AC 3 ms
6,876 KB
system_test3.txt AC 4 ms
6,876 KB
system_test4.txt AC 4 ms
6,872 KB
system_test5.txt AC 4 ms
6,876 KB
system_test6.txt AC 3 ms
6,872 KB
system_test7.txt AC 4 ms
6,872 KB
system_test8.txt AC 4 ms
6,876 KB
system_test9.txt AC 5 ms
6,876 KB
test1.txt AC 4 ms
6,876 KB
test2.txt AC 4 ms
6,872 KB
test3.txt AC 4 ms
6,876 KB
test4.txt AC 4 ms
6,872 KB
test5.txt AC 4 ms
6,872 KB
test6.txt AC 4 ms
6,872 KB
test7.txt AC 4 ms
6,876 KB
test8.txt AC 5 ms
6,876 KB
test9.txt AC 4 ms
6,872 KB
test10.txt AC 5 ms
6,876 KB
test11.txt AC 5 ms
6,876 KB
test12.txt AC 5 ms
6,872 KB
test13.txt AC 4 ms
6,872 KB
test14.txt AC 5 ms
6,876 KB
test15.txt AC 3 ms
6,872 KB
test16.txt AC 4 ms
6,872 KB
test17.txt AC 4 ms
6,872 KB
test18.txt AC 4 ms
6,876 KB
test19.txt AC 3 ms
6,872 KB
test20.txt AC 4 ms
8,920 KB
テストケース一括ダウンロード
コンパイルメッセージ
Main.pl syntax OK

ソースコード

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