Wyzwanie

Biorąc pod uwagę dwa ciągi, sprawdź, czy oba zawierają dokładnie te same znaki.

Przykład

Wejście

słowo wrdo

Zwraca, trueponieważ są takie same, ale tylko zakodowane.

Wejście

słowo, wwro

To zwraca false.

Wejście

łódź, toba

To zwraca true

Zasady

Oto zasady!

• Załóżmy, że dane wejściowe będą miały co najmniej 1 znak i nie będą dłuższe niż 8 znaków.
• Bez znaków specjalnych, tylko a-z
• Wszystkie dane wejściowe można przyjmować małymi literami

Przypadki testowe

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 bajty

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

Golfscript, 3 znaki?

$$=

stosowanie:

'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

-:&(/:~)

Dosłownie, match ( -:) on ( &) sortuj w górę ( /:~)

Przykładowe użycie:

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

Gdzie w grę wchodzą 64-bitowe liczby całkowite?

Javascript, 192 157 152 147 147 125 bajtów

Ok, niektóre z tych języków są znacznie bardziej elastyczne niż myślałem! W każdym razie jest to dłuższy sposób, ale przynajmniej inna technika.

Sprężony

Dzięki Peter i David za wyciskanie kolejnych znaków!

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}

Następnie wykonaj:

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

Rozszerzony kod

Skompresowany miał wiele zmian, ale jest to podstawowa teoria:

// 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 bajtów

Definiuje funkcję o nazwie A

{$\$=}:A

Przypadki testowe

;
'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 bajtów

funkcja - 31

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

program - 81 58 55

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

Stosowanie:

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

Uznanie dla lambdabota i jego bezcelowe refaktoryzacja .

C #, 129 znaków

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

Czytelny:

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

Rubinowy, 34 bajty

Korzystanie ze schematu IO rozwiązania 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 bajtów

(kompletny program, w przeciwieństwie do innych odpowiedzi Perla, które są tylko funkcją)

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

49 jako funkcja

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

Clojure - 23 znaki

Jako funkcja anonimowa:

#(apply = (map sort %))

Przykład przypadku testowego:

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

JavaScript

Na podstawie rozwiązania @ zzzzBov.

Porównanie, 65 znaków (40 bez funkcji)

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

Komparator, 43 znaki

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

C ++ (104 znaki spoza ws)

Na podstawie sortowania liczącego. Uwaga: Zakłada ciągi o tej samej długości, co wydaje się sugerowane (choć nie określone) przez pytanie.

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 (wiersz poleceń, 87 znaków)

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

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

JavaScript

(Bardzo) nieco krótsza wersja rozwiązania @ zzzzBov, która używa .join()zamiast boksu String:

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

Podobnie:

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

Clojure REPL 41 znaków

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

Jawa

(najwyraźniej ulubiony język wszystkich!)

173 znaków:

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

(Nie drukuje znaku nowej linii, aby zapisać 2 znaki z println)

Skompiluj i uruchom:

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

Uwielbiam oglądać krótszy ...

sed, 45 znaków

Jest to nawet możliwe w moim ulubionym - sed! Tylko jedno wyrażenie regularne, aby rozwiązać anagram ! Po prostu usuwaj odpowiednie litery:

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

(do wywołania -nE)

Perl, 48

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

Aby zostać wywołanym z -p.

Funkcja Perla, 39

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

APL, 2 znaki

≡⍦

Jest to funkcja Multiset Match firmy Nars2000 , jedna z wiodących implementacji APL. Po zastosowaniu do ciągów oblicza dokładnie wymaganą funkcję:

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

05AB1E , 6 4 bajtów (niekonkurencyjny)

{I{Q

Wypróbuj online!

Trwało to trochę z powodu trudności z wprowadzaniem danych. Grał w golfa z powodu popu.

Wyjaśnienie:

{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 znaków

We / wy problemu nie są dobrze określone; to odczytuje dwie linie ze standardowego wejścia i zwraca prawdę lub fałsz na standardowe wyjście.

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

(Podziękowania dla Tima za 77 -> 75)

Perl, 62 bajty

Ta funkcja przyjmuje ciągi jako argumenty i zwraca wartość true lub false.

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

Przechowuje wartości ASCII w tablicy i sprawdza, czy się wyrówna. Przyrosty dla pierwszego słowa i ubytki dla drugiego słowa.

Python 3, 107 97 76 64

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

Oczywiście można to skrócić, jeśli nie weźmiemy słowa OP dosłownie i małych liter „prawda” i „fałsz” ...

Python, 32 bajty

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

Bash, 88 znaków

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

R , 54 bajty

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

Wypróbuj online!

Scala w REPL (32)

readLine.sorted==readLine.sorted

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

Wykorzystują one ciekawą funkcję Scali, dzięki której Łańcuch może być również traktowany jako ciąg znaków ( Seq), a wszystkie operacje Seqsą dostępne.

APL - 13 znaków

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

Zadzwoń tak:

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

W ostatnim przykładzie 'a'reprezentuje pojedynczy znak, a prefiks ,przekształci go w ciąg.

Java (134 bajty)

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

Powoduje to, że tablica zlicza liczbę wyświetleń każdej litery, a następnie porównuje tablice, aby sprawdzić, czy są one równe.

JavaScript, 41

Funkcja porównania (41) :

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

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

Funkcja komparatora (21) :

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

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

Funkcja komparatora (48):

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

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

Funkcja porównania (78):

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

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

Zakłada, że Stringma spliti Arrayma sort.