Nó trở thành một phần của truyền thống trong PPCG khi một số người dùng tạm thời thay đổi tên của họ bằng một đảo chữ cái (một tên mới được hình thành bằng cách sắp xếp lại các chữ cái cũ).

Đôi khi rất khó để tìm ra ai là ai. Tôi có thể sử dụng một chương trình hoặc chức năng để biết nếu hai cụm từ là đảo chữ của nhau.

Các thách thức

Chương trình hoặc hàm nên lấy hai chuỗi và tạo ra kết quả trung thực nếu chúng là đảo chữ của nhau và giả mạo khác.

Quy tắc

• Đầu vào sẽ chỉ chứa các chữ cái (ASCII 65 đến 90 và 97 đến 122), chữ số (ASCII 48 đến 57) hoặc dấu cách (ASCII 32).
• Các mối quan hệ đảo chữ là độc lập của trường hợp. Vì vậy, "Arm" và "RAM" là đảo chữ cái.
• Không gian cũng không được tính. Vì vậy, "bàn phím" và "Barked Yo" là đảo chữ
• Tất cả nội dung cho phép
• Định dạng đầu vào rất linh hoạt (hai chuỗi, một mảng gồm hai chuỗi, một chuỗi chứa cả hai cụm từ có dấu phân cách phù hợp ...)

Mã golf. Ít byte nhất sẽ thắng.

Các trường hợp thử nghiệm

Sự thật:

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

Giả

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

05AB1E , 9 8 byte

Mã số:

lvyð-{}Q

Giải trình:

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

Hãy thử trực tuyến!

Võng mạc, 25

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

Hãy thử trực tuyến! Ngoài ra, bạn có thể chạy phiên bản nhiều dòng được sửa đổi .

Xóa các chữ cái trước dấu phẩy cùng với các kết quả khớp của chúng sau dấu phẩy. Nếu chúng ta không còn chữ nào thì đó là đảo chữ cái.

Bình thường, 11 10 byte

Cảm ơn @FryAmTheEggman đã dạy tôi sức mạnh của ;!

qFmSr-d;0Q

Hãy thử nó ở đây!

Lấy danh sách hai chuỗi làm đầu vào.

Giải trình

qFmSr-d; 0Q # Q = đầu vào

  m Q # map Q với d là biến lambda
     -d; # không gian lọc ra khỏi chuỗi
    r 0 # chuyển thành chữ thường
   S # sắp xếp tất cả các ký tự trong chuỗi
qF # Mở ra danh sách kết quả và kiểm tra sự bình đẳng

Python 2, 63 61 byte

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

Trên thực tế, một hàm ẩn danh nhận n đối số và xác định xem tất cả n trong số chúng có phải là palindromes lẫn nhau không! f("Lynn", "Nyl N")trả lại True.

Thủ thuật hiểu được thiết lập này là bởi xnor. Nó đã lưu hai byte, nhưng cách tiếp cận cũ trông rất gọn gàng:

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

Thạch, 12 byte

ḟ€⁶O&95Ṣ€QLḂ

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

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

Phiên bản thay thế, không cạnh tranh (9 byte)

Nguyên tử chữ hoa của Jelly có một lỗi và Jelly vẫn chưa tích hợp sẵn để kiểm tra danh sách cho sự bình đẳng ...

ḟ⁶ŒuṢµ€⁼/

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

ḟ⁶Œ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 byte

3 2 byte bị xóa nhờ @FryAmTheEggman

{lelS-$}2*=

Hãy thử trực tuyến!

{      }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 byte

Tắt 1 byte cảm ơn @ ӍѲꝆΛҐӍΛNETҒЦꝆ . Tắt 1 byte với currying (được chỉ ra bởi @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 byte

2:"jkXvS]X=

EDIT (ngày 20 tháng 5 năm 2016) Mã trong liên kết sử dụng Xz thay vì Xv, do những thay đổi gần đây trong ngôn ngữ.

Hãy thử trực tuyến!

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

Nghiêm túc, 11 9 byte

2`,ùSô`n=

Dùng thử trực tuyến!

Mọi người dường như đang sử dụng cùng một thuật toán. Đây là một lần nữa.

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

Chỉnh sửa: sắp xếp nhận ra hoạt động chính xác trên chuỗi và sắp xếp khoảng trắng ở phía trước để dải () sẽ hoạt động.

C, 165 byte

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

Có thể đọc và trong bối cảnh làm việc,

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

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

Nhập dưới dạng đối số dòng lệnh, đầu ra dưới dạng mã trả về.

Các forcú pháp làm cho điều này Bash-không tương thích.

[               # 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 byte

N®v ¬n ¬xÃä¥

Kiểm tra nó trực tuyến!

Làm thế nào nó hoạt động

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

Điểm bao gồm +2 cho -rn các tùy chọn để sed.

Đây gần như là một cổng trực tiếp của câu trả lời Retina của @ FryAmTheEggman :

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

Ideone.

Perl, 34 33 + 1 = 34 byte

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

Yêu cầu -ncờ và miễn phí -M5.010| -E:

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

Làm thế nào nó hoạt động:

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

Cảm ơn msh210 đã đề xuất sử dụng toán tử ternary để lưu một byte

Baloch Gyr , 9 byte

{ṇ₁cḷ}ᵐpᵈ

Hãy thử trực tuyến!

Sản lượng thật / giả được đạt được thông qua thành công / thất bại vị ngữ, đây là Brachylog.

Trước đây đã lưu một byte bằng cách sử dụng cṇ₁cḷḍthay vì {ṇ₁cḷ}ᵐtheo giả định rằng hai chuỗi đầu vào sẽ có cùng độ dài trừ đi khoảng trắng, nhưng tôi nhận ra rằng nó sẽ thành công khi thất bại 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 byte

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

Blech, hai người function/returnđang giết tôi ở đây.

Trả về sự khác biệt giữa hai stringđầu vào dưới dạng một arrayký tự. PHP xem xét sai []lệch, đáp ứng các returnyêu cầu.

Tiện ích Bash + GNU, 51

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

• Xác định hàm f():
  • ${@^^} chuyển đổi tất cả các tham số sang chữ hoa
  • fold -1 chia chars - một trên mỗi dòng
  • sortdòng s
• gọi diffvới -qsản lượng diff đầy đủ đàn áp và -Bwbỏ qua khoảng trắng thay đổi

Pyke (cam kết 30, không cạnh tranh), 9 byte

Fl1dk:S)q

Giải trình:

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

Toán học, 77 76 byte

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

Phần đầu tiên thực sự là một trong những câu trả lời của tôi cho một câu hỏi khác!

Pike, 54 112 109 109 96 byte

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

mixedxảy ra ngắn hơn array(string).

strả về 1nếu đối số của nó là đảo chữ.

Q, 25 byte

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

LƯU Ý.- đếm bao gồm tên hàm f: để tạo điều kiện kiểm tra (vì lambda chúng ta có thể giảm 2 byte)

Phiên bản dễ đọc

khớp với {tăng dần không null thấp hơn x} mỗi 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)

Kiểm tra

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

tạo (1b = true, 0b = false)

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

Về Q

Ngôn ngữ mục đích chung (phái sinh APL, chuyên xử lý dữ liệu) được phát triển bởi kx.com. Phiên bản đánh giá chức năng đầy đủ miễn phí cho Windows / Linux / MacOS.

APL, 31 ký tự

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

Được sử dụng như vậy:

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

Bằng tiếng Anh:

• { ... }¨⍵: cho mỗi hai yếu tố của đối số
• x←('.'⎕R'\u0')⍵~' ': chuyển đổi thành chữ hoa (sử dụng biểu thức chính quy ...) chuỗi không có khoảng trắng và gán kết quả tạm thời cho x
• x[⍋x]: sắp xếp x
• ≡/: so sánh hai kết quả sắp xếp: nếu chúng khớp, trả về 1.

Java, 218 byte

Lần đầu tiên tôi từng viết Java ...

Chơi gôn

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

Ung dung:

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

Kiểm tra:

    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 byte

v á øVrS v

Thử nó

Ruby, 50 byte

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

Viết f=->{...}và f[]==f[]chỉ là dài. :

PowerShell, 81 byte

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

Viết lại câu trả lời của tôi về thử thách Anagram được liên kết.

Đưa đầu vào dưới dạng các mảng char, thực hiện một -replacethao tác để loại bỏ khoảng trắng, sortchúng (sắp xếp theo thứ tự abc, không theo giá trị ASCII), sau đó -joinđưa chúng trở lại thành một chuỗi. Các -eqtrong PowerShell là do case-insensitive mặc định, nhưng ở đây nó phải được thực hiện trên dây, như [char]'a'không phải là tương đương với [char]'A', vì thế mà lý do -join.

Perl, 35 byte

Bao gồm +1 cho -p

Hơi lạm dụng vì nó phụ thuộc vào chương trình được đưa ra trên dòng lệnh.

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

Sau đó cho các chuỗi là 2 dòng liên tiếp trên STDIN

Một giải pháp rất lạm dụng là 30 byte:

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

Điều này gặp sự cố nếu các chuỗi không phải là đảo chữ cái và do đó cung cấp mã thoát sai từ quan điểm của trình bao. Nó cũng cung cấp rác trên STDERR cho trường hợp đó. Nếu các chuỗi là đảo chữ, chương trình sẽ im lặng và cung cấp mã thoát "đúng"

PHP , 89 byte

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

Hãy thử trực tuyến!

PHP , 94 byte

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

Hãy thử trực tuyến!

VBA Excel, 122 byte

Cửa sổ ngay lập tức VBE ẩn danh Chức năng nhận đầu vào từ phạm vi [A1:B1]và đầu ra đến cửa sổ ngay lập tức 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 byte

Tôi cần một người tàn tật !!

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

    }

}