Thử thách

Đưa ra hai chuỗi, tìm ra nếu cả hai đều có cùng một ký tự trong đó.

Thí dụ

Đầu vào

từ, viết

Điều này trở lại truebởi vì chúng giống nhau nhưng chỉ là tranh giành.

Đầu vào

từ, wwro

Điều này trở lại false.

Đầu vào

thuyền, toba

Điều này trở lại true

Quy tắc

Đây là các quy tắc!

• Giả sử đầu vào sẽ dài ít nhất 1 char và không dài hơn 8 ký tự.
• Không có ký tự đặc biệt, chỉ a-z
• Tất cả các đầu vào có thể được coi là chữ thường

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

boat, boat = true
toab, boat = true
oabt, toab = true
a, aa = false
zzz, zzzzzzzz = false
zyyyzzzz, yyzzzzzy = true
sleepy, pyels = false
p,p = true

Python, 32 byte

f=lambda a,b,S=sorted:S(a)==S(b)

Golf, 3 ký tự?

$$=

sử dụng:

'boat'$'baot'$=
1

'toab'$'boat'$=
1

'oabt'$'toab'$=
1

'a'$'aa'$=
0

'zzz'$'zzzzzzzz'$=
0

'zyyyzzzz'$'yyzzzzzy'$=
1

'sleepy'$'pyels'$=
0

'p'$'p'$=
1

J, 8

-:&(/:~)

Nghĩa đen, trận đấu ( -:) trên ( &) sắp xếp ( /:~)

Sử dụng mẫu:

   'boat' -:&(/:~) 'boat'
1
   'toab' -:&(/:~) 'boat'
1
   'oabt' -:&(/:~) 'toab'
1
   'a' -:&(/:~) 'aa'
0
   'zzz' -:&(/:~) 'zzzzzzzz'
0
   'zyyyzzzz' -:&(/:~) 'yyzzzzzy'
1
   'sleepy' -:&(/:~) 'pyels'
0
   'p' -:&(/:~) 'p'
1

Trường hợp các số nguyên 64 bit đi vào hoạt động?

Javascript, 192 157 152 147 125 byte

Ok một số ngôn ngữ này linh hoạt hơn rất nhiều so với tôi nghĩ! Dù sao đây là cách lâu hơn tôi đoán, nhưng ít nhất là một kỹ thuật khác.

Nén

Cảm ơn Peter và David đã vắt kiệt nhiều ký tự hơn!

for(a=[j=p=2];j<123;)a[j]?p%a[++j]<1&&p++&&(j=0):(a[j]=p,j=0);function b(c,i){return c[i=i||0]?a[c.charCodeAt(i)]*b(c,++i):1}

Sau đó làm:

alert(b("hello")==b("elloh"));

Mã mở rộng

Việc nén đã có rất nhiều thay đổi, nhưng đây là lý thuyết cơ bản:

// Define dictionary of primes
a = [2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97, 101];

// Returns the unique ID of the word (order irrelevant)
function b(c) {
    r = 1;
    for (i = 0; i < c.length; i++)
        r *= a[c[i].charCodeAt(0) - 97];
    return r
}

alert(b("hello") == b("hlleo"));

Golf, 8 byte

Cái này định nghĩa một hàm gọi là A

{$\$=}:A

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

;
'boat' 'boat' A
'toab' 'boat' A
'oabt' 'toab' A
'a' 'aa' A
'zzz' 'zzzzzzzz' A
'zyyyzzzz' 'yyzzzzzy' A
'sleepy' 'pyels' A
'p' 'p' A

Haskell, 31 byte

chức năng - 31

import List
f=(.sort).(==).sort

chương trình - 81 58 55

import List
g=sort`fmap`getLine
main=(`fmap`g).(==)=<<g

Sử dụng:

$ runghc anagram.hs
boat
boat
True
$ runghc anagram.hs
toab
boat
True
$ runghc anagram.hs
a
aa
False

Kudos để lambdabot và tái cấu trúc không điểm của nó .

C #, 129 ký tự

namespace System.Linq{class X{static void Main(string[]a){Console.Write(a[0].OrderBy(_=>_).SequenceEqual(a[1].OrderBy(_=>_)));}}}

Có thể đọc được

namespace System.Linq
{
    class X
    {
        static void Main(string[] a)
        {
            Console.Write(a[0].OrderBy(_ => _)
                  .SequenceEqual(a[1].OrderBy(_ => _)));
        }
    }
}

Ruby, 34 byte

Sử dụng sơ đồ IO của giải pháp Peter Taylors Perl:

p gets.chars.sort==gets.chars.sort

Chương trình C, 118

t[52],i;main(c){for(;i<52;)(c=getchar())<11?i+=26:t[i+c-97]++;
for(i=27;--i&&t[i-1]==t[i+25];);puts(i?"false":"true");}

Perl, 58 byte

(chương trình hoàn chỉnh, không giống như câu trả lời Perl khác chỉ là một hàm)

($c,$d)=map{[sort split//]}<>;print"@$c"eq"@$d"?true:false

49 là một chức năng

sub f{($c,$d)=map{[sort split//]}<>;"@$c"eq"@$d"}

Clojure - 23 ký tự

Là một chức năng ẩn danh:

#(apply = (map sort %))

Ví dụ trường hợp thử nghiệm:

(#(apply = (map sort %)) ["boat" "boat"])
=> true

JavaScript

Dựa trên giải pháp của @ zzzzBov.

So sánh, 65 ký tự (40 không có chức năng)

function f(a,b){return a.split('').sort()==b.split('').sort()+""}

So sánh, 43 ký tự

function f(a){return a.split('').sort()+""}

C ++ (104 ký tự không phải ws)

Dựa trên sắp xếp đếm. Lưu ý: Giả sử các chuỗi có cùng độ dài, dường như được ngụ ý (mặc dù không được nêu) bởi câu hỏi.

int u[123], i;

int a(char **c) {
    for(; c[0][i]; ) {
        u[c[0][i]]++;
        u[c[1][i++]]--;
    }

    i=123;
    while(i && !u[--i]);
    return !i;
}

PHP (dòng lệnh, 87 ký tự)

function d($s){
    return array_count_values(str_split($s));
}

echo d($argv[1]) == d($argv[2]);

Javascript

Một phiên bản (rất) ngắn hơn một chút của giải pháp @ zzzzBov, sử dụng .join()thay cho String boxing:

function a(b,c){return b.split('').sort().join()==c.split('').sort().join()}
alert(a('abc','bca')); //true

Tương tự:

function a(b){return b.split('').sort().join()}
alert(a('abc')==a('bca')); //true

Clojure REPL 41 ký tự

(= (sort (read-line)) (sort (read-line)))

Java

(ngôn ngữ yêu thích của mọi người rõ ràng!)

173 ký tự:

import java.util.*;class g{public static void main(String[]p){String[]a=p[0].split(""),b=p[1].split("");Arrays.sort(a);Arrays.sort(b);System.out.print(Arrays.equals(a,b));}}

(Không in char dòng mới để lưu 2 ký tự từ println)

Biên dịch và chạy:

javac g.java
java -cp . g abcdef fedcba
true

Thích nhìn thấy một cái ngắn hơn ...

sed, 45 ký tự

Nó thậm chí có thể trong yêu thích của tôi - sed! Chỉ cần một biểu thức thông thường để giải quyết đảo chữ ! Chỉ cần tiếp tục loại bỏ các chữ cái tương ứng:

:
s/(.)(.*,.*)\1/\2/
t
/\w/{i\false
d}
i\true

(được gọi với -nE)

Perl, 48

1while s/(.)(.*,.*)\1/\2/;$_=/\w/?"false":"true"

Được viện dẫn với -p.

Hàm Perl, 39

sub f{$,while s/(.)(.*,.*)\1/\2/;!/\w/}

APL, 2 ký tự

≡⍦

Đây là chức năng Multiset Match từ Nars2000 , một trong những triển khai APL hàng đầu. Khi áp dụng cho chuỗi, nó tính toán chính xác chức năng cần thiết:

      'elvis' ≡⍦ 'lives'
1
      'alec guinness' ≡⍦ 'genuine class'
1

05AB1E , 6 4 byte (không cạnh tranh)

{I{Q

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

Điều này mất một thời gian vì những khó khăn đầu vào. Chơi golf xuống do pop.

Giải trình:

{I{Q    Original code

{       Takes first input e.g. word and sorts -> 'dorw'
 I      Takes second input e.g. 'wrdo'
  {     Sorts second input -> 'dorw'
   Q    Compare if sorted 1 = sorted 2, then print result. 'dorw' = 'dorw', so prints 1.

Perl, 77 75 ký tự

I / O của vấn đề không được chỉ định rõ; Điều này đọc hai dòng từ stdin và xuất ra đúng hoặc sai cho thiết bị xuất chuẩn.

sub p{join'',sort split'',$a}$a=<>;$x=p;$a=<>;print$x eq p()?"true":"false"

(Cảm ơn Tim vì 77 -> 75)

Perl, 62 byte

Hàm này lấy các chuỗi làm đối số và trả về true hoặc false.

sub f{my@a;for$.(1,-1){$a[ord]+=$.for split//,pop}!grep{$_}@a}

Lưu trữ các giá trị ASCII trong một mảng và kiểm tra xem nó có phát hiện ra không. Tăng cho từ đầu tiên và giảm cho từ thứ hai.

Trăn 3, 107 97 76 64

s=sorted;a,b=input().split(', ')
print(str(s(a)==s(b)).lower())

Rõ ràng điều này có thể được rút ngắn nếu chúng ta không hiểu từ ngữ của OP theo nghĩa đen và chữ thường "đúng" và "sai" ...

Python, 32 byte

p=sorted
f=lambda a,b:p(a)==p(b)

Bash, 88 ký tự

diff <(grep -o .<<<$1|sort) <(grep -o .<<<$2|sort)>/dev/null && echo true || echo false

R , 54 byte

function(x,y,`~`=sort,`+`=utf8ToInt)identical(~+x,~+y)

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

Scala trong REPL (32)

readLine.sorted==readLine.sorted

Hàm Scala (43)

def f(a:String,b:String)=a.sorted==b.sorted

Chương trình Scala (61)

object A extends App{println(args(0).sorted==args(1).sorted)}

Các đòn bẩy này tạo ra một tính năng gọn gàng của Scala, theo đó Chuỗi cũng có thể được coi là một chuỗi các ký tự ( Seq), với tất cả các thao tác Seqcó sẵn.

APL - 13 ký tự

{(⍺[⍋⍺])≡⍵[⍋⍵]}

Gọi như thế này:

      'boat' {(⍺[⍋⍺])≡⍵[⍋⍵]} 'baot'
1
      'baot' {(⍺[⍋⍺])≡⍵[⍋⍵]} 'boat'
1
      (,'a') {(⍺[⍋⍺])≡⍵[⍋⍵]} 'aa'
0

Trong ví dụ cuối cùng, 'a'biểu thị một ký tự đơn và tiền tố ,sẽ chuyển đổi nó thành một chuỗi.

Java (134 byte)

int[][]c=new int[2][26];
for(int i=0;i<2;i++)for(byte a:args[i].getBytes())c[i][a-97]++;
System.out.print(Arrays.equals(c[0],c[1]));`

Điều này tạo ra một mảng để đếm số lần mỗi chữ cái xuất hiện, và sau đó so sánh các mảng để kiểm tra xem chúng có bằng nhau không.

JavaScript, 41

Hàm so sánh (41) :

a=b=>''+[...b].sort()
b=(c,d)=>a(c)==a(d)

alert(b('abc', 'cba')) // true

Hàm so sánh (21) :

a=b=>''+[...b].sort()

alert(a('abc') == a('bca')); //true

Hàm so sánh (48):

function a(b){return String(b.split('').sort())}

alert(a('abc')==a('bca')); //true

Hàm so sánh (78):

function a(b,c){return String(b.split('').sort())==String(c.split('').sort())}

alert(a('abc','bca')); //true

Giả định Stringđã splitvà Arrayđang có sort.