tło

Liczba 1729 to liczba Hardy-Ramanujana. Niesamowitą właściwość odkrył S. Ramanujan (powszechnie uważany za największego indyjskiego matematyka ¹ ), kiedy GH Hardy złożył mu wizytę w szpitalu. Słowami Hardy'ego:

Pamiętam, jak kiedyś go widziałem, kiedy był chory w Putney. Jechałem taksówką numer 1729 i zauważyłem, że numer ten wydaje mi się raczej nudny i mam nadzieję, że nie był to niekorzystny znak. „Nie” - odpowiedział - „jest to bardzo interesująca liczba; jest to najmniejsza liczba wyrażalna jako suma dwóch kostek na dwa różne sposoby”.

Poza tym ma wiele innych niesamowitych właściwości. Jedną z takich właściwości jest to, że jest to liczba Harshada, tj. Suma jej cyfr (1 + 7 + 2 + 9 = 19) jest jej czynnikiem. To także wyjątkowe. Jak pokazał Masahiko Fujiwara, 1729 jest dodatnią liczbą całkowitą, która po zsumowaniu cyfr daje sumę, która pomnożona przez odwrócenie daje pierwotną liczbę:

1 + 7 + 2 + 9 = 19

19 × 91 = 1729

Pozytywnym całkowitą o takiej własności jest to, co określam jako Hardy'ego-Ramanujan- ISH Harshad numer, na potrzeby tego postu. (Może to być termin techniczny, ale nie mogłem go znaleźć, chyba że jest członkiem A110921 )

Zadanie

Biorąc dodatnia njako wejście wyjściu truthy lub falsey wartość na podstawie, czy wejście njest hardy-Ramanujan- ISH Harshad Number. Wyjście prawda, jeśli tak jest. W przeciwnym razie wyjście falsey.

Należy pamiętać, że tylko cztery Hardy'ego-Ramanujan- ISH Harshad Liczby istnieje ( 1, 81, 1458i 1729), i można napisać kod, który sprawdza równoważności z nich. Ale nie sądzę, że będzie fajnie.

Wejście

Twój program powinien przyjmować dodatnią liczbę całkowitą (innymi słowy liczbę naturalną). Może to przyjmować w jakikolwiek sposób, z wyjątkiem zakładania, że ​​jest obecny w zmiennej. Odczytywanie z okna modalnego, pola wprowadzania, wiersza poleceń, pliku itp. Jest dozwolone. Przyjmowanie danych wejściowych jako argumentu funkcji jest również dozwolone.

Wynik

Twój program powinien wypisywać prawdziwą lub falsey wartość. Nie muszą być spójne. Twój program może generować dane w jakikolwiek sposób poza zapisywaniem danych wyjściowych w zmiennej. Dozwolone jest zapisywanie na ekranie, wierszu poleceń, pliku itp. Wyjście z funkcją returnjest również dozwolone.

Dodatkowe zasady

• Państwo musi nie używać wbudowanego do wykonania zadania (zastanawiam każdy język będzie mieć taki wbudowany, ale potem Mathematica ... )

• Obowiązują standardowe luki .

Przypadki testowe

Input        Output
1            Truthy (because 1 × 1 (reverse of 1) = 1)
2            Falsey
3            Falsey
4            Falsey
5            Falsey
81           Truthy (because 9 (8 + 1) × 9 (reverse of 9) = 81)
1458         Truthy (because 18 (1 + 4 + 5 + 8) × 81 (reverse of 18) = 1458)
1729         Truthy (because 19 (1 + 7 + 2 + 9) × 91 (reverse of 19) = 1729)
1730         Falsey
2017         Falsey

Zwycięskie kryterium

To jest golf golfowy , więc wygrywa najkrótszy kod w bajtach!

¹ _{Każdego roku, w dniu 22 ^-go grudnia, urodziny Srinivasa Ramanujan, Narodowy Dzień Matematyka obserwuje się w Indiach. Jego koledzy z Cambridge porównali go do Jacobiego, Eulera, a nawet Newtona. Poza tym, że jest tak świetny, prawie nie miał formalnego wykształcenia w czystej matematyce , ale nadal wniósł istotny wkład w analizę matematyczną , teorię liczb , nieskończone szeregi i ciągłe ułamki . Niestety zmarł w wieku 32 lat, mając na myśli tysiące odkryć matematycznych. Nakręcony został także na nim film oparty na jego biografii ,Człowiek, który wiedział nieskończoność .}

Neim , 5 bajtów

𝐬D𝐫𝕋𝔼

Wyjaśnienie:

Example input: 1729
𝐬      Implicitly convert to digit list and 𝐬um the digits [19]
 D     Duplicate [19, 19]
  𝐫    𝐫everse [19, 91]
   𝕋   mul𝕋iply [1729]
    𝔼  check for 𝔼quality with input [1]
Implicit output: 1

Spróbuj!

ArnoldC, 888 bajtów

IT'S SHOWTIME
HEY CHRISTMAS TREE i
YOU SET US UP 0
GET YOUR ASS TO MARS i
DO IT NOW
I WANT TO ASK YOU A BUNCH OF QUESTIONS AND I WANT TO HAVE THEM ANSWERED IMMEDIATELY
HEY CHRISTMAS TREE a
YOU SET US UP 0
GET TO THE CHOPPER a
HERE IS MY INVITATION 1
YOU ARE NOT YOU YOU ARE ME i
ENOUGH TALK
HEY CHRISTMAS TREE b
YOU SET US UP 0
GET TO THE CHOPPER b
HERE IS MY INVITATION 81
YOU ARE NOT YOU YOU ARE ME i
ENOUGH TALK
HEY CHRISTMAS TREE c
YOU SET US UP 0
GET TO THE CHOPPER c
HERE IS MY INVITATION 1458
YOU ARE NOT YOU YOU ARE ME i
ENOUGH TALK
HEY CHRISTMAS TREE d
YOU SET US UP 0
GET TO THE CHOPPER d
HERE IS MY INVITATION 1729
YOU ARE NOT YOU YOU ARE ME i
ENOUGH TALK
HEY CHRISTMAS TREE res
YOU SET US UP 0
GET TO THE CHOPPER res
HERE IS MY INVITATION a
CONSIDER THAT A DIVORCE b
CONSIDER THAT A DIVORCE c
CONSIDER THAT A DIVORCE d
ENOUGH TALK
TALK TO THE HAND res
YOU HAVE BEEN TERMINATED

Wiem, po prostu sprawdzam równość, ale to nie powinna być fajna część programu.

Miłej lektury. :)

Dodano kilka nowych linii dla łatwiejszej czytelności:

Wypróbuj online

Montaż x86, 55 35 33 31 bajtów:

Zakłada ABI, w którym wartość zwracana jest w EAX, a parametry są wypychane na stos ... więc prawie wszystkie z nich.

00000000: 8B 44 24 04        mov         eax,dword ptr [esp+4]
00000004: 48                 dec         eax
00000005: 74 16              je          0000001D
00000007: 83 E8 50           sub         eax,50h
0000000A: 74 11              je          0000001D
0000000C: 2D 61 05 00 00     sub         eax,561h
00000011: 74 0A              je          0000001D
00000013: 2D 0F 01 00 00     sub         eax,10Fh
00000018: 74 03              je          0000001D
0000001A: 33 C0              xor         eax,eax
0000001C: C3                 ret
0000001D: 40                 inc         eax
0000001E: C3                 ret

Brachylog , 8 bajtów

ẹ+S↔;S×?

Wypróbuj online!

Haskell , 56 55 bajtów

f n|m<-sum$read.pure<$>show n=n==m*(read.reverse.show)m

Wypróbuj online!

Pointfree: (56 bajtów)

(==)<*>((*)=<<read.reverse.show).sum.map(read.pure).show

Wypróbuj online!

Nudne: (24 bajty)

(`elem`[1,81,1458,1729])

Wypróbuj online!

JavaScript ES6, 59 57 bajtów

x=>(q=eval([...x].join`+`)+'')*[...q].reverse().join``==x

Wypróbuj online!

Zasadniczo dzieli się na tablicę cyfr, łączy +i sprawdza to wyrażenie, aby w zasadzie sumować cyfry. string*stringautomatycznie zamieni ciągi znaków na ints. Pobiera dane wejściowe jako ciąg

Mathematica, 42 bajty

(s=Tr@IntegerDigits@#)IntegerReverse@s==#&

Ruby, 69 bajtów

Pierwsza próba, z liczbą całkowitą jako wejściem:

->i{(x=i.to_s.split'').inject(0){|s,a|s+a.to_i}*(x[-1]+x[0]).to_i==i}

Druga próba, z ciągiem wejściowym:

->i{(x=i.split('').map &:to_i).inject(0,&:+)*(x[-1]*10+x[0])==i.to_i}

Partia, 164 bajty

@set/an=%1,s=0
:s
@set/as+=n%%10,n/=10
@if %n% gtr 0 goto s
@set/an=s,r=0
:r
@set/ar=r*10+n%%10,n/=10
@if %n% gtr 0 goto r
@set/an=%1-r*s
@if %n%==0 echo 1

Drukuje 1 w przypadku powodzenia, brak wyjścia w przypadku awarii.

JavaScript (ES6), 72 bajty

To jest poprawne przesłanie ES6. Dodaj f=na początku i wywołaj jak f(arg).

n=>(y=[...`${n}`].reduce((c,p)=>+c+ +p))*[...`${y}`].reverse().join``==n

Fragment testowy:

let f =

n=>(y=[...`${n}`].reduce((c,p)=>+c+ +p))*[...`${y}`].reverse().join``==n

console.log(1 + " -> " + f(1))
console.log(81 + " -> " + f(81))
console.log(1458 + " -> " + f(1458))
console.log(1729 + " -> " + f(1729))
console.log((randomNum = Math.floor(Math.random() * 10000) + 1) + " -> " + f(randomNum))

Kotlin, 111 108 bajtów

fun main(a:Array<String>)=print(a[0].sumBy{c->"$c".toInt()}.run{"${this*"$this".reversed().toInt()}"}==a[0])

Wypróbuj online!

Jak to jest typowe dla statycznie skompilowanych rozwiązań JVM, wiele bajtów jest traconych na samej deklaracji funkcji głównej i wywołaniu print (). Mięsem tej funkcji jest 60 bajtów, co wcale nie jest złe w przypadku ogólnego języka o typie statycznym, takiego jak Kotlin.

Kotlin, nudne rozwiązanie, 69 bajtów

fun main(a:Array<String>)=print(a[0].toInt()in setOf(1,81,1458,1729))

Wypróbuj online!

05AB1E , 5 bajtów

SOÂ*Q

Wypróbuj online!

Python 2 , 55 bajtów

def f(n):x=sum(map(int,`n`));return x*int(`x`[::-1])==n

Wypróbuj online!

Wyjaśnienie

def f(n):                           # define a function f that takes an argument n
    x = sum(                        # assign to x the sum of...
            map(int, `n`))          # ...the integer conversion of all elements in stringified n
    return x * int(                 # return True if x times the integer conversion of...
                   `x`[::-1])       # ...the stringified x reversed...
                              == n  # ...equals n

eval()Rozwiązanie jest nieco 2 bajty dłużej ...

def f(n):x=eval('+'.join(`n`));return x*int(`x`[::-1])==n

Alternatywny (nieprawidłowy?) Rozwiązanie, 42 29 bajtów

To rozwiązanie sprawdza równość wszystkich liczb.

lambda n:n in[1,81,1458,1729]

Wypróbuj online!

Cheddar , 60 bajtów

(n,g=x->x?g(x/10|0)+x%10:0)->n==g(n)*number::("%d"%g(n)).rev

Wypróbuj online!

NewStack , 16 bajtów

ḟᵢ¹f YΣ©Eᴙx| ∏=f

Podział:

Jako przykład podano 1729

ḟᵢ                 Define new function equal to input.               []
  ¹                Add 1 to stack.                                   [1]
   f               Multiply stack by the function.                   [1729]
     Y             Split the stack into digits.                      [1,7,2,9]
      Σ            Sum the stack.                                    [19]
       ©           Duplicate stack.                                  [19,19]
        E  |       Define new value for the first element            [19,19]
         ᴙx        Reverse first element.                            [91,19]
             ∏     Take the product.                                 [1729]
              =f   Remove from stack if not equal to the function.   [1729]

Nie drukuje nic, jeśli jest fałszywe, a oryginalne wejście, jeśli jest prawdziwe.

MATL , 11 bajtów

tV!UstVPU*=

Wypróbuj online!

t - weź dane wejściowe i skopiuj je

V!U - podziel go na poszczególne cyfry

s - zsumuj te cyfry

t - zduplikuj tę sumę

VP - zmień to w sznurek, obróć go od lewej do prawej

U - zamień to z powrotem na liczbę

* - pomnóż dwie ostatnie wartości (suma cyfr i jej odwrócona wersja od lewej do prawej)

= - sprawdź, czy jest to równe oryginalnej wartości wejściowej (która jest jedyną inną wartością na stosie)

Japt, 8 bajtów

¬x
*sÔ¥N

Uruchom to online

Galaretka , 8 bajtów

DS×ṚḌ$$=

Wypróbuj online!

Perl 6 , 30 bajtów

{my \n=sum .comb;$_==n*n.flip}

PHP , 52 bajty

<?=strrev($x=array_sum(str_split($argn)))*$x==$argn;

Wypróbuj online!

PHP , 36 bajtów

<?=in_array($argn,[1,81,1458,1729]);

Wypróbuj online!

APL (Dyalog) , 18 bajtów

{(⍵=⍎∘⌽×⍎)⍕+/⍎¨⍕⍵}

Wypróbuj online!

Pari / GP , 56 52 bajtów

n->n==(s=sumdigits(n))*fromdigits(Vecrev(digits(s)))

Wypróbuj online!

MathGolf , 5 bajtów

Σ_x*=

Wypróbuj online!

Prawie to samo, co bajt rozwiązanie bajtu Neima.