Help for this page

Select Code to Download

Select or download this
```
{ 
  my($a,$b,$c);
  ...
}
```

Select or download this

from { 1..30} my $a from {1..$a} my $b from { 1...$b} my $c;
@results = take { [$a,$b,$c] if $a**2 +$b**2 ==$c**2 }