In PPCG ist es zu einer gewissen Tradition geworden, dass einige Benutzer ihre Namen vorübergehend durch ein Anagramm ändern (ein neuer Name, der durch Umordnen der Buchstaben des alten gebildet wird).

Manchmal ist es schwierig herauszufinden, wer wer ist. Ich könnte ein Programm oder eine Funktion verwenden, um festzustellen, ob zwei Phrasen Anagramme voneinander sind.

Die Herausforderung

Das Programm oder die Funktion sollte zwei Zeichenfolgen verwenden und ein wahres Ergebnis liefern, wenn sie Anagramme voneinander sind, und ansonsten falsch.

Regeln

• Die Eingabe enthält nur Buchstaben (ASCII 65 bis 90 und 97 bis 122), Ziffern (ASCII 48 bis 57) oder Leerzeichen (ASCII 32).
• Die Anagrammrelation ist unabhängig vom Einzelfall. "Arm" und "RAM" sind also Anagramme.
• Leerzeichen zählen auch nicht. "Keyboard" und "Barked Yo" sind also Anagramme
• Alle eingebauten erlaubt
• Das Eingabeformat ist flexibel (zwei Zeichenfolgen, ein Array aus zwei Zeichenfolgen, eine Zeichenfolge, die beide Phrasen mit einem geeigneten Trennzeichen enthält ...)

Code Golf. Wenigste Bytes gewinnt.

Testfälle

Wahrheit:

Lynn, Nyl N
Digital Trauma, Tau Digital Arm
Sp3000, P S 3000
Manage Trash So, Those anagrams

Falsch

Calvins Hobbies, Helka Homba
Android, rains odd
In between days, bayed entwine
Code golf, cod elf got

05AB1E , 9 8 Bytes

Code:

lvyð-{}Q

Erläuterung:

l         # Lowercase the strings
 vy   }   # Map over the list, for each...
   ð-     #   remove spaces
     {    #   and sort
       Q  # Check equality

Probieren Sie es online!

Retina, 25

i+`(\w)(.*,.*)\1
$2
^\W*$

Probieren Sie es online! Darüber hinaus können Sie eine geänderte mehrzeilige Version ausführen .

Löschen Sie Buchstaben vor dem Komma und die Übereinstimmungen nach dem Komma. Wenn wir keine Buchstaben mehr haben, war es ein Anagramm.

Pyth, 11 10 Bytes

Vielen Dank an @FryAmTheEggman für das Erlernen der Macht von ;!

qFmSr-d;0Q

Probieren Sie es hier aus!

Nimmt eine Liste von zwei Zeichenfolgen als Eingabe.

Erläuterung

qFmSr-d; 0Q # Q = Eingang

  m Q # map Q mit d als Lambda-Variable
     -d; # filtert Leerzeichen aus der Zeichenkette heraus
    r 0 # in Kleinbuchstaben konvertieren
   S # sortiere alle Zeichen in einer Zeichenkette
qF # Entfalte die resultierende Liste und überprüfe sie auf Gleichheit

Python 2, 63 61 Bytes

lambda*l:len({`sorted(s.lower())`[2::5].strip()for s in l})<2

Eine anonyme Funktion, die n Argumente akzeptiert und bestimmt, ob alle n gegenseitige Palindrome sind! f("Lynn", "Nyl N")kehrt zurück True.

Dieser Set-Verständnis-Trick stammt von xnor. Es wurden zwei Bytes gespart, aber der alte Ansatz sah sehr ordentlich aus:

exec"a=`sorted(input().lower())`[2::5].strip();a"*2;print a==aa

Gelee, 12 Bytes

ḟ€⁶O&95Ṣ€QLḂ

Probieren Sie es online!

Wie es funktioniert

ḟ€⁶O&95Ṣ€QLḂ  Main link. Input: A (list of strings)

  ⁶           Yield ' '.
ḟ€            Filter it from each string.
   O          Apply ordinal to all characters.
    &95       Take bitwise AND with 95 to make the ordinals case-insensitive.
       Ṣ€     Sort each list of ordinals.
         Q    Deduplicate the list.
          L   Get the length.
           Ḃ  Compute the length's parity (1 -> 1, 2 -> 0).

Alternative Version, nicht konkurrierend (9 Bytes)

Jellys Atom in Großbuchstaben hatte einen Fehler und Jelly hatte noch keine eingebauten Testlisten für Gleichheit ...

ḟ⁶ŒuṢµ€⁼/

Probieren Sie es online!

Wie es funktioniert

ḟ⁶ŒuṢµ€⁼/     Main link. Input: A (list of strings)

     µ€       Map the chain to the left over A.
 ⁶            Yield ' '.
ḟ             Filter it from the string.
  Œu          Cast to uppercase.
    Ṣ         Sort.
       ⁼/     Reduce by equality.

CJam, 11 12 14 Bytes

3 2 Bytes entfernt dank @FryAmTheEggman

{lelS-$}2*=

Probieren Sie es online!

{      }2*       e# do this twice
 l               e# read line as a string
  el             e# make lowercase
    S-           e# remove spaces from string
      $          e# sort
          =      e# compare strings

Javascript, 69 61 60 59 Bytes

1 Byte aus danke @ ӍѲꝆΛҐӍΛПӍѲꝆΛҐӍΛ . 1 - Byte - off mit currying ( wies darauf hin , durch @apsillers )

n=>m=>(G=s=>[]+s.toLowerCase().split(/ */).sort())(n)==G(m)

f=n=>m=>
    (G=s=>[]+s.toLowerCase()
        .split(/ */)
        .sort()
    )(n)==G(m)

F=(n,m)=>document.body.innerHTML+=`<pre>f('${n}')('${m}') -> ${f(n)(m)}</pre>`

F('Luis Mendo','Don Muesli')
F('Calvins Hobbies','Helka Homba')
F('Android','rains odd')
F('In between days','bayed entwine')
F('Code golf','cod elf got')
F('Lynn','Nyl N')
F('Digital Trauma','Tau Digital Arm')
F('Sp3000','P S 3000')
F('Manage Trash So','Those anagrams')

MATL, 11 bytes

2:"jkXvS]X=

EDIT (May 20, 2016) The code in the link uses Xz instead of Xv, owing to recent changes in the language.

Try it online!

2:"     ]       % do this twice
   j            % read input line as a string
    k           % convert to lowercase
     Xv         % remove spaces
       S        % sort
         X=     % are they equal?

Seriously, 11 9 bytes

2`,ùSô`n=

Try It Online!

Everyone seems to be using the same algorithm. Here it is yet again.

2`    `n          Do it twice
  ,               Read a string
   ù              Make it lowercase
    S             Sort
     ô            Strip spaces.
        =         Check equality.

Bearbeiten: Die realisierte Sortierung funktioniert korrekt für Zeichenfolgen und sortiert Leerzeichen nach vorne, sodass strip () funktioniert.

C 165 Bytes

#define d(x) int x(char*a,char*b){
d(q)return*a&224-*b&224;}
#define n(x) for(qsort(x,strlen(x),1,(__compar_fn_t)q);*x<33;x++);
d(s)n(a)n(b)return strcasecmp(a,b);}

Lesbar und im Arbeitskontext

#include <stdlib.h>
#include <string.h>
#include <stdio.h>

// start of comparison
int q(char *a, char *b){
     return ((*a)&0xdf)-((*b)&0xdf); // case-insensitive
}
int s(char *a, char *b){
    for(qsort(a,strlen(a),1,(__compar_fn_t)q); *a<33; a++) /**/;
    for(qsort(b,strlen(b),1,(__compar_fn_t)q); *b<33; b++) /**/;
    return strcasecmp(a,b);
}
// end of comparison

int main(int i, char **v){
    printf("'%s' '%s'", v[1], v[2]);
    printf("=> %d\n", s(v[1], v[2])); // 0 if equalish
    return 0;
}

zsh, 85 Bytes

[ $(for x in $@;{tr -d \ <<<$x|tr A-Z a-z|fold -1|sort|paste -sd x}|uniq|wc -l) = 1 ]

Eingabe als Kommandozeilenargumente, Ausgabe als Returncode.

Die forSyntax macht diese Bash-inkompatibel.

[               # test...
$(for x in $@;  # map over arguments
{tr -d \ <<<$x  # remove spaces
|tr A-Z a-z     # lowercase
|fold -1        # put each character on its own line
|sort           # sort lines
|paste -sd x    # remove all newlines except last
}|uniq          # take only unique lines
|wc -l          # how many lines remain?
) = 1 ]         # if only 1 line left, it must have been an anagram

Japt, 12 Bytes

N®v ¬n ¬xÃä¥

Online testen!

Wie es funktioniert

        // Implicit: N = array of input strings
N®    Ã // Take N, and map each item Z to:
v ¬n    //  Take Z.toLowerCase(), split into chars, and sort.
¬x      //  Join and trim off whitespace.
ä¥      // Reduce each pair of items (that's exactly one pair) X and Y to X == Y.

GNU Sed, 33

Die Punktzahl enthält +2 für -rnzu sedierende Optionen.

Dies ist fast ein direkter Port von @ FryAmTheEggmans Retina-Antwort :

:
s/(\w)(.*,.*)\1/\2/i
t
/\w/Q1

Ideone.

Perl, 34 33 + 1 = 34 Bytes

s/(.)(.*,.*)\1/$2/i?redo:say!/\w/

Benötigt die -nFlagge und die freie -M5.010| -E:

$ perl -M5.010 -ne's/(.)(.*,.*)\1/$2/i?redo:say!/\w/' <<< 'hello, lloeh'
1

Wie es funktioniert:

                                   # '-n' make a implicit while loop around the code
 s/(.)(.*,.*)\1/$2/i               # Remove a letter that occurs on both sides of the comma.
                    ?
                     redo:         # Redo is a glorified goto statement that goes to the top of the while loop
                          say!/\w/ # Check to see if any letter is left

Vielen Dank an msh210 für den Vorschlag, mit ternären Operatoren ein Byte zu sparen

Baloch Gyr , 9 Bytes

{ṇ₁cḷ}ᵐpᵈ

Probieren Sie es online!

Wahrheits- / Falschausgabe wird durch Prädikat Erfolg / Misserfolg erreicht, dies ist Brachylog.

Zuvor wurde ein Byte mit gespeichert, cṇ₁cḷḍanstatt {ṇ₁cḷ}ᵐunter der Annahme, dass die beiden Eingabezeichenfolgen die gleiche Länge minus Leerzeichen haben, aber ich erkannte, dass es dort erfolgreich sein würde, wo es fehlschlagen sollte Ah Hass, haha.

{    }ᵐ      For both strings in the input,
 ṇ₁          split on spaces,
   c         concatenate,
    ḷ        and lowercase.
       pᵈ    The strings are permutations of each other.

PHP, 109 94 Bytes

function f($x){return str_split((trim($x));}function g($x,$y){return array_diff(f($x),f($y));}

Blech, die beiden bringen function/returnmich hier um.

Gibt die Differenz zwischen zwei stringEingaben als arrayZeichen zurück. PHP hält es für []falsch, die returnAnforderungen zu erfüllen.

Bash + GNU-Dienstprogramme, 51

f()(fold -1<<<${@^^}|sort)
f $1|diff -qBw - <(f $2)

• Definieren Sie eine Funktion, f()die:
  • ${@^^} wandelt alle Parameter in Großbuchstaben um
  • fold -1 Teilt Zeichen auf - eines pro Zeile
  • sorts Zeilen
• Rufen Sie diffmit -qauf, um die vollständige Diff-Ausgabe zu unterdrücken und -BwLeerraumänderungen zu ignorieren

Pyke (Commit 30, nicht konkurrenzfähig), 9 Bytes

Fl1dk:S)q

Erläuterung:

F      )  -  for _ in eval_or_not(input())
 l1       -     ^.lower()
   dk:    -    ^.replace(" ", "")
      S   -   sorted(^)
        q - ^==^

Mathematica, 77 76 Bytes

StringMatchQ[##,IgnoreCase->1>0]&@@(""<>Sort[Characters@#/." "->""]&/@{##})&

Der erste Teil ist eigentlich eine meiner Antworten auf eine andere Frage!

Pike, 54 112 109 109 96 Bytes

#define a(x) sort((array)replace(lower_case(x)," ",""))
int s(mixed i){return a(i[0])==a(i[1]);}

mixedzufällig kürzer als array(string).

sGibt zurück, 1ob es sich bei den Argumenten um Anagramme handelt.

Q, 25 Bytes

f:{~/{x@<x:x@&~^x:_x}'x}

ANMERKUNG: Zählen Sie den Funktionsnamen f, um die Tests zu erleichtern (als Lambda können 2 Bytes dekrementiert werden).

Lesbare Version

Übereinstimmung über {aufsteigend nicht null niedriger x} jedes x

{.. x ..} is an anonymous function with arg x
_x        lowers string x
&~^x      where not null x (space is considered null)
x@..      selects elements of x according to indexes .. 
<x        ascending indexes of x (not values). Ex <"cab" is 1 2 0
x@<x      ascending values of x (x at ascending indexes of x)
~         match (diad function). Ex "one"~"one" is true
f'..      applies function f for each argument ..
f/..      applies function f over elements of sequence (fold)

Prüfung

f("Lynn";"Nyl N")                       
f("Digital Trauma";"Tau Digital Arm")   
f("Sp3000";"P S 3000")                  
f("Manage Trash So";"Those anagrams")   
f("Calvins Hobbies";"Helka Homba")      
f("Android";"rains odd")                
f("In between days";"bayed entwine")    
f("Code golf";"cod elf got")    

erzeugt (1b = wahr, 0b = falsch)

1b
1b
1b
1b
0b
0b
0b
0b

Über Q

Von kx.com entwickelte Allzwecksprache (APL-Derivat, spezialisiert auf Datenverarbeitung). Kostenlose voll funktionsfähige Testversion für Windows / Linux / MacOS.

APL, 31 Zeichen

{≡/{x[⍋x←('.'⎕R'\u0')⍵~' ']}¨⍵}

So verwendet werden:

    {≡/{x[⍋x←('.'⎕R'\u0')⍵~' ']}¨⍵}'Sp3000' 'P S 3000' 
1

Auf Englisch:

• { ... }¨⍵: für jedes der beiden Elemente des Arguments
• x←('.'⎕R'\u0')⍵~' ': transformiere den String ohne Leerzeichen in Großbuchstaben (unter Verwendung einer Regex ...) und weise das temporäre Ergebnis zu x
• x[⍋x]: sortiere x
• ≡/: Vergleichen Sie die beiden Ergebnisse der Sortierung: Wenn sie übereinstimmen, geben Sie 1 zurück.

Java, 218 Bytes

Zum ersten Mal habe ich Java geschrieben ...

Golf gespielt:

import java.util.Arrays;boolean M(String a,String b){char[]A=a.toUpperCase().replace(" ","").toCharArray();char[]B=b.toUpperCase().replace(" ","").toCharArray();Arrays.sort(A);Arrays.sort(B);return Arrays.equals(A,B);}

Ungolfed:

import java.util.Arrays;
public class ManageTrashSo {
    public boolean M(String a, String b) {
    char[] A = a.toUpperCase().replace(" ", "").toCharArray();
    char[] B = b.toUpperCase().replace(" ", "").toCharArray();
    Arrays.sort(A);
    Arrays.sort(B);
    return Arrays.equals(A, B);
   }
}

Testen:

    ManageTrashSo manageTrashSo = new ManageTrashSo();

    //True
    System.out.println(manageTrashSo.M("Lynn", "Nyl N"));
    System.out.println(manageTrashSo.M("Digital Trauma", "Tau Digital Arm"));

    //False
    System.out.println(manageTrashSo.M("Android", "rains odd"));
    System.out.println(manageTrashSo.M("In between days", "bayed entwine"));

Japt , 10 Bytes

v á øVrS v

Versuch es

Ruby, 50 Bytes

def f;gets.upcase.chars.sort.join.strip;end
p f==f

Schreiben f=->{...}und f[]==f[]ist genauso lang. :(

PowerShell, 81 Byte

param([char[]]$a,[char[]]$b)-join($a-replace' '|sort)-eq-join($b-replace' '|sort)

Eine leichte Umschreibung von meiner Antwort auf die verknüpfte Anagram-Herausforderung.

Übernimmt Eingaben als Zeichen-Arrays, führt eine -replaceOperation zum Entfernen von Leerzeichen aus, sortsortiert sie (alphabetisch, nicht nach ASCII-Wert) und setzt sie dann -joinwieder in eine Zeichenfolge um. In -eqPowerShell wird standardmäßig nicht zwischen Groß- und Kleinschreibung unterschieden, aber hier muss dies für Zeichenfolgen durchgeführt werden, da dies [char]'a'nicht gleich ist [char]'A', daher der Grund für -join.

Perl, 35 Bytes

Fügen Sie +1 für -p

Etwas missbräuchlich, da es davon abhängt, welches Programm auf der Kommandozeile angegeben wird.

perl -pe'<>=~s%\S%*_=s/$&//i?_:0%reg;$_=!//'

Geben Sie dann die Zeichenfolgen als 2 aufeinanderfolgende Zeilen auf STDIN

Eine sehr missbräuchliche Lösung sind 30 Bytes:

perl -ne'<>=~s%\w%1/!s/$&//i%reg;1/!//'

Dies stürzt ab, wenn die Zeichenfolgen keine Anagramme sind, und gibt daher aus Sicht der Shell einen falschen Exit-Code aus. Es gibt auch Müll auf STDERR für diesen Fall. Wenn es sich bei den Zeichenfolgen um Anagramme handelt, ist das Programm still und gibt einen "wahren" Exit-Code aus

PHP , 89 Bytes

for(;$i++<2;)$r[]=count_chars(join(explode(" ",strtolower($argv[$i]))));echo$r[0]==$r[1];

Probieren Sie es online!

PHP , 94 Bytes

for(;$i++<2;sort($x),$r[]=trim(join($x)))$x=str_split(strtolower($argv[$i]));echo$r[0]==$r[1];

Probieren Sie es online!

Excel VBA, 122 Bytes

Anonymes VBE-Sofortfenster Funktion, die Eingaben aus dem Bereich [A1:B1]und Ausgaben in das VBE-Sofortfenster übernimmt

a=Replace([A1]," ",""):b=Replace([B1]," ",""):For i=1To Len(a):b=Replace(b,Mid(a,i,1),"|",,1,1):Next:?b=String(len(a),"|")

C #, 378 Bytes

Ich brauche ein Handicap !!

https://dotnetfiddle.net/FNDt0E

using System;
using System.Linq;
using System.Text;

public class Program
{

    public static void Main()
    {
        var l = "Hello World";

        var r = "Red Who Loll";

        var y = new Func<string,string>(s => new String(s.ToLower().Replace(" ","").OrderBy(v => v).ToArray()));
        var z = new Func<string,string,Func<string,string>,bool>((w,x,f) => f(w) == f(x));
        var o = z(l, r, y);


        Console.WriteLine("{0} & {1} are anagram: {2}",l, r, o);


                Console.WriteLine("C#, {0} bytes", Encoding.Unicode.GetByteCount(@"var y = new Func<string,string>(s => new String(s.ToLower().Replace("" "","""").OrderBy(v => v).ToArray()));
    var z = new Func<string,string,Func<string,string>,bool>((w,x,f) => f(w) == f(x));"));

    }

}