Desafío

Dadas dos cadenas, averigua si ambas tienen exactamente los mismos caracteres.

Ejemplo

Entrada

word, wrdo

Esto regresa trueporque son iguales pero simplemente revueltos.

Entrada

palabra, wwro

Esto vuelve false.

Entrada

barco, toba

Esto vuelve true

Reglas

¡Estas son las reglas!

• Suponga que la entrada tendrá al menos 1 char de largo y no más de 8 caracteres.
• Sin caracteres especiales, solo a-z
• Se puede suponer que todas las entradas son minúsculas

Casos de prueba

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 bytes

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

Golfscript, 3 caracteres?

$$=

uso:

'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

-:&(/:~)

Literalmente, match ( -:) en ( &) sort up ( /:~)

Uso de la muestra:

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

¿Dónde entran en juego los enteros de 64 bits?

Javascript, 192 157 152 147 125 bytes

Ok, ¡algunos de estos idiomas son mucho más flexibles de lo que pensaba! De todos modos, esta es la forma más larga, supongo, pero al menos una técnica diferente.

Comprimido

¡Gracias a Peter y David por exprimir más caracteres!

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}

Entonces hazlo:

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

Código expandido

El comprimido ha tenido muchos cambios, pero esta es la teoría básica:

// 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 bytes

Esto define una función llamada A

{$\$=}:A

Casos de prueba

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

función - 31

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

programa - 81 58 55

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

Uso:

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

Felicitaciones a lambdabot y su refactorización sin puntos .

C #, 129 caracteres

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

Legible:

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

Ruby, 34 bytes

Usando el esquema IO de la solución Peter Taylors Perl:

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

Programa 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 bytes

(programa completo, a diferencia de la otra respuesta de Perl que es solo una función)

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

49 como una función

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

Clojure - 23 caracteres

Como una función anónima:

#(apply = (map sort %))

Ejemplo de caso de prueba:

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

JavaScript

Basado en la solución de @ zzzzBov.

Comparación, 65 caracteres (40 sin función)

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

Comparador, 43 caracteres

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

C ++ (104 caracteres no ws)

De acuerdo con el tipo de conteo. Nota: Asume cadenas de la misma longitud, lo que parece estar implícito (aunque no declarado) en la pregunta.

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 (línea de comando, 87 caracteres)

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

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

Javascript

Una versión (muy) un poco más corta de la solución de @ zzzzBov, que usa en .join()lugar del boxeo String:

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

Similar:

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

Clojure REPL 41 caracteres

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

Java

(¡el idioma favorito de todos aparentemente!)

173 caracteres:

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

(No imprime char de nueva línea para guardar 2 caracteres de println)

Compilar y ejecutar:

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

Me encanta ver uno más corto ...

sed, 45 caracteres

¡Incluso es posible en mi favorito sed! ¡Solo una expresión regular para resolver el anagrama ! Solo sigue quitando las letras correspondientes:

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

(para ser invocado con -nE)

Perl, 48

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

Para ser invocado con -p.

Función Perl, 39

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

APL, 2 caracteres

≡⍦

Esta es la función Multiset Match de Nars2000 , una de las implementaciones de APL de vanguardia. Cuando se aplica a cadenas, calcula exactamente la función requerida:

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

05AB1E , 6 4 bytes (no competitivos)

{I{Q

Pruébalo en línea!

Esto tomó un tiempo debido a las dificultades de entrada. Golfed down debido al pop.

Explicación:

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

La E / S del problema no está bien especificada; esto lee dos líneas de stdin y genera verdadero o falso en stdout.

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

(Gracias a Tim por 77 -> 75)

Perl, 62 bytes

Esta función toma las cadenas como argumentos y devuelve verdadero o falso.

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

Almacena los valores ASCII en una matriz y comprueba si se iguala. Incrementos para la primera palabra y decrementos para la segunda palabra.

Python 3, 107 97 76 64

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

Obviamente, esto puede acortarse si no tomamos las palabras del OP literalmente y en minúsculas "verdadero" y "falso" ...

Python, 32 bytes

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

Bash, 88 caracteres

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

R , 54 bytes

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

Pruébalo en línea!

Scala en REPL (32)

readLine.sorted==readLine.sorted

Función Scala (43)

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

Programa Scala (61)

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

Estos aprovechan una característica ordenada de Scala por la cual una Cadena también se puede tratar como una secuencia de caracteres ( Seq), con todas las operaciones Seqdisponibles.

APL - 13 caracteres

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

Llame así:

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

En el último ejemplo, 'a'representa un solo carácter, y el prefijo ,lo convertirá en una cadena.

Java (134 bytes)

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

Esto hace una matriz para contar la cantidad de veces que aparece cada letra, y luego compara las matrices para verificar si son iguales.

JavaScript, 41

Función de comparación (41) :

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

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

Función de comparación (21) :

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

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

Función de comparación (48):

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

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

Función de comparación (78):

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

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

Asume Stringtiene splity Arraytiene sort.