Re^2: Cube/digit script.


laziness, impatience, and hubris
	PerlMonks

Re^2: Cube/digit script.

by Andrew_Levenson (Hermit)

on Mar 10, 2006 at 14:21 UTC ( [id://535705]=note: print w/replies, xml )

Need Help??

in reply to Re: Cube/digit script.
in thread Cube/digit script.

Here, I figured out what was wrong.
The $added variable was unnecessary:

use strict;
use warnings;
my $i;
my $j;
my $cubed;
my @num;
my @numbers;

for $i(100..999){
    undef($cubed);
    undef(@num);
    @num=split(//, $i);
    for $j(@num){
        $cubed+=$j**3;
        }        
    if($cubed==$i){
        push @numbers, $i;
        }
    }
print "$_\n" for @numbers;
[download]

Thanks for the help!