จำนวนหลงตัวเองเป็นจำนวนซึ่งเป็นผลรวมของตัวเลขของตัวเองในแต่ละยกกำลังจำนวนของตัวเลขที่

ตัวอย่างเช่นใช้ 153 (3 หลัก):

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

1634:

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

ความท้าทาย:

รหัสของคุณจะต้องป้อนข้อมูลจากผู้ใช้และส่งออกจริงหรือเท็จขึ้นอยู่กับว่าหมายเลขที่กำหนดเป็นจำนวนหลงตัวเอง

การตรวจสอบข้อผิดพลาดสำหรับสตริงข้อความหรืออินพุตอื่นไม่ถูกต้อง 1 หรือ 0 สำหรับเอาต์พุตเป็นที่ยอมรับ รหัสที่เพียงสร้างรายการของหมายเลขหลงตัวเองหรือตรวจสอบอินพุตของผู้ใช้กับรายการนั้นไม่ผ่านการรับรอง

OEIS A005188

APL (15)

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

เอาต์พุต1ถ้าเป็นจริงและ0หากเป็นเท็จ

คำอธิบาย:

• ∆←⍞: อ่านบรรทัด (เป็นตัวอักษร) เก็บไว้ใน ∆
• (⍎¨∆)*⍴∆: ประเมินตัวละครแต่ละตัวใน∆และยกมันขึ้นสู่อำนาจ⍴∆
• ∆≡⍕+/: ดูว่าอินพุตเท่ากับการแสดงสตริงของผลรวมของสิ่งเหล่านี้หรือไม่

GolfScript 16 ตัวอักษร

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

ต้องป้อนข้อมูลใน STDIN เอาต์พุตเป็น 0 หรือ 1 เพื่อระบุหมายเลขที่ไม่หลงตัวเอง / หลงตัวเอง

คำอธิบายของรหัส:

~              # 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 ตัวอักษร

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

Perl, 38 ตัวอักษร

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

การใช้งานที่ค่อนข้างตรงไปตรงมา

นี่คือรุ่นที่แตกต่างกันเล็กน้อยที่เหมาะกับ 35 ตัวอักษร:

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

รุ่นนี้ส่งออกค่าเท็จถ้าอินพุตเป็นหลงตัวเองมิฉะนั้นจะส่งออกมูลค่าที่แท้จริง (ยอมรับ Perl) อาจมีคนแย้งว่ารุ่นหลังนี้อยู่ในขอบเขตของคำอธิบายการท้าทาย แต่เมื่อพิจารณาฉันก็ตัดสินใจไม่ทำ ฉันไม่หมดหวังที่จะปรับปรุงคะแนนของฉัน ยัง

J, 23 ตัวอักษร

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

(1!:1)1 คืออินพุตคีย์บอร์ด (ส่งคืนสตริง)

".แปลงอินพุตเป็นตัวเลข "0ระบุอันดับ (ส่วนข้อมูล) เป็น 0 หรือกล่าวอีกนัยหนึ่งคือการใช้อักขระแต่ละตัวและแปลงเป็นตัวเลข

^คือฟังก์ชั่นพลังงานและ#เป็นฟังก์ชั่นความยาวจึงนำแต่ละหลักไปยังพลังของความยาวของสตริง (เทียบเท่าจำนวนของตัวเลข)

+/เป็นเพียงผลรวมและ=เปรียบเทียบผลรวมกับจำนวน

ทับทิม, 34 + 5 = 39

ด้วยแฟล็กบรรทัดคำสั่ง

ruby -nlaF|

วิ่ง

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

เอาต์พุตจริงหรือเท็จ

R, 71 69 66 56 48

ลดลง 8 ไบต์ด้วย@Giuseppe ! แนวคิดคือการดำเนินการหารจำนวนเต็มก่อนการดำเนินการแบบโมดูโล

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

เวอร์ชั่นเก่า (3 ปี) พร้อมคำอธิบายที่เกี่ยวข้อง:

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

a<-scan()ใช้ตัวเลข (จำนวนเต็มจริง ... ) เป็นอินพุต (พูด153ถึงตัวอย่าง)
iกลายเป็นเวกเตอร์ที่มี 3 ต่อ 1 (จำนวนอักขระที่aเป็น 3)
%%เป็น vectorized ดังนั้นa%%10^iหมายความว่าaโมดูโล 1000 100 10: 153, 53, 3มันจึงช่วยให้
(a%%10^i)%/%10^(i-1)เป็นส่วนจำนวนเต็มของเวกเตอร์ที่ 100, 10, 1: 1, 5, 3ดังนั้น
เรายกระดับว่ามีองค์ประกอบแรกของiซึ่งเป็นหมายเลขของตัวละคร (ที่นี่หลัก) ของaเช่น3จึงให้เวกเตอร์ที่มี1, 125, 27ที่เราและเมื่อเปรียบเทียบกับsuma

Python 3, 56 ไบต์

ไม่สับสนมาก แต่เป็นวิธีง่ายๆ

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

PHP, 80 74 66 ตัวอักษร

โซลูชัน PHP ที่ตรงไปตรงมามาก:

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

ก็ถือว่าerror_reportingไม่รวมถึงการประกาศเป็นอย่างอื่นค่อนข้างไม่กี่ตัวอักษรพิเศษจะต้องเริ่มต้นและ$s=0;$i=0

ขอบคุณ @ manatwork สำหรับการทำให้สั้นลงหลายอักขระ

Dc: 48 ตัวอักษร

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

วิ่งตัวอย่าง:

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 ถ่านพร้อมสั่งใหม่

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

R, 53 ไบต์

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

gsubregex แทรกช่องว่างในระหว่างตัวอักษรเพื่อให้scanฟังก์ชั่นจะสามารถอ่านตัวเลขลงในเวกเตอร์ของตัวเลข

Kona, 18

...

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

พาวเวอร์เซลล์, 75 63 62 60 58

แก้ไข: อัปเดตตามความคิดเห็นของ @ Iszi (หมายเหตุ: สิ่งนี้นับว่า$xไม่มีอยู่)

แก้ไข: เพิ่มการเปลี่ยนแปลงของ @ Danko แล้ว

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

58 56 ตัวอักษร

หากอินพุตถูก จำกัด ที่ 10 หลัก (รวมถึง int32 ทั้งหมด)

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

Python 2.x - 51

แนวคิดเดียวกันกับโซลูชันของ crazedgremlin สำหรับ Python 3.x:

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

C - 97 93 ตัวอักษร

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);}

ด้วยการเยื้อง:

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.

ด้วยการเยื้อง

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 ไบต์ (ไม่แข่งขัน)

DSDgmOQ

ลองออนไลน์!

-2 ไบต์ต้องขอบคุณ @daHugLenny

Haskell 2010 - 76 ตัวอักษร

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

Awk: 40 39 ตัวอักษร

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

วิ่งตัวอย่าง:

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 ตัวอักษร

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

a = $ 1; p = $ {# a}; สำหรับ ((; a> 0; a / = 10)); do s = $ ((s + (a + 10%) ** p)); เสร็จแล้ว echo $ ( (s == $ 1))

Lua (101 ตัวอักษร)

Lua ไม่รู้จักกระชับ แต่ก็สนุกที่จะลอง

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

ยินดีต้อนรับการปรับปรุง

JavaScript - 70 58 ตัวอักษร

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

บันทึก:

หากคุณกำลังทดสอบนี้ในคอนโซล dev ของคุณบนกองตลาดหลักทรัพย์ทราบว่ามีจำนวนของคุณสมบัติที่ไม่ได้มาตรฐานเพิ่มเพื่อที่จะทำลายการแก้ปัญหานี้เช่นString.prototype โปรดตรวจสอบในการทดสอบในสภาพแวดล้อมที่สะอาดเช่นบนString.prototype.formatUnicornabout:blank

Java - 84 ไบต์

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

รุ่นที่ไม่ใช่แลมบ์ดา: 101 ไบต์:

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

เรียกสิ่งนี้ว่า:

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));
}

ผลตอบแทน:

true
true
false
false

Japt , 14 9 7 ไบต์

¶ì_xpZÊ

ลองออนไลน์

คำอธิบาย

Uการป้อนข้อมูลโดยนัยของจำนวนเต็ม

ì_

แปลงUเป็นอาร์เรย์ของตัวเลข ( ì) ส่งผ่านฟังก์ชันและแปลงกลับเป็นจำนวนเต็มหลังจากนั้น

xpZÊ

ลดโดยการเพิ่ม ( x) โดยเพิ่มแต่ละองค์ประกอบเป็นกำลัง ( p) ของความยาว ( Ê) ของอาร์เรย์ในกระบวนการ

¶

Uตรวจสอบว่าผลที่ได้คืออย่างเคร่งครัดเท่ากับ

F # - 92 ตัวอักษร

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

เสียงกระเพื่อมสามัญ - 116 102 ตัวอักษร

(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))))

จัดรูปแบบ:

(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 99 ตัวอักษร

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

ที่พื้นที่ทำงานส่งvalue:พร้อมหมายเลขแล้วพิมพ์

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 ไบต์

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

การใช้งาน:

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