Pythagorean quadruples: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: Fix link: Perl 6 --> Raku) |
||
| Line 1,426: | Line 1,426: | ||
=={{header|Perl}}== |
=={{header|Perl}}== |
||
{{trans| |
{{trans|Raku}} |
||
<lang perl>my $N = 2200; |
<lang perl>my $N = 2200; |
||
push @sq, $_**2 for 0 .. $N; |
push @sq, $_**2 for 0 .. $N; |
||