Cho một số n (0 <= n <= 2642245), kiểm tra xem n và n ³ có cùng một bộ chữ số hay không và đưa ra giá trị trung thực hoặc giá trị falsey tương ứng.

Ví dụ: hãy kiểm tra số 100.

100 ³ là 1000000.

Tập hợp các chữ số trong 100 là {0, 1}.

Tập hợp các chữ số trong 1000000 là {0, 1}.

Do đó, 100 nên đưa ra một giá trị trung thực.

Các trường hợp thử nghiệm

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

Hãy nhớ rằng, đây là mã golf , vì vậy mã có ít byte nhất sẽ thắng.

OEIS A029795

Python 3, 36 32 byte

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

Tôi nghĩ rằng điều này chỉ hoạt động trong Python 3.5 trở lên. Bốn byte đã biến mất, nhờ có Copper.

05AB1E , 6 byte

05AB1E sử dụng mã hóa CP-1252 .

3mê¹êQ

Hãy thử trực tuyến!

Giải trình

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

Tạo tập hợp thông qua các bit. Trả về 0cho cùng một bộ, bất cứ điều gì khác cho các bộ khác nhau.

Ung dung:

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 ( -plcờ) = 25 21 18 34 33 byte

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

Sử dụng:

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

Đầu ra: 1\nhoặc 0\n.

Thanx đến @Dada cho 3 byte, Gabriel Benamy cho 1 byte và @Zaid cho các báo cáo lỗi.

Toán học, 34 byte

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

Thực hiện trực tiếp (hàm không tên của một đối số nguyên).

Thạch , 8 byte

,3*\D‘ṬE

Hãy thử trực tuyến! hoặc xác minh tất cả các trường hợp thử nghiệm .

Làm thế nào nó hoạt động

,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^!

Bộ thử nghiệm.

Giải trình

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

Cảm ơn Downgoat cho 3 byte! Bạn có thể lưu một byte bằng cách chuyển đổi sang ES7 và sử dụng n**3thay vì n*n*n.

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

Đủ đơn giản.

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

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

Các lambda phải đặc biệt sử dụng ulongloại:

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

Cảm ơn @Corak và @Dennis_E vì đã lưu một số byte và @TimmyD vì đã tìm ra vấn đề với giải pháp ban đầu của tôi. Cảm ơn @SaxxonPike đã chỉ ra vấn đề ulong / long / binary / etc (thực sự cũng giúp tôi tiết kiệm được một số byte).

Ngoài ra còn có một giải pháp 109 byte sử dụng HashSets, tương tự như các câu trả lời Java ở đây, nhưng tôi sẽ sử dụng giải pháp ban đầu cho điểm số của mình.

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

Java 8, 154 ký tự

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

Được gọi như thế này:

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

Đầu ra:

true
true
true
true
true
false
false

Câu trả lời 8-y rất Java, sử dụng lambda cũng như các luồng bao gồm một số chuyển đổi từ chuỗi sang chuỗi ưa thích.

Thật không may, chúng ta cần sử dụng BigInteger.pow(3)thay vì Math.pow(a,3)do Math.pow sử dụng các phép nhân đôi không chính xác, trả về các giá trị không chính xác với số lượng lớn (bắt đầu bằng 2103869).

BASH 69, 59 byte

CẬP NHẬT

Một cách hay khác để làm điều này trong bash là sử dụng tr (62 byte, nhưng có thể có thể được nén thêm một chút)

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

EDIT: Một số tối ưu hóa khác (Thx! @Manatwork)

Chơi gôn

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

Kiểm tra

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 - cho thành công (mã thoát) 1 - cho thất bại (mã thoát)

Chức năng mã máy x86-64, 40 byte.

Hoặc 37 byte nếu 0 so với khác không được phép là "trung thực", như strcmp.

Nhờ câu trả lời C của Karl Napf cho ý tưởng bitmap, x86 có thể thực hiện rất hiệu quả với BTS .

Chữ ký chức năng : _Bool cube_digits_same(uint64_t n);, sử dụng x86-64 System V ABI. ( ntrong RDI, giá trị trả về boolean (0 hoặc 1) trong AL).

_Boolđược định nghĩa bởi ISO C11 và thường được sử dụng #include <stdbool.h>để định nghĩa boolvới cùng một ngữ nghĩa như C ++ bool.

Tiết kiệm tiềm năng:

• 3 byte: Trả về điều kiện nghịch đảo (khác không nếu có sự khác biệt). Hoặc từ mã asm nội tuyến: trả về một điều kiện cờ (có thể với gcc6)
• 1 byte: Nếu chúng ta có thể ghi đè EBX (làm như vậy sẽ cung cấp cho hàm này một quy ước gọi không chuẩn). (có thể làm điều đó từ asm nội tuyến)
• 1 byte: lệnh RET (từ mã asm nội tuyến)

Tất cả những điều này đều có thể nếu đây là một đoạn nội tuyến thay vì một hàm, điều này sẽ tạo ra 35 byte cho nội tuyến-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 dường như là cách nhỏ nhất để lặp lại một lần. Tôi cũng đã xem xét chỉ lặp lại vòng lặp (không có tiền tố REX và một thanh ghi bitmap khác), nhưng nó lớn hơn một chút. Tôi cũng đã thử sử dụng PUSH RSI và sử dụng test spl, 0xf/ jzđể lặp một lần (vì ABI yêu cầu RSP được căn chỉnh 16B trước CALL, do đó, một lần đẩy sẽ căn chỉnh nó và một lần nữa điều chỉnh lại nó). Không có test r32, imm8mã hóa, vì vậy cách nhỏ nhất là với lệnh TEST 4B (bao gồm tiền tố REX) để kiểm tra chỉ byte RSP thấp so với số 8. Cùng kích thước với LEA + LOOP, nhưng cần thêm các hướng dẫn PUSH / POP.

Đã thử nghiệm cho tất cả n trong phạm vi thử nghiệm, so với triển khai C của hộp ổn định (vì nó sử dụng thuật toán khác). Trong hai trường hợp kết quả khác nhau mà tôi đã xem xét, mã của tôi là chính xác và ổn định là sai. Tôi nghĩ rằng mã của tôi là chính xác cho tất cả 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);
    }
}

Các dòng duy nhất được in có c = 1 asm = 0: false-positive cho thuật toán C.

Cũng đã thử nghiệm với uint64_tphiên bản triển khai C của Karl cùng một thuật toán và kết quả khớp với tất cả các đầu vào.

Haskell, 47 byte

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

Rất chậm. Kiểm tra với c<-['0'..'9'].

Kiểm tra mọi ký tự để đưa vào biểu diễn chuỗi nvà tạo danh sách những ký tự được bao gồm. Tương tự như vậy cho n^3và kiểm tra nếu danh sách bằng nhau.

APL Dyalog , 10 byte

⍕≡⍕∪(⍕*∘3)

⍕≡ là biểu diễn văn bản của đối số giống hệt với

⍕∪ sự kết hợp của biểu diễn văn bản của đối số và

(⍕*∘3) các đại diện văn bản của các đối số khối?

Dùng thử trực tuyến!

Lưu ý: Đối với số lớn, hãy đặt ⎕PP←34 ⋄ ⎕FR←1287(34 chữ số có nghĩa, số float 128 bit)

Clojure, 35 byte

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

Java 7, 185 178 ký tự

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

Gọi như:

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

Đầu ra:

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

(Tôi không bao giờ chắc chắn nếu tôi cũng phải tính cả nhập khẩu và định nghĩa phương thức ... Tôi đã thấy một trong hai cách. Bản thân mã sẽ chỉ dài 141 byte.)

Thạch , 8 byte

*3ṢQ⁼ṢQ$

Hãy thử trực tuyến!

Giải trình:

       $    # 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'

Bình thường, 10 byte

Bởi vì chúng tôi không có đủ sự đa dạng với câu trả lời Pyth, chúng ta hãy thêm không phải một, mà là hai nữa! Cả hai đều là 10 byte và đã được thử nghiệm 106239dưới dạng đầu vào mẫu (một số câu trả lời khác không thành công).

!s.++Q,`**

Giải trình:

!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?

Hãy thử câu trả lời đầu tiên bằng cách sử dụng bộ kiểm tra trực tuyến.

Câu trả lời thứ hai:

qFmS{`d,**

Giải trình:

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

Hãy thử câu trả lời thứ hai bằng cách sử dụng bộ kiểm tra trực tuyến.

Kotlin: 46/88/96 byte

Câu hỏi không xác định nguồn gốc từ đâu đến, vì vậy đây là 3 nguồn đầu vào thông thường.

Chức năng: 46 byte

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

main () sử dụng đối số chương trình đầu tiên: 88 byte

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

main () sử dụng đầu vào tiêu chuẩn: 96 byte

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

Haskell, 54 52 byte

Cảm ơn @Laikoni vì đã lưu hai 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)

Câu trả lời C tuyệt vời của cảng @ KarlNapf. ES7 lưu một byte thông qua n**3. Chỉ hoạt động tối đa 208063 do độ chính xác số lượng hạn chế của JavaScript; nếu bạn chỉ cần nó hoạt động tới 1290, bạn có thể lưu một byte khác.

Perl 6 , 22 byte

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

Mở rộng:

{ # 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
  )
}

Các Symmetric Set chênh lệch ｢⊖｣ điều hành trả về một sản phẩm nào Set nếu cả hai bên đều Sets tương đương (tự động bật một danh sách vào một Set). Tại thời điểm đó, điều duy nhất còn lại phải làm là đảo ngược nó một cách logic.

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

Hàm t (a) trả về câu trả lời. Sử dụng một int như một bộ. In độc đáo:

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

Lấy ntừ stdin, tách nvà n^3thành các chữ số duy nhất, và so sánh hai bộ. Sử dụng gmpgói để xử lý các số nguyên lớn (cảm ơn Billywob đã chỉ ra thiếu sót đó). Bây giờ sử dụng substringđể cắt giảm nvà n^3, nhờ @MickyT cho gợi ý. (Các phiên bản trước sử dụng scanvà gsubtheo một cách 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);}

Cổng câu trả lời C của tôi , hoạt động cho số lớn (gọi với Lhậu tố).

Haskell, 47 byte

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

Ví dụ sử dụng: f 102343-> False.

Sử dụng bộ từ Data.Setmô-đun. Hàm trợ giúp sbiến một số thành biểu diễn chuỗi của nó và tạo ra một tập hợp các ký tự.

Brachylog , 11 byte

doI,?:3^doI

Hãy thử trực tuyến!

Cảm ơn @DeststallibleWateriwi đã chỉ ra một vấn đề với câu trả lời ban đầu của tôi.

Giải trình

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

(Dòng mới cho rõ ràng, không bao gồm trong bytecount)

Dòng đầu tiên định nghĩa flà một filter(tương tự đủ với một chức năng cho các mục đích của chúng tôi ở đây để không đi vào chi tiết cụ thể) có đầu vào $nvà thực hiện như sau:

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

Dòng thứ hai lấy đầu vào $args, thực hiện ftrên nó và kiểm tra xem nó -eqcó được fthực hiện trên hình $xkhối hay không. Lưu ý [bigint]diễn viên rõ ràng , yêu cầu khác, chúng tôi sẽ lấy lại kết quả bằng ký hiệu khoa học, điều này rõ ràng sẽ không hoạt động.

Kết quả Boolean được để lại trên đường ống và đầu ra là ẩn.

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

Đã lưu một byte nhờ @ConnorLSW

Groovy, 35 51 ký tự / byte

Tôi rất buồn khi không thấy Groovy đi kèm, vì vậy đây là nỗ lực 51 byte ban đầu của tôi:

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

Được viết lại dưới dạng đóng ẩn danh 35 byte và với **cấp số nhân, nhờ vào thao tác:

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

Một số trường hợp thử nghiệm cho chức năng ban đầu:

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

Một đóng cửa ccó tên có thể được gọi như thế này : println c.call(107624). Việc đóng 35 byte ẩn danh có thể được gọi như thế này:println ({"$it".toSet()=="${it**3}".toSet()}(107624))

Đầu ra:

true
true
true
true
true
false
false

Xin lưu ý: Tôi đã học được rằng một cái gì đó giống như mã golf tồn tại ngay bây giờ, vì vậy hy vọng tôi đã làm đúng!

Ruby, 48 byte

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