Eine narzisstische Zahl ist eine Zahl, die die Summe ihrer eigenen Ziffern darstellt, wobei jede Zahl zur Potenz der Anzahl der Ziffern erhoben wird.

Nehmen Sie zum Beispiel 153 (3 Stellen):

1 ³ + 5 ³ + 3 ³ = 1 + 125 + 27 = 153

1634

1 ⁴ + 6 ⁴ + 3 ⁴ + 4 ⁴ = 1 + 1296 + 81 + 256 = 1634

Die Herausforderung:

Ihr Code muss Eingaben vom Benutzer entgegennehmen und Wahr oder Falsch ausgeben, je nachdem, ob es sich bei der angegebenen Nummer um eine narzisstische Zahl handelt.

Eine Fehlerprüfung auf Textzeichenfolgen oder andere ungültige Eingaben ist nicht erforderlich. 1 oder 0 für die Ausgabe ist akzeptabel. Code, der lediglich eine Liste narzisstischer Zahlen generiert oder die Benutzereingabe mit einer Liste vergleicht, ist nicht geeignet.

OEIS A005188

APL (15)

∆≡⍕+/(⍎¨∆)*⍴∆←⍞

Gibt aus, 1ob true und 0false.

Erläuterung:

• ∆←⍞: Lesen Sie eine Zeile (als Zeichen), speichern Sie in ∆
• (⍎¨∆)*⍴∆: bewerte jedes Zeichen in ∆und hebe es an die Macht⍴∆
• ∆≡⍕+/: Überprüfen Sie, ob die Eingabe der Zeichenfolgendarstellung der Summe dieser Werte entspricht

GolfScript, 16 Zeichen

~.`:s{48-s,?-}/!

Die Eingabe muss auf STDIN erfolgen, die Ausgabe ist 0 oder 1, was eine nicht narzisstische / narzisstische Zahl angibt.

Erklärung des Codes:

~              # Evaluate the input to get a number
.              # Accumulator (initially the number itself)
`:s            # Convert number to string and assign to variable s
{              # Loop over characters of the string
  48-          # Reduce character value by 48
  s,           # Push length of input number
  ?            # Power
  -            # Subtract result from accumulator
}/
!              # Not! (i.e. iff accumulator was zero it was a narcissistic number)

Mathematica, 43 Zeichen

Tr[#^Length@#&@IntegerDigits@#]==#&@Input[]

Perl, 38 Zeichen

perl -lpe '$@=y///c;$s+=$_**$@for/./g;$_=$_==$s'

Eine ziemlich unkomplizierte Implementierung.

Hier ist eine etwas andere Version, die in 35 Zeichen passt:

perl -lpe '$@=y///c;$s+=$_**$@for/./g;$_-=$s'

Diese Version gibt einen falschen Wert aus, wenn die Eingabe narzisstisch ist, andernfalls gibt sie einen (von Perl akzeptierten) wahren Wert aus. Man könnte argumentieren, dass diese Rückwärtsversion innerhalb der Grenzen der Herausforderungsbeschreibung liegt, aber nach Überlegung habe ich mich dagegen entschieden. Ich bin nicht so verzweifelt, meine Punktzahl zu verbessern. Noch.

J, 23 Zeichen

(".=+/@("."0^#))(1!:1)1

(1!:1)1 ist eine Tastatureingabe (die einen String zurückgibt).

".wandelt die Eingabe in eine Zahl um; "0Gibt einen Rang (eine Dimension) von 0 an, dh jedes Zeichen wird in eine Zahl umgewandelt.

^ist die Potenzfunktion und #ist die Längenfunktion, die jede Ziffer zur Potenz der Länge der Zeichenkette macht (entsprechend der Anzahl der Stellen).

+/ist nur Summe und =vergleicht die Summe und die Zahl.

Rubin, 34 + 5 = 39

Mit Befehlszeilenflags

ruby -nlaF|

Lauf

p eval [$F,0]*"**#{~/$/}+"+"==#$_"

Gibt true oder false aus.

R 71 69 66 56 48

Reduziert um 8 Bytes dank @Giuseppe ! Die Idee war, die Ganzzahldivision vor der Modulo-Operation durchzuführen.

i=nchar(a<-scan()):0;a==sum((a%/%10^i%%10)^i[1])

(3 Jahre) alte Version mit entsprechender Erklärung:

i=nchar(a<-scan()):1;a==sum(((a%%10^i)%/%10^(i-1))^i[1])

a<-scan()Nimmt eine Zahl (Integer, Real, ...) als Eingabe (sagen wir 153für das Beispiel).
iwird zu einem Vektor mit 3 zu 1 (die Anzahl der Zeichen aist 3).
%%ist vektorisiert, a%%10^ibedeutet also amodulo 1000, 100 und 10: es gibt also 153, 53, 3.
(a%%10^i)%/%10^(i-1)ist die ganzzahlige Division dieses Vektors durch 100, 10, 1: daher 1, 5, 3.
Wir heben das auf, wobei das erste Element idie Anzahl der Zeichen (hier Ziffern) von ist a, dh 3, 1, 125, 27wir geben einen Vektor an, der das enthält , womit wir sumvergleichen a.

Python 3, 56 Bytes

Nicht sehr verschleiert, aber eine einfache Lösung.

s = input()
print(int(s)==sum(int(c)**len(s)for c in s))

PHP, 80 74 66 Zeichen

Sehr einfache PHP-Lösung:

<?for(;$i<$l=strlen($a=$argv[1]);)$s+=pow($a[$i++],$l);echo$s==$a;

Es wird davon error_reportingausgegangen, dass keine Hinweise enthalten sind, da andernfalls einige zusätzliche Zeichen zum Initialisieren von $s=0;und erforderlich sind $i=0.

Vielen Dank an @manatwork, um viele Zeichen zu verkürzen.

Gleichstrom: 48 Zeichen

[1pq]Sr?d0rdZSz[d10/r10%lz^rSh+Lhd0!=c]dScx+=r0p

Probelauf:

bash-4.1$ dc -e '[1pq]Sr?d0rdZSz[d10/r10%lz^rSh+Lhd0!=c]dScx+=r0p' <<< '153'
1

bash-4.1$ dc -e '[1pq]Sr?d0rdZSz[d10/r10%lz^rSh+Lhd0!=c]dScx+=r0p' <<< '1634'
1

bash-4.1$ dc -e '[1pq]Sr?d0rdZSz[d10/r10%lz^rSh+Lhd0!=c]dScx+=r0p' <<< '2013'
0

K 24, 23

{x=+/xexp["I"$'a]@#a:$x}

1 Saibling mit Nachbestellung rasiert

{x=+/{x xexp#x}"I"$'$x}

R, 53 Bytes

sum(scan(t=gsub("(.)","\\1 ",x<-scan()))^nchar(x))==x

Der gsubRegex fügt Leerzeichen zwischen die Zeichen ein, damit die scanFunktion die Zahl in einen Ziffernvektor einlesen kann.

Kona, 18

...

{x=+/(0$'u)^#u:$x}

Powershell, 75 63 62 60 58

Bearbeiten: Aktualisiert per @ Iszis Kommentar (Hinweis: Dies gilt für $xnicht existierende)

Bearbeiten: @ Danko Änderungen hinzugefügt.

[char[]]($x=$n=read-host)|%{$x-="$_*"*$n.length+1|iex};!$x

58 56 Zeichen

Wenn die Eingabe auf 10 Stellen begrenzt ist (einschließlich aller int32)

($x=$n=read-host)[0..9]|%{$x-="$_*"*$n.length+1|iex};!$x

Python 2.x - 51

Gleiches Konzept wie die Lösung von crazedgremlin für Python 3.x:

s=input();print s==sum(int(c)**len(`s`)for c in`s`)

C - 97 93 Zeichen

a,b;main(c){scanf("%d",&c);b=c;for(;c;c/=10)a+=pow(c%10,(int)log10(b)+1);printf("%d",a==b);}

Mit Einrückung:

a,b;
main(c) { 
  scanf("%d",&c);
  b=c;
  for(;c;c/=10)
    a+=pow(c%10,(int)log10(b)+1);
  printf("%d",a==b);
}

Delphi - 166

uses System.SysUtils,math;var i,r,l:integer;s:string;begin r:=0;readln(s);l:=length(s);for I:=1to l do r:=round(r+power(strtoint(s[i]),l));writeln(inttostr(r)=s);end.

Mit Einzug

uses System.SysUtils,math;
var
  i,r,l:integer;
  s:string;
begin
  r:=0;
  readln(s);
  l:=length(s);
  for I:=1to l do
    r:=round(r+power(strtoint(s[i]),l));
  writeln(inttostr(r)=s);
end.

05AB1E , 7 Bytes (nicht konkurrierend)

DSDgmOQ

Probieren Sie es online!

-2 Bytes dank @daHugLenny

Haskell 2010 - 76 Zeichen

main=do x<-getLine;print$(==x)$show$sum$map((^length x).(+(-48)).fromEnum)x

Awk: 40 39 Zeichen

{for(;i<NF;)s+=$(i+++1)**NF;$0=$0==s}1

Probelauf:

bash-4.1$ awk -F '' '{for(;i<NF;)s+=$(i+++1)**NF;$0=$0==s}1' <<< '153'
1

bash-4.1$ awk -F '' '{for(;i<NF;)s+=$(i+++1)**NF;$0=$0==s}1' <<< '1634'
1

bash-4.1$ awk -F '' '{for(;i<NF;)s+=$(i+++1)**NF;$0=$0==s}1' <<< '2013'
0

Bash, 64 Zeichen

for((a=$1;a>0;s+=(a%10)**${#1},a/=10));do :; done;echo $[s==$1]

a = $ 1; p = $ {# a}; für ((; a> 0; a / = 10)); do s = $ ((s + (a% 10) ** p)); done; echo $ ( (s == $ 1))

Lua (101 Zeichen)

Lua ist nicht dafür bekannt, prägnant zu sein, aber es hat Spaß gemacht, es trotzdem zu versuchen.

for n in io.lines()do l,s=n:len(),0 for i=1,l do d=n:byte(i)s=s+(d-48)^l end print(s==tonumber(n))end

Verbesserungen sind willkommen.

JavaScript - 70 58 Zeichen

for(i in a=b=prompt())b-=Math.pow(a[i],a.length)
alert(!b)

Hinweis:

Wenn Sie dies in Ihrer Entwicklerkonsole unter Stack Exchange testen, müssen Sie sich darüber im Klaren sein, dass eine Reihe von nicht standardmäßigen Eigenschaften hinzugefügt wurden String.prototype, die diese Lösung beeinträchtigen, z String.prototype.formatUnicorn. Stellen Sie sicher, dass Sie in einer sauberen Umgebung testen, z. B. auf about:blank.

Java - 84 Bytes

(a,l)->{int s=0;for(byte c:a.getBytes())s+=Math.pow(c-48,l);return a.equals(""+s);};

Nicht-Lambda-Version: 101 Bytes:

boolean n(String a,int l){int s=0;for(byte c:a.getBytes())s+=Math.pow(c-48,l);return a.equals(""+s);}

So genannt:

interface X {
    boolean n(String a, int l);
}

static X x = (a,l)->{int s=0;for(byte c:a.getBytes())s+=Math.pow(c-48,l);return a.equals(""+s);};

public static void main(String[] args) {
    System.out.println(n("153",3));
    System.out.println(n("1634",4));
    System.out.println(n("123",3));
    System.out.println(n("654",3));
}

Kehrt zurück:

true
true
false
false

Japt , 14 9 7 Bytes

¶ì_xpZÊ

Probieren Sie es online aus

Erläuterung

Implizite Eingabe einer Ganzzahl U.

ì_

Konvertieren Sie Uin ein Array von Ziffern ( ì), übergeben Sie es einer Funktion und konvertieren Sie es anschließend zurück in eine Ganzzahl.

xpZÊ

Reduzieren Sie xjedes Element durch Addition ( ) und erhöhen Sie dabei die Potenz ( p) der Länge ( Ê) des Arrays.

¶

Überprüfen Sie, ob das Ergebnis genau gleich ist U.

F # - 92 Zeichen

let n=stdin.ReadLine()
n|>Seq.map(fun x->pown(int x-48)n.Length)|>Seq.sum=int n|>printf"%b"

Common Lisp - 116 102 Zeichen

(defun f(m)(labels((l(n)(if(> n 0)(+(expt(mod n 10)(ceiling(log m 10)))(l(floor n 10)))0)))(= m(l m))))

Formatiert:

(defun f(m)
  (labels((l(n)
            (if(> n 0)
               (+(expt(mod n 10)(ceiling(log m 10)))
                 (l(floor n 10)))
               0)))
    (=(l m)m)))

Smalltalk - 102 bis 99 Zeichen

[:n|a:=n asString collect:[:e|e digitValue]as:Array.^n=(a collect:[:each|each raisedTo:a size])sum]

Senden value:Sie im Arbeitsbereich die Nummer und drucken Sie sie aus.

C #, 117

using System.Linq;class A{int Main(string[] a){return a[0].Select(c=>c-'0'^a[0].Length).Sum()==int.Parse(a[0])?1:0;}}

Haskell, 68 66 Bytes

d 0=[]
d n=mod n 10:d(div n 10)
sum.(\a->map(^length a)a).d>>=(==)

Verwendungszweck:

*Main> sum.(\a->map(^length a)a).d>>=(==) $ 1634
True