FC2ブログ
上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。
最初
http://blog-imgs-36.fc2.com/a/m/a/amamiyaprog/PalindromicNumber1.txt

修正1

# 回文数 Palindromic Number
# 引数 数字 ($Number)
# 戻り値 回文数 ($PalindromicNumber)
sub PALINDROMICNUMBER{
my ($Number) = @_;
my $PalindromicNumber = 0;
$Number = int($Number);
my $Reverse = reverse($Number);

# 数字の確認
if($Number < 1){
return 0;
}

if($Number eq $Reverse){
# 回文数 Palindromic Number
$PalindromicNumber = int($Number);
}

return $PalindromicNumber;
}


Project Euler Problem 4の答え

use warnings;
use strict;

my $PalindromicNumber = 0;
my @Solution = (0, 0, 0);
my $Temp = 0;

for(my $i = 999; $i >= 100; $i--){
for(my $j = $i; $j >= 100; $j--){
$Temp = $i * $j;

if($Temp > $Solution[0]){
$PalindromicNumber = &PALINDROMICNUMBER($Temp);

if(($PalindromicNumber != 0) && ($PalindromicNumber > $Solution[0])){
$Solution[0] = $PalindromicNumber;
$Solution[1] = $i;
$Solution[2] = $j;
}
}
}
}

print "$Solution[1] * $Solution[2] = $Solution[0]\n";


参考URL
回文数 - Wikipedia
Problem 4 - PukiWiki

修正1
splitからreverseに変更
オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない

5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用

検索フォーム


あわせて読みたいブログパーツ
一寸先は闇 RSS

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。