結果

問題 No.491 10^9+1と回文
コンテスト
ユーザー %20
提出日時 2017-03-17 16:41:05
言語 Perl
(5.40.0)
結果
WA  
実行時間 -
コード長 252 bytes
記録
記録タグの例:
初AC ショートコード 純ショートコード 純主流ショートコード 最速実行時間
コンパイル時間 134 ms
コンパイル使用メモリ 5,248 KB
実行使用メモリ 6,944 KB
最終ジャッジ日時 2024-07-04 13:42:15
合計ジャッジ時間 9,531 ms
ジャッジサーバーID
（参考情報） 		judge4 / judge1
このコードへのチャレンジ
（要ログイン）
ファイルパターン 結果
sample AC * 3
other AC * 100 WA * 3
権限があれば一括ダウンロードができます
コンパイルメッセージ
Main.pl syntax OK

ソースコード

diff #
raw source code 

# http://yukicoder.me/submissions/156050


	$cnt=0;
	$N=<>;$M=$N/1000000001|0;
	for($i=1;$i<100000;$i++){
		$V=$i;
		$S=$V,$T=$V;
		$V=reverse($V);
		$S.=$V;$T.=substr($V,1,length($V)-1);
		if($S<=$M){$cnt++;}
		if($T<=$M){$cnt++;}
	}
	print$cnt,$/;
0