Pythagorean quadruples: Difference between revisions
m
→{{header|Perl}}: Fix link: Perl 6 --> Raku
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:
=={{header|Perl}}==
{{trans|
<lang perl>my $N = 2200;
push @sq, $_**2 for 0 .. $N;
| |||