Diberi angka n (0 <= n <= 2642245), periksa apakah n dan n ³ memiliki set digit yang sama, dan berikan nilai yang benar atau salah.

Sebagai contoh, mari kita periksa angka 100.

100 ³ adalah 1000000.

Set digit dalam 100 adalah {0, 1}.

Set digit dalam 1000000 adalah {0, 1}.

Karena itu, 100 harus memberikan nilai kebenaran.

Uji kasus

0 -> True
1 -> True
10 -> True
107624 -> True
251894 -> True
251895 -> False
102343 -> False

Ingat, ini adalah kode-golf , jadi kode dengan byte paling sedikit menang.

OEIS A029795

Python 3, 36 32 byte

lambda x:{*str(x)}=={*str(x**3)}

Saya pikir ini hanya berfungsi di Python 3.5 dan yang lebih baru. Empat byte telah hilang, berkat Copper.

05AB1E , 6 byte

05AB1E menggunakan pengkodean CP-1252 .

3mê¹êQ

Cobalah online!

Penjelasan

3m       # input^3
  ê      # sorted with duplicates removed
     Q   # is equal to
   ¹ê    # input sorted with duplicates removed

C, 73 byte

k;b(i){k=0;while(i)k|=1<<i%10,i/=10;return k;}f(n){return b(n)-b(n*n*n);}

Membuat set melalui bit. Pengembalian 0untuk set yang sama, apa pun untuk set yang berbeda.

Tidak Disatukan:

k;
b(i){
  k=0;
  while(i)
    k|=1<<i%10,
    i/=10;
  return k;
}

f(n){
  return b(n)-b(n*n*n);
}

Perl, 31 + 2 ( -plbendera) = 25 21 18 34 33 byte

$_=($==$_**3)!~/[^$_]/*!/[^$=]/

Menggunakan:

perl -ple '$_=($==$_**3)!~/[^$_]/*!/[^$=]/' <<< 251894

Keluaran: 1\natau 0\n.

Terima kasih kepada @Dada selama 3 byte, Gabriel Benamy untuk 1 byte, & @Zaid untuk laporan bug.

Mathematica, 34 byte

f=Union@*IntegerDigits;f@#==f[#^3]&

Implementasi langsung (fungsi tanpa nama dari satu argumen integer).

Jelly , 8 byte

,3*\D‘ṬE

Cobalah online! atau verifikasi semua kasus uji .

Bagaimana itu bekerja

,3*\D‘ṬE  Main link. Argument: n

,3        Pair; yield [n, 3].
  *\      Cumulative reduce by exponentation. Yields [n, n³].
    D     Decimal; yield the digit arrays of n and n³.
     ‘    Increment, mapping 0 ... 9 to 1 ... 10.
      Ṭ   Untruth (vectorizes); map digit array [a, b, c, ...] to the smallest
          of zeroes with ones at indices a, b, c, ...
       E  Test the results for equality.

CJam, 8 byte

l_~3#s^!

Suite uji.

Penjelasan

l   e# Read input.
_~  e# Duplicate and evaluate.
3#  e# Raise to third power.
s   e# Convert back to string.
^   e# Symmetric set difference. Gives an empty list iff the two sets
    e# are equal.
!   e# Logical NOT.

JavaScript ES6, 55 51 byte

Terima kasih untuk Downgoat selama 3 byte! Anda dapat menyimpan satu byte dengan mengonversi ke ES7 dan menggunakan n**3alih-alih n*n*n.

n=>(f=s=>[...new Set(s+[])].sort()+[])(n)==f(n*n*n)

Cukup sederhana.

C #, 241 208 205 201 193 233 222 220 212 203 177 159 byte (109 alternatif)

I=>{x=s=>{var a=new int[10];foreach(var h in s+"")a[h-'0']++;return a;};var i=x(I);var j=x(I*I*I);for(var k=0;k<10;)if(i[k]>0^j[k++]>0)return 0>1;return 1>0;};

Lambda's harus secara khusus menggunakan ulongtipe:

System.Func<ulong, bool> b; // = I=>{...};
System.Func<ulong, int[]> x; // inner lambda

Terima kasih kepada @Corak dan @Dennis_E karena telah menyimpan beberapa byte, dan @TimmyD untuk menemukan masalah dengan solusi asli saya. Terima kasih kepada @SaxxonPike untuk menunjukkan masalah ulong / long / desimal / etc (yang sebenarnya juga menyelamatkan saya beberapa byte).

Ada juga solusi 109 byte menggunakan HashSets, mirip dengan jawaban Java di sini, tapi saya akan tetap berpegang pada solusi asli saya untuk skor saya.

using System.Collections.Generic;I=>{return new HashSet<char>(I+"").SetEquals(new HashSet<char>(I*I*I+""));};

Java 8, 154 karakter

a->java.util.Arrays.equals((a+"").chars().distinct().sorted().toArray(),(new java.math.BigInteger(a+"").pow(3)+"").chars().distinct().sorted().toArray());

Disebut seperti ini:

interface Y {
    boolean n(int x);
}

static Y y = a->java.util.Arrays.equals((a+"").chars().distinct().sorted().toArray(),(new java.math.BigInteger(a+"").pow(3)+"").chars().distinct().sorted().toArray());

public static void main(String[] args) {
    System.out.println(y.n(0));
    System.out.println(y.n(1));
    System.out.println(y.n(10));
    System.out.println(y.n(107624));
    System.out.println(y.n(251894));
    System.out.println(y.n(251895));
    System.out.println(y.n(102343));
}

Output:

true
true
true
true
true
false
false

Jawaban yang sangat Java 8-y, menggunakan lambda serta stream termasuk beberapa konversi angka-ke-string.

Sayangnya kita perlu menggunakan BigInteger.pow(3)alih-alih Math.pow(a,3)karena Math.pow menggunakan ganda yang tidak tepat, yang mengembalikan nilai yang salah dengan angka besar (dimulai dengan 2103869).

PESTA, 69, 59 byte

MEMPERBARUI

Cara lain yang bagus untuk melakukan ini di bash adalah dengan menggunakan tr (62 byte, tetapi mungkin bisa diperas sedikit lagi)

T() { m=`bc<<<$1^3`;[ -z "`tr -d $m <<<$1;tr -d $1 <<<$m`" ];}

EDIT: Beberapa lagi optimasi (Thx! @Manatwork)

Golf

T() { S(){ fold -1|sort -u;};bc<<<$1^3|S|diff - <(S<<<$1);}

Uji

TEST() {
 T $1 >/dev/null; echo $?
}

TEST 0
0
TEST 1
0
TEST 11
1
TEST 10
0
TEST 107624
0
TEST 251894
0
TEST 251895
1
TEST 102343
1
TEST 106239
1

0 - untuk sukses (kode keluar) 1 - untuk kegagalan (kode keluar)

fungsi kode mesin x86-64, 40 byte.

Atau 37 byte jika 0 vs non-nol diizinkan sebagai "benar", seperti strcmp.

Berkat jawaban Karl Napf C untuk ide bitmap, yang x86 dapat lakukan dengan sangat efisien dengan BTS .

Fungsi tanda tangan _Bool cube_digits_same(uint64_t n);:, menggunakan ABI Sistem x86-64. ( ndalam RDI, nilai pengembalian boolean (0 atau 1) dalam AL).

_Booldidefinisikan oleh ISO C11, dan biasanya digunakan oleh #include <stdbool.h>untuk mendefinisikan booldengan semantik yang sama dengan C ++ bool.

Potensi penghematan:

• 3 byte: Mengembalikan kondisi terbalik (bukan nol jika ada perbedaan). Atau dari inline asm: mengembalikan kondisi bendera (yang dimungkinkan dengan gcc6)
• 1 byte: Jika kita bisa mengalahkan EBX (melakukan hal itu akan memberikan fungsi ini konvensi panggilan non-standar). (bisa melakukannya dari inline asm)
• 1 byte: instruksi RET (dari inline asm)

Semua ini dimungkinkan jika ini adalah fragmen inline-asm alih-alih fungsi, yang akan membuatnya 35 byte untuk inline-asm .

0000000000000000 <cube_digits_same>:
   0:   89 f8           mov    eax,edi
   2:   48 f7 e7        mul    rdi          # can't avoid a REX prefix: 2642245^2 doesn't fit in 32 bits
   5:   48 f7 e7        mul    rdi          # rax = n^3, rdx=0
   8:   44 8d 52 0a     lea    r10d,[rdx+0xa]  # EBX would save a REX prefix, but it's call-preserved in this ABI.
   c:   8d 4a 02        lea    ecx,[rdx+0x2]

000000000000000f <cube_digits_same.repeat>:
   f:   31 f6           xor    esi,esi

0000000000000011 <cube_digits_same.cube_digits>:
  11:   31 d2           xor    edx,edx
  13:   49 f7 f2        div    r10         ; rax = quotient.  rdx=LSB digit
  16:   0f ab d6        bts    esi,edx     ; esi |= 1<<edx
  19:   48 85 c0        test   rax,rax     ; Can't skip the REX: (2^16 * 10)^3 / 10 has all-zero in the low 32.
  1c:   75 f3           jne    11 <cube_digits_same.cube_digits>

                                         ; 1st iter:                 2nd iter:                both:
  1e:   96              xchg   esi,eax   ; eax=n^3 bitmap            eax=n bitmap             esi=0
  1f:   97              xchg   edi,eax   ; edi=n^3 bitmap, eax=n     edi=n bmp, eax=n^3 bmp
  20:   e2 ed           loop   f <cube_digits_same.repeat>

  22:   39 f8           cmp    eax,edi
  24:   0f 94 d0        sete   al
                  ;; The ABI says it's legal to leave garbage in the high bytes of RAX for narrow return values
                  ;; so leaving the high 2 bits of the bitmap in AH is fine.
  27:   c3              ret    
0x28: end of function.

LOOP sepertinya merupakan cara terkecil untuk mengulang sekali. Saya juga melihat hanya mengulangi loop (tanpa awalan REX, dan register bitmap yang berbeda), tapi itu sedikit lebih besar. Saya juga mencoba menggunakan PUSH RSI, dan menggunakan test spl, 0xf/ jzuntuk loop sekali (karena ABI mensyaratkan bahwa RSP adalah 16B disejajarkan sebelum CALL, jadi satu dorongan menyelaraskannya, dan satu lagi menyelaraskannya lagi). Tidak ada test r32, imm8pengkodean, jadi cara terkecil adalah dengan instruksi TEST 4B (termasuk awalan REX) untuk menguji hanya byte rendah RSP terhadap imm8. Ukurannya sama dengan LEA + LOOP, tetapi dengan instruksi PUSH / POP tambahan diperlukan.

Diuji untuk semua n dalam rentang tes, vs implementasi C steadybox (karena menggunakan algoritma yang berbeda). Dalam dua kasus hasil berbeda yang saya lihat, kode saya benar dan steadybox salah. Saya pikir kode saya benar untuk semua n.

_Bool cube_digits_same(unsigned long long n);

#include <stdio.h>
#include <stdbool.h>
int main()
{
    for(unsigned n=0 ; n<= 2642245 ; n++) {
        bool c = f(n);
        bool asm_result = cube_digits_same(n);
        if (c!=asm_result)
            printf("%u problem: c=%d asm=%d\n", n, (int)c, (int)asm_result);
    }
}

Satu-satunya garis yang dicetak memiliki c = 1 asm = 0: false-positif untuk algoritma C.

Juga diuji terhadap uint64_tversi implementasi Karl C dari algoritma yang sama, dan hasilnya cocok untuk semua input.

Haskell, 47 byte

n%p=[c|c<-['0'..],elem c$show$n^p]
f n=n%1==n%3

Sangat lambat. Tes dengan c<-['0'..'9'].

Menguji setiap karakter untuk dimasukkan dalam representasi string n, dan membuat daftar yang disertakan. Apakah demikian untuk n^3dan memeriksa apakah daftar itu sama.

Dyalog APL , 10 byte

⍕≡⍕∪(⍕*∘3)

⍕≡ adalah representasi teks argumen yang identik dengan

⍕∪ penyatuan representasi teks argumen dan

(⍕*∘3) representasi teks dari argumen dadu?

TryAPL online!

Catatan: Untuk angka besar, atur ⎕PP←34 ⋄ ⎕FR←1287(34 digit signifikan, float 128 bit)

Clojure, 35 byte

#(=(set(str %))(set(str(* % % %))))

Java 7, 185 178 karakter

import java.util.*;
boolean a(int n){return new HashSet(Arrays.asList((n+"").split(""))).equals(new HashSet(Arrays.asList((new java.math.BigInteger(n+"").pow(3)+"").split(""))));}

Panggil sebagai:

public static void main(String [] args) {
    System.out.println(0 + " -> " + a(0));
    System.out.println(1 + " -> " + a(1));
    System.out.println(10 + " -> " + a(10));
    System.out.println(107624 + " -> " + a(107624));
    System.out.println(2103869 + " -> " + a(2103869));
    System.out.println(251894 + " -> " + a(251894));
    System.out.println(251895 + " -> " + a(251895));
    System.out.println(102343 + " -> " + a(102343));
    System.out.println(106239 + " -> " + a(106239));
}

Keluaran:

0 -> true
1 -> true
10 -> true
107624 -> true
2103869 -> true
251894 -> true
251895 -> false
102343 -> false
106239 -> false

(Saya tidak pernah yakin apakah saya harus menghitung impor dan definisi metode juga ... Saya sudah pernah melihat kedua cara. Kode itu sendiri hanya akan panjang 141 byte.)

Jelly , 8 byte

*3ṢQ⁼ṢQ$

Cobalah online!

Penjelasan:

       $    # As a monadic (single argument) link:
    ⁼       # Return true if the following are equal
     ṢQ     # The unique sorted elements of 'n'
  ṢQ        # and The unique sorted elements
*3          # of 'n^3'

Pyth, 10 byte

Karena kita tidak memiliki cukup variasi dengan jawaban Pyth, mari kita tambahkan bukan hanya satu, tetapi dua lagi! Keduanya 10 byte, dan telah diuji dengan 106239sebagai sampel input (yang beberapa jawaban lainnya gagal).

!s.++Q,`**

Penjelasan:

!s.++Q,`**QQQQ   Implicit input filling
        **QQQ    Q ^ 3
       `         repr(Q^3)
      ,      Q   [repr(Q^3),Q]
    +Q           [Q,repr(Q^3),Q]
  .+             Deltas ([Digits in Q but not in Q^3, digits in Q^3 but not in Q])
!s               Are both empty?

Coba jawaban pertama menggunakan test suite online.

Jawaban kedua:

qFmS{`d,**

Penjelasan:

qFmS{`d,**QQQQ   Implicit input filling
        **QQQ    Q ^ 3
       ,     Q   [Q^3, Q]
  m              map over each element d of [Q^3, Q]:
     `d           the element's string representation
    {             with duplicates removed
   S              and sorted
qF               Fold over equality (are the two the same?)

Coba jawaban kedua menggunakan test suite online.

Kotlin: 46/88/96 byte

Pertanyaannya tidak menentukan dari mana input berasal, jadi inilah 3 sumber input yang biasa.

Fungsi: 46 byte

fun f(i:Long)="$i".toSet()=="${i*i*i}".toSet()

main () menggunakan argumen program pertama: 88 byte

fun main(a:Array<String>){val i=a[0].toLong();println("$i".toSet()=="${i*i*i}".toSet())}

main () menggunakan input standar: 96 byte

fun main(a:Array<String>){val i=readLine()!!.toLong();println("$i".toSet()=="${i*i*i}".toSet())}

Haskell, 54 52 byte

Terima kasih @Laikoni karena menyimpan dua byte.

(%)=all.flip elem
k n|[a,b]<-show<$>[n,n^3]=b%a&&a%b

JavaScript (ES6), 44 byte

g=n=>n<1?0:g(n/10)|1<<n%10
n=>g(n)==g(n*n*n)

Port jawaban @ KarlNapf yang sangat baik. ES7 menyimpan byte melalui n**3. Hanya berfungsi hingga 208063 karena ketepatan numerik JavaScript terbatas; jika Anda hanya membutuhkannya hingga 1290, Anda dapat menyimpan byte lain.

Perl 6 , 22 byte

{!(.comb⊖$_³.comb)}

Diperluas:

{ # bare block lambda with implicit parameter ｢$_｣
  !(
    .comb # get a list of the graphemes ( digits )

    ⊖ # Symmetric Set difference

    $_³.comb # cube and get a list of the graphemes
  )
}

Perbedaan Set Symmetric ｢⊖｣ operator mengembalikan Set kosong jika kedua belah pihak Set setara (secara otomatis mengubah daftar menjadi Set). Pada saat itu satu-satunya yang tersisa untuk dilakukan adalah membalikkannya secara logis.

C ++, 82 byte

t(int a){int b=a*a*a,c,d;while(a|b)c|=1<<a%10,a/=10,d|=1<<b%10,b/=10;return c==d;}

Fungsi t (a) mengembalikan jawabannya. Menggunakan int sebagai set. Dicetak dengan baik:

t(int a)
{
    int b = a*a*a, c, d;
    while(a|b) c|=1 << a%10, a/=10, d|=1 << b%10, b/=10;
    return c==d;
}

R, 65 79 70 byte

Diambil ndari stdin, split ndan n^3menjadi digit tunggal, dan membandingkan dua set. Menggunakan gmppaket untuk menangani bilangan bulat besar (terima kasih kepada Billywob karena telah menunjukkan kekurangan itu). Sekarang digunakan substringuntuk memotong ndan n^3, terima kasih kepada @MickyT untuk sarannya. (Versi sebelumnya digunakan scandan gsubdengan cara hacky.)

s=substring
setequal(s(n<-gmp::as.bigz(scan()),p<-1:1e2,p),s(n^3,p,p))

C ++ 14, 93 byte

int b(auto i){int k=0;while(i)k|=1<<i%10,i/=10;return k;}int f(auto n){return b(n)-b(n*n*n);}

Port jawaban C saya , berfungsi untuk angka besar (panggilan dengan Lakhiran).

Haskell, 47 byte

import Data.Set
s=fromList.show
f n=s n==s(n^3)

Contoh penggunaan: f 102343-> False.

Menggunakan set dari Data.Setmodul. Fungsi helper smengubah angka menjadi representasi string dan daripada membuat seperangkat karakter.

Brachylog , 11 byte

doI,?:3^doI

Cobalah online!

Terima kasih kepada @DestructibleWatermelon karena menunjukkan masalah dengan jawaban asli saya.

Penjelasan

(?)doI,           I is the Input sorted with no duplicates
       ?:3^       Compute Input^3
           doI    Input^3 sorted with no duplicates is I

PowerShell v2 +, 94 93 byte

filter f($n){-join("$n"[0..99]|sort|select -u)}
(f($x=$args[0]))-eq(f("[bigint]$x*$x*$x"|iex))

(Baris baru untuk kejelasan, tidak termasuk dalam bytecount)

Baris pertama didefinisikan fsebagai filter(mirip-ish cukup untuk fungsi untuk tujuan kita di sini untuk tidak masuk ke spesifik) yang mengambil input $ndan melakukan hal berikut:

filter f($n){-join("$n"[0..99]|sort|select -u)}
       f($n)                                    # Input
                   "$n"                         # Cast as string
                       [0..99]                  # Index as char-array
                              |sort             # Sorted alphabetically
                                   |select -u   # Only select the -Unique elements
             -join(                          )  # Join those back together into a string
                                                 # Implicit return

Baris kedua mengambil input $args, melakukan fdi atasnya, dan memeriksa apakah itu -eqakan fdilakukan pada $xpotong dadu. Perhatikan [bigint]pemeran eksplisit , yang diperlukan kalau tidak kita akan mendapatkan hasilnya kembali dalam notasi ilmiah, yang jelas tidak akan berhasil.

Hasil Boolean ditinggalkan di jalur pipa, dan hasilnya tersirat.

PS C:\Tools\Scripts\golfing> 0,1,10,107624,251894,251895,102343,106239,2103869|%{"$_ --> "+(.\do-n-n3-same-digits.ps1 $_)}
0 --> True
1 --> True
10 --> True
107624 --> True
251894 --> True
251895 --> False
102343 --> False
106239 --> False
2103869 --> True

Menyimpan satu byte berkat @ConnorLSW

Groovy, 35 51 karakter / byte

Saya sedih tidak melihat Groovy dimasukkan, jadi inilah upaya 51 byte asli saya:

def x(def n){"$n".toSet()=="${n.power(3)}".toSet()}

Ditulis ulang sebagai penutupan anonim 35-byte dan dengan **untuk eksponensial, terima kasih kepada manatwork:

{"$it".toSet()=="${it**3}".toSet()}

Beberapa test case untuk fungsi aslinya:

println x(0)
println x(1)
println x(10)
println x(107624)
println x(251894)
println x(251895)
println x(102343)

Sebuah penutupan bernama cbisa disebut seperti ini: println c.call(107624). Penutupan 35 byte anonim dapat disebut seperti ini:println ({"$it".toSet()=="${it**3}".toSet()}(107624))

Output:

true
true
true
true
true
false
false

Harap dicatat: Saya mengetahui bahwa sesuatu seperti golf kode ada sekarang, jadi semoga saya benar!

Ruby, 48 byte

->n{(f=->x{x.to_s.chars.uniq.sort})[n]==f[n**3]}