Tantangan

Diberikan dua string, tentukan jika mereka berdua memiliki karakter yang persis sama di dalamnya.

Contoh

Memasukkan

kata, wrdo

Ini kembali truekarena mereka sama tetapi hanya diacak.

Memasukkan

kata, wwro

Ini kembali false.

Memasukkan

perahu, toba

Ini kembali true

Aturan

Ini peraturannya!

• Asumsikan input akan setidaknya 1 karakter, dan tidak lebih dari 8 karakter.
• Tidak ada karakter khusus, hanya a-z
• Semua input dapat dianggap huruf kecil

Uji Kasus

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)

Golfscript, 3 karakter?

$$=

pemakaian:

'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

-:&(/:~)

Literaly, cocokkan ( -:) di ( &) sortir ( /:~)

Penggunaan sampel:

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

Di mana integer 64-bit ikut bermain?

Javascript, 192 157 152 147 125 byte

Ok beberapa bahasa ini jauh lebih fleksibel daripada yang saya kira! Bagaimanapun ini adalah cara yang lebih panjang saya kira, tetapi teknik yang berbeda setidaknya.

Terkompresi

Terima kasih kepada Peter dan David karena telah memeras lebih banyak karakter!

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}

Lalu lakukan:

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

Kode yang Diperluas

Terkompresi telah memiliki banyak perubahan, tetapi ini adalah teori dasar:

// 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"));

Golfscript, 8 byte

Ini mendefinisikan fungsi yang disebut A

{$\$=}:A

Uji kasus

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

fungsi - 31

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

program - 81 58 55

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

Pemakaian:

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

Kudos to lambdabot dan refactoring pointfree -nya .

C #, 129 karakter

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

Dapat dibaca:

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

Ruby, 34 byte

Menggunakan skema IO solusi Peter Taylors Perl:

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

Program 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

(program lengkap, tidak seperti jawaban Perl lainnya yang hanya berfungsi)

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

49 sebagai fungsi

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

Clojure - 23 karakter

Sebagai fungsi anonim:

#(apply = (map sort %))

Contoh kasus uji:

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

JavaScript

Berdasarkan solusi @ zzzzBov.

Perbandingan, 65 karakter (40 tanpa fungsi)

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

Pembanding, 43 karakter

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

C ++ (104 karakter non-ws)

Berdasarkan jenis penghitungan. Catatan: Menganggap string dengan panjang yang sama, yang tampaknya tersirat (meskipun tidak dinyatakan) oleh pertanyaan.

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 (baris perintah, 87 karakter)

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

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

Javascript

Versi (sangat) sedikit lebih singkat dari solusi @ zzzzBov, yang menggunakan .join()alih-alih String boxing:

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

Demikian pula:

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

Clojure REPL 41 karakter

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

Jawa

(Bahasa favorit semua orang rupanya!)

173 karakter:

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

(Tidak mencetak char baris baru untuk menyimpan 2 karakter dari println)

Kompilasi dan jalankan:

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

Senang melihat yang lebih pendek ...

sed, 45 karakter

Itu bahkan mungkin di favorit saya - sed! Hanya satu ekspresi reguler untuk menyelesaikan anagram ! Terus keluarkan huruf yang sesuai:

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

(untuk dipanggil -nE)

Perl, 48

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

Untuk dipanggil dengan -p.

Fungsi Perl, 39

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

APL, 2 karakter

≡⍦

Ini adalah fungsi Pencocokan Multiset dari Nars2000 , salah satu implementasi APL terdepan. Ketika diterapkan pada string, ia menghitung persis fungsi yang diperlukan:

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

05AB1E , 6 4 byte (tidak bersaing)

{I{Q

Cobalah online!

Ini memakan waktu cukup lama karena kesulitan input. Golf turun karena pop.

Penjelasan:

{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 karakter

I / O masalah tidak dirinci dengan baik; ini membaca dua baris dari stdin dan menampilkan true atau false ke stdout.

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

(Terima kasih kepada Tim untuk 77 -> 75)

Perl, 62 byte

Fungsi ini mengambil string sebagai argumen dan mengembalikan true atau false.

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

Menyimpan nilai-nilai ASCII dalam sebuah array dan memeriksa apakah nilai tersebut keluar. Peningkatan untuk kata pertama dan penurunan untuk kata kedua.

Python 3, 107 97 76 64

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

Jelas ini dapat dipersingkat jika kita tidak menggunakan kata-kata OP secara harfiah dan huruf kecil "benar" dan "salah" ...

Python, 32 byte

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

Bash, 88 karakter

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)

Cobalah online!

Scala dalam REPL (32)

readLine.sorted==readLine.sorted

Fungsi scala (43)

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

Program scala (61)

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

Ini memanfaatkan fitur rapi Scala dimana String juga dapat diperlakukan sebagai urutan karakter ( Seq), dengan semua operasi Seqyang tersedia.

APL - 13 karakter

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

Panggil seperti ini:

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

Dalam contoh terakhir, 'a'mewakili karakter tunggal, dan awalan ,akan mengubahnya menjadi string.

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]));`

Ini membuat array untuk menghitung berapa kali setiap huruf muncul, dan kemudian membandingkan array untuk memeriksa apakah mereka sama.

JavaScript, 41

Fungsi perbandingan (41) :

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

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

Fungsi komparator (21) :

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

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

Fungsi pembanding (48):

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

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

Fungsi perbandingan (78):

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

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

Diasumsikan Stringtelah splitdan Arraysudah sort.