Ceyusa's Share Victor Manuel Jaquez Leal http://www.ceyusa.com/blog Comments On Post 517 http://www.ceyusa.com/blog JAWS 0.8.6 2005, Victor Manuel Jaquez Leal 1969-12-31T17:59:59-06:00 <![CDATA[ Re: The beauty of the functional programming ]]> linxe http://www.ceyusa.com/blog http://www.ceyusa.com/blog/517/184 1969-12-31T17:59:59-06:00 1969-12-31T17:59:59-06:00 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 ... ]]> 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 ... ]]>