Нарциссический Номер представляет собой число , которое является суммой собственных цифр, каждый из возведенных в степень числа цифр.

Например, возьмем 153 (3 цифры):

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

1634:

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

Соревнование:

Ваш код должен принимать ввод от пользователя и выводить True или False в зависимости от того, является ли данное число нарциссическим числом.

Проверка ошибок на наличие текстовых строк или других неверных входных данных не требуется. 1 или 0 для выхода приемлемо. Код, который просто генерирует список нарциссических чисел или проверяет ввод пользователя по списку, не подходит.

OEIS A005188

APL (15)

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

Выводит, 1если true и 0если false.

Объяснение:

• ∆←⍞: прочитать строку (как символы), сохранить в ∆
• (⍎¨∆)*⍴∆: оцените каждого персонажа ∆и поднимите его до уровня власти⍴∆
• ∆≡⍕+/: посмотрите, равно ли входное значение строкового представления суммы этих

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 (количество символов a3).
%%векторизовано так 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то, что мы sumи сравниваем a.

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

К, 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

gsubРегулярное выражение вставляет пробелы между символами, так что scanфункция будет иметь возможность прочитать номер в вектор цифр.

Кона, 18

...

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

Powershell, 75 63 62 60 58

Редактировать: Обновлено за комментарий @ Iszi (примечание: это рассчитывает на несуществующий )$x

Редактировать: Добавлены изменения @ Данко.

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

Дельфы - 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

Баш, 64 символа

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

a = $ 1; p = $ {# a}; for ((; a> 0; a / = 10)); do s = $ ((s + (a% 10) ** p)); сделано; echo $ ( (ы == $ 1))

Луа (101 символ)

Луа не известен своей краткостью, но в любом случае было интересно попробовать.

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)

Примечание:

Если вы тестируете это в своей консоли разработчика в Stack Exchange, имейте в виду, что к String.prototypeэтому решению добавлено несколько нестандартных свойств , таких как String.prototype.formatUnicorn. Пожалуйста, не забудьте проверить в чистой среде, например, на about: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в массив digits ( ì), передать его через функцию и затем преобразовать обратно в целое число.

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