結果

問題 No.491 10^9+1と回文
ユーザー %20
提出日時 2017-03-16 21:22:46
言語 Perl
(5.16.3)
結果
AC  
実行時間 9 ms
コード長 239 Byte
コンパイル時間 10 ms
使用メモリ 2276 KB

テストケース

テストケース表示
入力 結果 実行時間
使用メモリ
sample_01.txt AC 9 ms
2264 KB
sample_02.txt AC 4 ms
2272 KB
sample_03.txt AC 6 ms
2268 KB
system_test1.txt AC 5 ms
2268 KB
system_test2.txt AC 4 ms
2272 KB
system_test3.txt AC 4 ms
2272 KB
test100.txt AC 4 ms
2268 KB
test_01.txt AC 3 ms
2272 KB
test_02.txt AC 8 ms
2272 KB
test_03.txt AC 3 ms
2268 KB
test_04.txt AC 4 ms
2248 KB
test_05.txt AC 3 ms
2268 KB
test_06.txt AC 4 ms
2268 KB
test_07.txt AC 4 ms
2244 KB
test_08.txt AC 4 ms
2272 KB
test_09.txt AC 4 ms
2272 KB
test_10.txt AC 4 ms
2272 KB
test_11.txt AC 3 ms
2272 KB
test_12.txt AC 5 ms
2268 KB
test_13.txt AC 8 ms
2272 KB
test_14.txt AC 4 ms
2268 KB
test_15.txt AC 3 ms
2268 KB
test_16.txt AC 3 ms
2268 KB
test_17.txt AC 4 ms
2268 KB
test_18.txt AC 4 ms
2268 KB
test_19.txt AC 3 ms
2268 KB
test_20.txt AC 4 ms
2248 KB
test_21.txt AC 4 ms
2268 KB
test_22.txt AC 4 ms
2268 KB
test_23.txt AC 3 ms
2268 KB
test_24.txt AC 4 ms
2272 KB
test_25.txt AC 4 ms
2248 KB
test_26.txt AC 4 ms
2272 KB
test_27.txt AC 3 ms
2264 KB
test_28.txt AC 4 ms
2272 KB
test_29.txt AC 4 ms
2272 KB
test_30.txt AC 3 ms
2248 KB
test_31.txt AC 4 ms
2268 KB
test_32.txt AC 5 ms
2272 KB
test_33.txt AC 4 ms
2268 KB
test_34.txt AC 3 ms
2248 KB
test_35.txt AC 4 ms
2268 KB
test_36.txt AC 4 ms
2268 KB
test_37.txt AC 4 ms
2268 KB
test_38.txt AC 3 ms
2268 KB
test_39.txt AC 4 ms
2268 KB
test_40.txt AC 3 ms
2268 KB
test_41.txt AC 3 ms
2268 KB
test_42.txt AC 4 ms
2272 KB
test_43.txt AC 5 ms
2244 KB
test_44.txt AC 5 ms
2272 KB
test_45.txt AC 4 ms
2272 KB
test_46.txt AC 3 ms
2272 KB
test_47.txt AC 3 ms
2248 KB
test_48.txt AC 4 ms
2268 KB
test_49.txt AC 4 ms
2268 KB
test_50.txt AC 4 ms
2272 KB
test_51.txt AC 3 ms
2272 KB
test_52.txt AC 4 ms
2268 KB
test_53.txt AC 4 ms
2272 KB
test_54.txt AC 4 ms
2272 KB
test_55.txt AC 3 ms
2268 KB
test_56.txt AC 4 ms
2268 KB
test_57.txt AC 5 ms
2276 KB
test_58.txt AC 3 ms
2272 KB
test_59.txt AC 4 ms
2272 KB
test_60.txt AC 4 ms
2272 KB
test_61.txt AC 4 ms
2272 KB
test_62.txt AC 4 ms
2268 KB
test_63.txt AC 4 ms
2244 KB
test_64.txt AC 4 ms
2272 KB
test_65.txt AC 4 ms
2272 KB
test_66.txt AC 4 ms
2272 KB
test_67.txt AC 4 ms
2268 KB
test_68.txt AC 4 ms
2268 KB
test_69.txt AC 4 ms
2268 KB
test_70.txt AC 5 ms
2268 KB
test_71.txt AC 4 ms
2268 KB
test_72.txt AC 3 ms
2268 KB
test_73.txt AC 4 ms
2272 KB
test_74.txt AC 4 ms
2244 KB
test_75.txt AC 5 ms
2268 KB
test_76.txt AC 3 ms
2272 KB
test_77.txt AC 4 ms
2268 KB
test_78.txt AC 4 ms
2268 KB
test_79.txt AC 4 ms
2272 KB
test_80.txt AC 3 ms
2264 KB
test_81.txt AC 4 ms
2268 KB
test_82.txt AC 4 ms
2244 KB
test_83.txt AC 3 ms
2268 KB
test_84.txt AC 3 ms
2268 KB
test_85.txt AC 5 ms
2272 KB
test_86.txt AC 3 ms
2264 KB
test_87.txt AC 4 ms
2268 KB
test_88.txt AC 4 ms
2272 KB
test_89.txt AC 4 ms
2264 KB
test_90.txt AC 3 ms
2272 KB
test_91.txt AC 4 ms
2272 KB
test_92.txt AC 4 ms
2272 KB
test_93.txt AC 3 ms
2268 KB
test_94.txt AC 3 ms
2272 KB
test_95.txt AC 4 ms
2268 KB
test_96.txt AC 4 ms
2268 KB
test_97.txt AC 4 ms
2268 KB
test_98.txt AC 4 ms
2268 KB
test_99.txt AC 4 ms
2272 KB
テストケース一括ダウンロード

ソースコード

diff #
$"='';
@M=(0)x(@N=<>=~/./g);
for($k=0;2*$k<=@N-10;++$k){
	@M[$k,$k+9,$#N-$k,@N-10-$k]=($|?9:$N[$k])x4;
	@M[$k,$k+9,$#N-$k,@N-10-$k]=($N[$k]-1)x4,$|=1if"@M">"@N"
}
$%="@M[0..(@N-10)/2]"+1if$M[0]--;
$%+=9*10**($_>>1)for 0..@N-11;
print$%,$/
0