Comments On Post 517 http://www.ceyusa.com/blog ceyusa@gmail.com (Victor Manuel Jaquez Leal) 2005, Victor Manuel Jaquez Leal Wed, 31 Dec 1969 17:59:59 -0600 JAWS 0.8.6 use strict;

my @n = ( 1 .. 1000 );
foreach my $a ( @n ) {
my $a2 = $a * $a;
foreach my $b ( @n ) {
my $b2 = $b * $b;
my $c = sqrt ( $a2 + $b2 );
next unless ( ($a + $b + $c) == 1000 );
next unless ( ($c / int $c ) == 1 );
print "Solution: a = $a b = $b c = $c\n";
}
}

# La belleza de los numeros ... ]]> http://www.ceyusa.com/blog/index.php/blog/show/517.html#comment184 linxe@glib.org.mx (linxe) http://www.ceyusa.com/blog/index.php/blog/show/517.html#comment184 Wed, 31 Dec 1969 17:59:59 -0600