PPCG在某种程度上已经成为一种传统，一些用户通过字谜（通过重新排序旧字母而形成的新名称）临时更改其名称。

有时很难找出谁是谁。我可以使用一个程序或函数来判断两个短语是否是彼此的字谜。

挑战

程序或函数应该采用两个字符串，并且如果它们彼此是字谜，则应产生真实的结果，否则应为虚假的。

规则

• 输入将仅包含字母（ASCII 65至90和97至122），数字（ASCII 48至57）或空格（ASCII 32）。
• 字谜关系与大小写无关。所以“手臂”和“ RAM”是字谜。
• 空格也不计算在内。所以“键盘”和“吠叫哟”
• 允许所有内置
• 输入格式灵活（两个字符串，两个字符串的数组，包含两个短语的字符串以及合适的分隔符...）

代码高尔夫。最少的字节数获胜。

测试用例

真相：

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

在这里尝试！

将两个字符串的列表作为输入。

说明

qFmSr-d; 0Q＃Q =输入

  m Q＃将d作为lambda变量映射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编写的。它节省了两个字节，但是旧方法看起来很整洁：

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个字节。1字节关闭与currying（由@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岁

得分包括+2的-rnsed选项。

这几乎是@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

感谢msh210建议使用三元运算符保存一个字节

Baloch Gyr，9个字节

{ṇ₁cḷ}ᵐpᵈ

在线尝试！

真实/错误的输出是通过谓词成功/失败来实现的，这就是Brachylog。

以前使用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));}

布莱奇，两个人function/return在这里杀了我。

以字符的形式返回两个string输入之间的差array。PHP认为是[]虚假的，可以满足return要求。

Bash + GNU实用程序，51

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

• 定义一个函数f()：
  • ${@^^} 将所有参数转换为大写
  • fold -1 分割字符-每行一个
  • sorts线
• 打电话diff与-q打压完全两种输出，并-Bw忽略空白的变化

Pyke（提交30，非竞争），9个字节

Fl1dk:S)q

说明：

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

Mathematica，77 76字节

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

第一部分实际上是我对另一个问题的答案之一！

派克，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：以方便测试（作为lambda，我们可以减少2个字节）

可读版本

在每个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

kx.com开发的通用语言（APL派生，专门用于数据处理）。适用于Windows / Linux / MacOS的免费完整功能评估版。

APL，31个字符

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

如此使用：

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

用英语：

• { ... }¨⍵：对于参数的两个元素中的每个元素
• x←('.'⎕R'\u0')⍵~' '：将不带空格的字符串转换为大写（使用正则表达式...），并将临时结果分配给 x
• x[⍋x]：排序x
• ≡/：比较排序的两个结果：如果匹配，则返回1。

Java，218字节

我第一次写过Java ...

打高尔夫球：

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

取消高尔夫：

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

测试：

    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字节

v á øVrS v

试试吧

Ruby，50个字节

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

写作f=->{...}和f[]==f[]一样长。:(

PowerShell，81个字节

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

我对链接的Anagram挑战的回答略作重写。

将输入作为字符数组，执行-replace删除空格的操作，将sort其（按字母顺序而不是按ASCII值排序），然后将-join其返回字符串。-eq在默认情况下，PowerShell中的in不区分大小写，但此处必须在字符串上执行[char]'a'（不等于）[char]'A'，因此是原因-join。

Perl，35个字节

包括+1 -p

有点辱骂，因为它取决于命令行上给出的程序。

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

然后在STDIN上将字符串作为2个连续行

一个非常滥用的解决方案是30个字节：

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

如果字符串不是anagram，则会崩溃，因此从外壳程序的角度给出错误的退出代码。在这种情况下，它还会在STDERR上产生垃圾。如果字符串是字谜，程序将保持沉默并给出“ true”退出代码

PHP，89字节

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

在线尝试！

PHP，94字节

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

在线尝试！

Excel VBA，122字节

匿名VBE立即窗口该功能将从范围输入[A1:B1]并输出到VBE立即窗口

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个字节

我需要让分！

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

    }

}