PPCGでは、一部のユーザーがアナグラム（古い名前の文字を並べ替えることによって形成された新しい名前）によって一時的に名前を変更するのがやや伝統になっています。

誰が誰であるかを見つけることが困難になる場合があります。プログラムまたは関数を使用して、2つのフレーズが互いにアナグラムであるかどうかを判断できます。

チャレンジ

プログラムまたは関数は、2つの文字列を取り、それらが相互のアナグラムである場合は真実の結果を生成し、そうでない場合は偽の結果を生成する必要があります。

ルール

• 入力には、文字（ASCII 65〜90および97〜122）、数字（ASCII 48〜57）、またはスペース（ASCII 32）のみが含まれます。
• アナグラム関係は、ケースに依存しません。したがって、「アーム」と「RAM」はアナグラムです。
• スペースもカウントされません。「キーボード」と「バークドヨー」はアナグラムです
• 許可されているすべての組み込み
• 入力形式は柔軟です（2つの文字列、2つの文字列の配列、適切な区切り文字で両方のフレーズを含む文字列...）

コードゴルフ。最少バイトが勝ちます。

テストケース

真実：

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

偽物

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

05AB1E、9 8バイト

コード：

lvyð-{}Q

説明：

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

オンラインでお試しください！

網膜、25

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

オンラインでお試しください！さらに、変更された複数行バージョンを実行できます。

コンマの前の文字とコンマの後の一致を削除します。文字が残っていない場合、それはアナグラムでした。

Pyth、11 10バイト

@FryAmTheEggmanの力を教えてくれてありがとう;！

qFmSr-d;0Q

ここで試してみてください！

2つの文字列のリストを入力として受け取ります。

説明

qFmSr-d; 0Q＃Q =入力

  m Q＃ラムダ変数としてdを使用してQをマップ
     -d; ＃文字列からスペースをフィルタリング
    r 0＃小文字に変換
   S＃文字列内のすべての文字をソートします
qF＃結果のリストを展開し、等価性をチェックする

Python 2、63 61バイト

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

実際には、n個の引数を取り、それらのすべてのnが相互回文であるかどうかを判別する匿名関数です！f("Lynn", "Nyl N")を返しますTrue。

このセット理解のトリックはxnorによるものです。2バイト節約しましたが、古いアプローチは非常にきれいに見えました。

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

ゼリー、12バイト

ḟ€⁶O&95Ṣ€QLḂ

オンラインでお試しください！

使い方

ḟ€⁶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).

代替バージョン、非競合（9バイト）

Jellyの大文字のアトムにはバグがあり、Jellyにはリストをテストして等価性を確認する機能がまだ組み込まれていませんでした...

ḟ⁶ŒuṢµ€⁼/

オンラインでお試しください！

使い方

ḟ⁶Œ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バイト

3 @FryAmTheEggmanのおかげで2バイトが削除されました

{lelS-$}2*=

オンラインでお試しください！

{      }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バイト

@ӍѲꝆΛҐӍΛПҒЦꝆに感謝します。（カリー化とオフ1バイト指摘により@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バイト

2:"jkXvS]X=

編集（2016年5月20日）言語の最近の変更により、リンクのコードはのXz代わりに使用さXvれます。

オンラインでお試しください！

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

真剣に、11 9バイト

2`,ùSô`n=

オンラインでお試しください！

誰もが同じアルゴリズムを使用しているようです。ここで再びです。

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

編集：文字列ではソートが正しく機能し、strip（）が機能するようにスペースを前にソートします。

C、165バイト

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

読みやすく、作業コンテキストで、

#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バイト

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

コマンドライン引数として入力し、リターンコードとして出力します。

for構文は、このバッシュ非互換になります。

[               # 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バイト

N®v ¬n ¬xÃä¥

オンラインでテストしてください！

使い方

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

スコアには-rn、sedのオプションの+2が含まれます。

これはほとんど@FryAmTheEggmanのRetina回答の直接ポートです。

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

イデオン。

Perl、34 33 + 1 = 34バイト

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

-nフラグと無料が必要です-M5.010| -E：

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

使い方：

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

三項演算子を使用して1バイトを節約することを提案してくれたmsh210に感謝

Baloch Gyr、9バイト

{ṇ₁cḷ}ᵐpᵈ

オンラインでお試しください！

真実/偽の出力は、述語の成功/失敗によって実現されます。これはBrachylogです。

以前は、2つの入力文字列が同じ長さから空白文字を引いたものであるという仮定ではcṇ₁cḷḍなく、を使用してバイトを保存しました{ṇ₁cḷ}ᵐが、失敗する場所で成功することに気付きました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バイト

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

Blech、2人function/returnがここで私を殺している。

2つのstring入力の差arrayを文字として返します。PHPは[]偽装を考慮し、return要件を満たします。

Bash + GNUユーティリティ、51

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

• 次の機能f()を定義します。
  • ${@^^} すべてのパラメーターを大文字に変換します
  • fold -1 文字を分割-1行に1つ
  • sorts行
• diffwith -qを呼び出して、完全なdiff出力を抑制し、-Bw空白の変更を無視します

Pyke（コミット30、非競合）、9バイト

Fl1dk:S)q

説明：

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

Mathematica 77 76 bytes

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

最初の部分は、実際には別の質問に対する私の答えの1つです！

パイク、54 112 109 109 96バイト

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

mixed たまたま短い array(string).

s1引数がアナグラムの場合に戻ります。

Q、25バイト

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

注-カウントには関数名fが含まれます：テストを容易にするため (as lambda we can decrement 2 Bytes)

読みやすいバージョン

{null lower x以外の昇順}の各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)

テスト

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

生成（1b = true、0b = false）

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

Qについて

General-purpose language (APL derivative, specialized in data processing) developed by kx.com. Free full functional evaluation version for Windows/Linux/MacOS.

APL, 31 chars

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

To be used so:

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

In English:

• { ... }¨⍵: for each of the two elements of the argument
• x←('.'⎕R'\u0')⍵~' ': transform to uppercase (using a regex...) the string without the spaces and assign the temporary result to x
• x[⍋x]: sort x
• ≡/: compare the two results of the sorting: if they match, return 1.

Java, 218 Bytes

First time I've ever written Java...

Golfed:

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

Testing:

    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

Try it

Ruby, 50 bytes

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

Writing f=->{...} and f[]==f[] is just as long. :(

PowerShell, 81 bytes

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

A slight rewrite of my answer on the linked Anagram challenge.

Takes input as char-arrays, performs a -replace operation to remove spaces, sorts them (which sorts alphabetically, not by ASCII value), then -joins them back into a string. The -eq in PowerShell is by default case-insensitive, but here it must be performed on strings, as [char]'a' is not equal to [char]'A', hence the reason for -join.

Perl, 35 bytes

Include +1 for -p

Somewhat abusive since it depends on the program being given on the commandline.

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

Then give the strings as 2 consecutive lines on STDIN

A very abusive solution is 30 bytes:

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

This crashes if the strings are not anagrams and therefore gives a false exit code from the point of view of the shell. It also gives garbage on STDERR for that case. If the strings are anagrams the program is silent and gives a "true" exit code

PHP, 89 bytes

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

Try it online!

PHP, 94 bytes

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

Try it online!

Excel VBA, 122 Bytes

Anonymous VBE immediate window Function that takes input from range [A1:B1] and outputs to the VBE immediate window

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

I need a 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));"));

    }

}