in reply to Pythagorean's theorem

#!/usr/bin/perl

use strict;
my $max = shift or die "Usage: $0 <max len>\n";
for my $t ( 2..$max ){
    for my $s ( 1..$t-1 ){
        print $t*$t-$s*$s," ",2*$s*$t," ",$t*$t+$s*$s," is a winner\n"
+;
    }
}

[download]

Replies are listed 'Best First'.
Re: Re: Pythagorean theorem
by fuzzyping (Chaplain) on Feb 27, 2002 at 22:41 UTC
    Definitely something amiss here. It doesn't limit the arg like it should. For example, where $max=10, it pushes side "b" as high as 180.

    -fuzzyping
[reply]
      #!/usr/bin/perl

use strict;
my $max = shift or die "Usage: $0 <max len>\n";
for my $t ( 2..sqrt$max ){
    for my $s ( 1..$t-1 ){
        my $c=$t*$t+$s*$s;
        next unless $c <= $max;
        my $a = $t*$t-$s*$s;
        my $b = 2*$s*$t;
        print "$a $b $c is a winner\n";
    }
}

      [download]
[reply]
[d/l]

In Section Cool Uses for Perl