Self numbers: Difference between revisions

Content added Content deleted
(Added Perl)
m (→‎{{header|Perl}}: oops, 1000 > 50)
Line 970: Line 970:
= ( 0, 1, 10, 1, 9, 0, 0 );
= ( 0, 1, 10, 1, 9, 0, 0 );


my $final = 1000;
my $final = 50;


while () {
while () {