> Or even
   > 
   > for my $x (1..98) {
   >   for my $y (1..(99-$x)) {
   >     for my $z (1..(100-$x-$y)) {
   >       print "$x, $y, $z\n" if $x ** 2 = $y ** 2 + $z ** 2;
   >     }
   >   }
   > }

Sure. Depending on whether you want combinations or permutations.

Damian

Reply via email to