Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

Re: Mathematics ethics

by thinker (Parson)
on Oct 28, 2002 at 15:50 UTC ( [id://208528]=note: print w/replies, xml ) Need Help??


in reply to Mathematics ethics

Hi cored,

I think ($vldig * $vldig * $vldig) confused the issue a little.
From this definition
NARCISSISTIC NUMBERS:

DEFINITION
A narcissistic number is an n-digit number that is the sum of the 
n-th powers of its digits.

Examples:

     153 = 1^3 + 5^3 + 3^3.
     548834 = 5^6 + 4^6 + 8^6 + 8^6 + 3^6 + 4^6.


My attempt at a solution is
!/usr/bin/perl -w use strict; my $vlnum = 0; my $soln=0; print "Insert a number: "; chomp ( $vlnum = <STDIN> ); die "Not a number\n" unless $vlnum=~/^\d*$/; my @digits=split //, $vlnum; $soln += $_**@digits for @digits; if($vlnum == $soln) { print "$vlnum is a narcissistic number\n" } else{ print "$vlnum is not a narcissistic number!\n" };

I hope this helps

thinker

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://208528]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others taking refuge in the Monastery: (7)
As of 2024-03-29 00:07 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found