in reply to Mathematics ethics
it took me quite a lot to understand that you were talking about narcissistic numbers (thanks Thelonius!).
Aldo
that said, your script does not work. the while loop should look like:
as for simplicity, I would do it like this:while ( $vlnum > 0 ) { $vldig = $vlnum % 10; $vlsum = $vlsum + ($vldig * $vldig * $vldig); $vlnum = $vlnum / 10; }
cheers,#!/usr/bin/perl -w use strict; my $vlnum = 0; my $vlsum = 0; print "Insert a number: "; chomp ( $vlnum = <STDIN> ); # map { $vlsum += $_ ** 3 } split //, $vlnum; # oops, this should be (thanks [broquaint]!): $vlsum += $_ ** 3 for split //, $vlnum; if ( $vlsum == $vlnum ) { print "Is narc dude!"; } else { print "Try another number!"; }
Aldo
King of Laziness, Wizard of Impatience, Lord of Hubris
In Section
Seekers of Perl Wisdom