Défi

Si vous avez deux chaînes, déterminez si elles contiennent exactement les mêmes caractères.

Exemple

Contribution

mot, wrdo

Cela retourne trueparce qu'ils sont identiques mais simplement brouillés.

Contribution

mot, wwro

Cela revient false.

Contribution

bateau, toba

Cela retourne true

Règles

Voici les règles!

• Supposons que la longueur d'entrée soit d'au moins 1 caractère et d'au plus 8 caractères.
• Pas de caractères spéciaux, seulement a-z
• On peut supposer que toutes les entrées sont en minuscules

Cas de test

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 octets

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

Golfscript, 3 caractères?

$$=

usage:

'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

-:&(/:~)

Littéralement, match ( -:) sur ( &) trier ( /:~)

Exemple d'utilisation:

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

Où entrent les entiers 64 bits?

Javascript, 192 157 152 147 125 octets

Ok, certaines de ces langues sont beaucoup plus flexibles que je ne le pensais! Quoi qu'il en soit, je suppose que c'est le chemin le plus long, mais au moins une technique différente.

Comprimé

Merci à Peter et David d’avoir envoyé plus de personnages!

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}

Alors fais:

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

Code développé

La compression a eu beaucoup de changements, mais ceci est la théorie de base:

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

Ceci définit une fonction appelée A

{$\$=}:A

Cas de test

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

fonction - 31

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

programme - 81 58 55

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

Usage:

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

Bravo à Lambdabot et à sa refactorisation sans aucun problème .

C #, 129 caractères

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

Lisible:

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

Ruby, 34 octets

En utilisant le schéma IO de la solution Perl de Peter Taylors:

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

Programme 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 octets

(programme complet, contrairement à l'autre réponse Perl qui n'est qu'une fonction)

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

49 en fonction

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

Clojure - 23 caractères

En tant que fonction anonyme:

#(apply = (map sort %))

Exemple de cas de test:

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

JavaScript

Basé sur la solution de @ zzzzBov.

Comparaison, 65 caractères (40 sans fonction)

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

Comparateur, 43 caractères

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

C ++ (104 caractères non-ws)

Basé sur la sorte de comptage. Remarque: Suppose des chaînes de même longueur, ce qui semble être impliqué (bien que non indiqué) par la question.

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 (ligne de commande, 87 caractères)

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

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

Javascript

Une version (très) un peu plus courte de la solution de @ zzzzBov, qui utilise à la .join()place de la boxe string:

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

De même:

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

Clojure REPL 41 caractères

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

Java

(La langue préférée de tout le monde apparemment!)

173 caractères:

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

(N'imprime pas de caractère de nouvelle ligne pour enregistrer 2 caractères de println)

Compiler et exécuter:

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

J'adore en voir un plus court ...

sed, 45 caractères

C'est même possible dans mon préféré - sed! Juste une expression régulière pour résoudre l'anagramme ! Continuez simplement à supprimer les lettres correspondantes:

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

(à invoquer avec -nE)

Perl, 48 ans

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

Être invoqué avec -p.

Fonction Perl, 39

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

APL, 2 caractères

≡⍦

C'est le match Multiset fonction de Nars2000 , l' un des avant-gardistes mises en œuvre APL. Appliqué aux chaînes, il calcule exactement la fonction requise:

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

05AB1E , 6 4 octets (non concurrents)

{I{Q

Essayez-le en ligne!

Cela a pris du temps à cause de difficultés d’entrée. Golfé en raison de la pop.

Explication:

{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 caractères

Les E / S du problème ne sont pas bien spécifiées. cela lit deux lignes de stdin et renvoie true ou false à stdout.

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

(Merci à Tim pour 77 -> 75)

Perl, 62 octets

Cette fonction prend les chaînes en tant qu'arguments et renvoie true ou false.

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

Stocke les valeurs ASCII dans un tableau et vérifie si celui-ci est uni. Incréments pour le premier mot et décrément pour le second mot.

Python 3, 107 97 76 64

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

Évidemment, cela peut être abrégé si nous ne prenons pas les libellés du PO littéralement et minuscules "vrai" et "faux" ...

Python, 32 octets

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

Bash, 88 caractères

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

R , 54 octets

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

Essayez-le en ligne!

Scala dans REPL (32)

readLine.sorted==readLine.sorted

Fonction de Scala (43)

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

Programme Scala (61)

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

Celles-ci exploitent une fonctionnalité intéressante de Scala selon laquelle une chaîne peut également être traitée comme une séquence de caractères ( Seq), toutes les opérations Seqétant disponibles.

APL - 13 caractères

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

Appelle comme ça:

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

Dans le dernier exemple, 'a'représente un seul caractère et le préfixe ,le convertira en chaîne.

Java (134 octets)

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

Cela fait un tableau pour compter le nombre de fois que chaque lettre apparaît, puis compare les tableaux pour vérifier si elles sont égales.

JavaScript, 41

Fonction de comparaison (41) :

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

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

Fonction de comparaison (21) :

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

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

Fonction de comparaison (48):

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

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

Fonction de comparaison (78):

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

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

Assume Stringa splitet Arraya sort.