欧拉计划参与讨论的时候如何附下代码的有关问题

欧拉计划参与讨论的时候怎么附上代码的问题

特别是用perl的时候，很多东西都是乱码的。

所以不能直接的复制，粘贴。

用一下代码就可以解决：

[code]

你的代码

[/code]

也就是把你的代码放入[code]和[/code]就好了

原始代码：

[code=Perl]
use strict;
use warnings;

my %hash;
my $num;
my $m;
my @array;
my $cout=0;
for($num=12;$num<28123;$num++)
{
	my $sum=1 ;
	for($m=2;$m<$num/2+1;$m++)
	{
		if(0==$num%$m && $m<$num/$m)  
		{
			$sum=$sum+$m+$num/$m;
		}
		elsif(0==$num%$m && $m==$num/$m)
		{
			$sum=$sum+$m;
		}
		else
		{
			next;
		}
	}
	if($sum>$num)
	{
		$cout=$cout+1;
		$hash{$num}=$num;
		$array[$cout]=$num;
	}
}
foreach(1..200)
{
	print "$array[$_] ";
}
my $flag;
my $result=0;
my $i;
my $j;

for($i=1;$i<28123;$i++)
{
    my $flag=0;
	foreach(1..$cout)
	{
		$j=$i-$array[$_];
		if($j>10 && exists $hash{$j})
		{
			$flag=1;
		    last;
		}
	}
	if($flag==1)
	{
		next;
	}
	else
	{
		$result=$result+$i;
		last if($result>4179870)
	}
	
}

print "$result\n";
[/code]

效果如下：

展开图：