Hai từ là đẳng cấu nếu chúng có cùng kiểu lặp lại chữ cái. Ví dụ, cả hai ESTATEvà DUELEDcó mẫuabcdca

ESTATE
DUELED

abcdca

bởi vì chữ 1 và 6 giống nhau, chữ 3 và 5 giống nhau và không có gì khác. Điều này cũng có nghĩa là các từ có liên quan bởi một mật mã thay thế, ở đây với sự phù hợp E <-> D, S <-> U, T <-> E, A <-> L.

Viết mã có hai từ và kiểm tra xem chúng có phải là đẳng cấu không. Ít byte nhất sẽ thắng.

Đầu vào: Hai chuỗi ký tự không trống A..Z. Nếu bạn muốn, bạn có thể lấy chúng làm tập hợp của hai chuỗi hoặc dưới dạng một chuỗi có dấu phân cách.

Đầu ra: Một giá trị Truthy nhất quán cho các cặp là đẳng cấu và giá trị Falsey nhất quán nếu không. Các chuỗi có độ dài khác nhau là các đầu vào hợp lệ không bao giờ là đẳng cấu.

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

Thật:

ESTATE DUELED
DUELED ESTATE
XXX YYY
CBAABC DEFFED
RAMBUNCTIOUSLY THERMODYNAMICS
DISCRIMINATIVE SIMPLIFICATION

Sai trái:

SEE SAW
ANTS PANTS
BANANA SERENE
BANANA SENSES
AB CC
XXY XYY
ABCBACCBA ABCBACCAB
ABAB CD

Hãy thêm nhiều trường hợp thử nghiệm mà bạn thấy hữu ích.

Bảng xếp hạng

Dưới đây là Stack Snippet để tạo cả bảng xếp hạng thông thường và tổng quan về người chiến thắng theo ngôn ngữ.

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

# Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

# Ruby, <s>104</s> <s>101</s> 96 bytes

var QUESTION_ID=50472;function answersUrl(e){return"https://api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),e.has_more?getAnswers():process()}})}function shouldHaveHeading(e){var a=!1,r=e.body_markdown.split("\n");try{a|=/^#/.test(e.body_markdown),a|=["-","="].indexOf(r[1][0])>-1,a&=LANGUAGE_REG.test(e.body_markdown)}catch(n){}return a}function shouldHaveScore(e){var a=!1;try{a|=SIZE_REG.test(e.body_markdown.split("\n")[0])}catch(r){}return a}function getAuthorName(e){return e.owner.display_name}function process(){answers=answers.filter(shouldHaveScore).filter(shouldHaveHeading),answers.sort(function(e,a){var r=+(e.body_markdown.split("\n")[0].match(SIZE_REG)||[1/0])[0],n=+(a.body_markdown.split("\n")[0].match(SIZE_REG)||[1/0])[0];return r-n});var e={},a=1,r=null,n=1;answers.forEach(function(s){var t=s.body_markdown.split("\n")[0],o=jQuery("#answer-template").html(),l=(t.match(NUMBER_REG)[0],(t.match(SIZE_REG)||[0])[0]),c=t.match(LANGUAGE_REG)[1],i=getAuthorName(s);l!=r&&(n=a),r=l,++a,o=o.replace("{{PLACE}}",n+".").replace("{{NAME}}",i).replace("{{LANGUAGE}}",c).replace("{{SIZE}}",l).replace("{{LINK}}",s.share_link),o=jQuery(o),jQuery("#answers").append(o),e[c]=e[c]||{lang:c,user:i,size:l,link:s.share_link}});var s=[];for(var t in e)e.hasOwnProperty(t)&&s.push(e[t]);s.sort(function(e,a){return e.lang>a.lang?1:e.lang<a.lang?-1:0});for(var o=0;o<s.length;++o){var l=jQuery("#language-template").html(),t=s[o];l=l.replace("{{LANGUAGE}}",t.lang).replace("{{NAME}}",t.user).replace("{{SIZE}}",t.size).replace("{{LINK}}",t.link),l=jQuery(l),jQuery("#languages").append(l)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",answers=[],page=1;getAnswers();var SIZE_REG=/\d+(?=[^\d&]*(?:&lt;(?:s&gt;[^&]*&lt;\/s&gt;|[^&]+&gt;)[^\d&]*)*$)/,NUMBER_REG=/\d+/,LANGUAGE_REG=/^#*\s*([^,]+)/;

body{text-align:left!important}#answer-list,#language-list{padding:10px;width:290px;float:left}table thead{font-weight:700}table td{padding:5px}

<script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script><link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"><div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr></thead> <tbody id="answers"> </tbody> </table></div><div id="language-list"> <h2>Winners by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr></thead> <tbody id="languages"> </tbody> </table></div><table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody></table><table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr></tbody></table>

J, 4 byte

-:&=

Sử dụng

   'THERMODYNAMICS' (-:&=) 'RAMBUNCTIOUSLY'  NB. parens are optional
1 

Giải trình

• = với 1 đối số tạo ra một bảng bằng so sánh các phần tử của đầu vào và nub của nó.

  ='ESTATE' gives the binary matrix
  
  = | E S T A T E    
  --+------------
  E | 1 0 0 0 0 1
  S | 0 1 0 0 0 0
  T | 0 0 1 0 1 0
  A | 0 0 0 1 0 0
  

• -:với 2 đối số kiểm tra sự bằng nhau của chúng (giống như ==thường làm). Điều này làm việc cho các ma trận kích thước khác nhau (hoặc thậm chí các loại khác nhau) quá.

• f&gáp dụng g cho cả hai đầu vào riêng biệt và sau đó áp dụng f cho hai kết quả cùng nhau x f&g y == f(g(x), g(y)).

• Vì vậy, trong trường hợp của chúng tôi, chúng tôi so sánh hai bảng bằng.

Hãy thử trực tuyến tại đây.

K, 5 byte

Điều này có một giải pháp thanh lịch thú vị trong K!

~/=:'

Toán tử "nhóm" (đơn âm =) tạo ra chính xác chữ ký mà chúng ta muốn cho từ đồng phân từ; tập hợp các vectơ của các chỉ số của từng phần tử của một vectơ, với các nhóm được sắp xếp theo ngoại hình:

  ="ABBAC"
(0 3
 1 2
 ,4)

  ="DCCDF"
(0 3
 1 2
 ,4)

Lấy một cặp chuỗi làm vectơ, chúng ta chỉ cần áp dụng nhóm cho từng phần tử ( =:') và sau đó giảm với "khớp" ( ~), toán tử đẳng thức sâu:

  ~/=:'("RAMBUNCTIOUSLY";"THERMODYNAMICS")
1
  ~/=:'("BANANA";"SERENE")
0

Python 2, 41 byte

f=lambda a,b:map(a.find,a)==map(b.find,b)

CJam, 9 byte

r_f#r_f#=

In 1nếu các từ là đẳng cấu và 0nếu không.

Hãy thử trực tuyến trong trình thông dịch CJam .

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

r    e# Read a whitespace separated token from STDIN.
_    e# Push a copy.
f#   e# Get the indexes of all characters from the first copy in the second.
r_f# e# Repeat for the second word.
=    e# Check for equality.

JavaScript, ES7, 62 55 54 52 51 byte

f=(x,y,g=z=>[for(i of z)z.search(i)]+0)=>g(x)==g(y)

Logic rất đơn giản. Tôi chỉ đơn giản chuyển đổi cả hai đầu vào thành các giá trị chỉ mục ký tự tương ứng của chúng, chuyển đổi mảng đó thành chuỗi và so sánh.

f=(x, y,                  // Create a function named f which takes two arguments x and y
   g=                     // There is a third default argument to f which equals to
     z=>                  // and arrow function which takes argument z
     [                    // Return this array which is created using array comprehension
      for(i of z)         // For each character of z
      z.search(i)         // Use the index of that character in z in place of the character
     ]+0                  // And finally type cast that array to a string
                          // Here, the array elements are automatically joined by a ','
                          // and appended by a 0.
                          // Its funny how JS type casts Array + Number to a string
   )=>                    // Now the body of function f starts
      g(x)==g(y)          // It simply returns if index map of x equals index map of y

Hãy thử đoạn mã trên bằng đoạn trích dưới đây.

f=(x,y,g=z=>[for(i of z)z.search(i)]+0)=>g(x)==g(y)

// for cross browser testing, here is a slightly modified ES5 version of above function

if (!f) {
  function f(x, y) {
    function g(z) {
      var Z = [];
      for (var i = 0; i < z.length; i++) {
        Z[i] = z.search(z[i])
      }
      return Z + 0;
    }
    return g(x) == g(y);
  }
}

B.onclick=function() {
  O.innerHTML = f(D.value, E.value);
  
};

<pre>f(<input id=D />,<input id=E />)</pre><button id=B >Run</button>
<br>
<output id=O />

2 byte được lưu nhờ vào @ edc65

Bash + coreutils, 38

[ `tr $@<<<$1``tr $2 $1<<<$2` = $2$1 ]

Lưu ý rằng chúng tôi đang sử dụng ý tưởng shell thông thường về sự thật / giả dối ở đây - zero có nghĩa là THÀNH CÔNG hoặc TRUE và khác không có nghĩa là lỗi hoặc FALSE:

$ for t in "ESTATE DUELED" "DUELED ESTATE" "XXX YYY" "CBAABC DEFFED" "RAMBUNCTIOUSLY THERMODYNAMICS" "DISCRIMINATIVE SIMPLIFICATION" "SEE SAW" "ANTS PANTS" "BANANA SERENE" "BANANA SENSES" "AB CC" "XXY XYY" "ABCBACCBA ABCBACCAB"; do
> ./isomorph.sh $t
> echo $t $?
> done
ESTATE DUELED 0
DUELED ESTATE 0
XXX YYY 0
CBAABC DEFFED 0
RAMBUNCTIOUSLY THERMODYNAMICS 0
DISCRIMINATIVE SIMPLIFICATION 0
SEE SAW 1
ANTS PANTS 1
BANANA SERENE 1
BANANA SENSES 1
AB CC 1
XXY XYY 1
ABCBACCBA ABCBACCAB 1
$ 

Haskell, 33 29

BIÊN TẬP:

Đây là cách quá muộn, nhưng tôi đã tìm thấy sự cải thiện này bằng cách sử dụng các ứng dụng, được thêm vào khúc dạo đầu vào tháng 3 năm 2015.

s%k=g s==g k
g s=(==)<$>s<*>s

Phiên bản cũ:

s%k=g s==g k
g s=[a==b|a<-s,b<-s]

chức năng kiểm tra là (%)

điều này hoạt động bằng cách tạo cho mỗi chuỗi "bản ghi đẳng thức" của nó: đối với mỗi hai chỉ số ij, nó ghi lại xem chúng có các ký tự bằng nhau hay không. bản ghi được sắp xếp sao cho bản ghi cho hai chỉ số i, j luôn ở cùng một vị trí * và do đó kiểm tra sự bằng nhau của các bản ghi sẽ trả về việc các chuỗi có cùng mẫu hay không.

ví dụ: bản ghi đẳng thức của "ABC" là [1,0,0,0,1,0,0,0,1](1 cho đúng, 0 cho sai) - có Truebất kỳ chỉ số nào được so sánh với chính nó. bất cứ nơi nào khác là sai. (bỏ qua các kiểm tra này có thể hiệu quả hơn, nhưng khó hơn về mặt golf)

* _{nếu các chuỗi có cùng độ dài. mặt khác, nó trả về false chỉ vì các bản ghi có độ dài khác nhau}

Haskell, 45 41 byte

h l=map(`lookup`zip l[1..])l
x!y=h x==h y

Trả về Truehoặc False, ví dụ "ESTATE" ! "DUELED"-> True.

Sử dụng phương pháp map-char-to-First-index như đã thấy trong nhiều câu trả lời khác. Danh sách hiệp hội có ích, bởi vì các mục trước đó át chủ bài. "aba"trở thành [(a,1),(b,2),(a,3)]nơi lookupluôn tìm nạp a-> 1.

Chỉnh sửa: @Mauris tìm thấy 4 byte để lưu.

Brainfuck, 169 168 162 144 140 131 130

Tương thích với bff của Alex Pankratov (trình thông dịch brainfuck được sử dụng trên SPOJ và ideone) và Thomas Cort's BFI (được sử dụng trên Anarchy Golf).

Đầu vào dự kiến ​​là hai chuỗi được phân tách bằng một tab, không có dòng mới sau chuỗi thứ hai. Đầu ra là 1cho các đẳng cấu và 0cho các đồng phân không thuận, thuận tiện cho việc kiểm tra kết quả một cách trực quan, mặc dù không phải là tùy chọn ngắn nhất. ( Cập nhật: phiên bản ngắn hơn với \x01và \x00là đầu ra và \x00là dấu phân cách ở cuối câu trả lời.)

Trình diễn về ideone.

,+
[
  -
  ---------
  >+<
  [
    >>-<
    [
      <
      [
        >+<
        <<<<-<+>>>>>-
      ]
      ++[->+]
      ->+[+<-]
      >[<<<<]
      <
    ]
    <[>+<-]
    +[->+]
    <->
    >>>
  ]
  >
  [
    [[-]<<<<<]
    >>>>
  ]
  <,+
]
>>>+>+
[
  [<->-]
  <[>>>>>]
  <<<<
]
-<[>]
+++++++[<+++++++>-]
<.

Vấn đề này hóa ra là rất tốt cho brainfuck.

Ý tưởng cơ bản với lập chỉ mục là đi ngược từ cuối tiền tố chuỗi hiện tại. Nếu ký tự chưa xảy ra trước đó, chúng ta có thể lấy độ dài của tiền tố chuỗi. Ví dụ:

STATES
123255

Việc lập chỉ mục trong mã thực tế hơi khác nhau nhưng sử dụng cùng một nguyên tắc.

Bố cục bộ nhớ nằm trong các khối 5:

0 0 0 0 0 0 c 0 i p 0 c 0 i p 0 c 0 i p 0 0 0 0

clà viết tắt của ký tự, icho chỉ mục và pcho trước đó (chỉ mục). Khi chuỗi đầu tiên đang được xử lý, tất cả các pvị trí đều bằng không. Ô bên trái của cđược sử dụng để giữ một bản sao của ký tự hiện tại mà chúng ta đang cố gắng tìm chỉ mục của. Các ô ở bên trái của hiện tại iđược sử dụng để giữ một -1điều hướng con trỏ dễ dàng.

Có nhiều điều kiện cần được xem xét cẩn thận. Cuối cùng, chúng tôi kiểm tra các đồng phân bằng cách so sánh các (i,p)cặp và chúng tôi tiếp cận cụm các ô số 0 ở bên trái của (i,p)cặp ngoài cùng bên trái khi và chỉ khi các chuỗi là các đẳng cấu. Dưới đây là phiên bản nhận xét của mã để dễ theo dõi hơn:

,+
[                       while there is input
  -
  ---------
  >+<                   increment char (adjust later)
  [                     if not tab
    >>-<                set navigation flag
    [                   loop to find index
      <                 travel to copy
      [
        >+<             restore char
        <<<<-<+>>>>>-   compare chars and create copy
      ]
      ++[->+]           travel between navigation flags
      ->+[+<-]          increment index by 2 and go back
      >[<<<<]           proceed if not fallen off string
      <                 compare chars
    ]
    <[>+<-]             restore char (or no op)
    +[->+]              go back to navigation flag
    <->                 adjust char
    >>>                 alignment
  ]
  >
  [                     if tab
    [[-]<<<<<]          erase chars and go to beginning
    >>>>                alignment
  ]
  <,+
]
>>>+>+                  check string lengths and start loop
[
  [<->-]                compare indices
  <[>>>>>]              realign if not equal
  <<<<                  proceed
]
-<[>]                   cell to left is zero iff isomorphs
+++++++[<+++++++>-]
<.

Cập nhật:

Đây là một phiên bản in \x01cho các đẳng cấu và \x00cho các dạng không đẳng hình. Đây được cho là một cách giải thích chính xác hơn về Truthy và Falsey cho brainfuck, bởi vì cách thức [và ]công việc. Sự khác biệt duy nhất là ở cuối cùng.

Bổ sung: Bây giờ sử dụng \x00như một dấu phân cách để lưu 10 byte.

+
[
  -
  >+<
  [
    >>-<
    [
      <
      [
        >+<
        <<<<-<+>>>>>-
      ]
      ++[->+]
      ->+[+<-]
      >[<<<<]
      <
    ]
    <[>+<-]
    +[->+]
    <->
    >>>
  ]
  >
  [
    [[-]<<<<<]
    >>>>
  ]
  <,+
]
>>>+>+
[
  [<->-]
  <[>>>>>]
  <<<<
]
-<[>]
<+.

JavaScript (ES6), 62

hVí dụ, sử dụng hàm phụ trợ ánh xạ từng từ vào một mảng chứa vị trí của từng chữ cái trong từ, ví dụ: PASS -> [1,2,3,3]. Trả về true nếu hàm hđược áp dụng hai từ cho kết quả giống nhau.

f=(a,b,h=w=>0+[for(c of(n=k=[],w))k[c]=k[c]||++n])=>h(b)==h(a)

// TEST

;[
// True
 ['ESTATE','DUELED']
,['DUELED','ESTATE']
,['XXX','YYY']
,['CBAABC','DEFFED']
,['RAMBUNCTIOUSLY','THERMODYNAMICS']
,['DISCRIMINATIVE','SIMPLIFICATION']

// False:

,['SEE','SAW']
,['ANTS','PANTS']
,['BANANA','SERENE']
,['BANANA','SENSES']
,['XXY','XYY']
,['ABCBACCBA','ABCBACCAB']
]
.forEach(t=>(f(t[0],t[1])?OK:KO).innerHTML+=t+'\n')

Ok<br>
<pre id=OK></pre><br>
KO<br>
<pre id=KO></pre>

R, 78

function(x,y)identical((g=function(z)match(a<-strsplit(z,"")[[1]],a))(x),g(y))

Bỏ chơi gôn:

word_to_num <- function(word) {
   chars <- strsplit(word,"")[[1]]
   match(chars, chars)
}
are_isomorph <- function(word1, word2) identical(word_to_num(word1), 
                                                 word_to_num(word2))

Ruby, 83 byte

t=->x{y=0;z=?`;x.gsub!(y[0],z.succ!)while y=x.match(/[A-Z]/);x};f=->a,b{t[a]==t[b]}

Đây là một hàm fcó hai đối số và trả về truehoặc false.

Giải trình:

test = -> str {
    y = nil  # we're just initializing this; it doesn't matter to what
             # this is the variable we use to store the `match' result
    z = '`'  # backtick is the ASCII character before `a'
    while y = str.match(/[A-Z]/) do  # while there is an uppercase letter in str
        str.gsub!(y[0], z.succ!)  # replace all instances of the uppercase letter
                                  # with the next unused lowercase letter
    end
    str  # return the new string
}
# self-explanatory
f=->a,b{test[a]==test[b]}

Java, 107

(s,t)->java.util.Arrays.equals(s.chars().map(s::indexOf).toArray(),t.chars().map(t::indexOf).toArray())

Bản đồ từng nhân vật của svà tđến vị trí của nó, và kiểm tra sự bình đẳng.

Mở rộng:

class Isomorphs {
    public static void main(String[] args) {
        java.util.function.BiFunction<String, String, Boolean> f =
            (s, t) -> java.util.Arrays.equals(
                                              s.chars().map(s::indexOf).toArray(),
                                              t.chars().map(t::indexOf).toArray()
                                             )
           ;
        System.out.println(f.apply("XXY", "XYY"));
    }
}

Python 3, 85 byte

f=lambda a,b:''.join(map(lambda g:dict(zip(a,b))[g],a))==b
g=lambda a,b:f(a,b)&f(b,a)

Bình thường, 9 byte

qFmmxdkdQ

Đưa đầu vào theo mẫu sau:

"ESTATE", "DUELED"

Nếu điều đó không được chấp nhận, đoạn mã sau là 10 byte:

qFmmxdkd.z

và sử dụng mẫu đầu vào này:

ESTATE
DUELED

Sử dụng chỉ số của char trong biểu diễn chuỗi.

Matlab, 50 byte

f=@(s,t)isequal(bsxfun(@eq,s,s'),bsxfun(@eq,t,t'))

Hàm được định nghĩa là ẩn danh để tiết kiệm không gian.

Thí dụ:

>> f=@(s,t)isequal(bsxfun(@eq,s,s'),bsxfun(@eq,t,t'));
>> f('ESTATE','DUELED')
ans =
     1
>> f('ANTS','PANTS')
ans =
     0

Octave, 26 byte

@(s,t)isequal(s==s',t==t')

05AB1E , 6 byte

εæδË}Ë

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

Đưa đầu vào dưới dạng danh sách: ['ESTATE', 'DUELED']

Giải thích:

    εæδË}Ë   Full program
    ε        Apply on each
     æ         Powerset
      δË       For each generated substring: 1 if all equal, 0 otherwise
        }    End for each
         Ë   1 if all equal, 0 otherwise

APL (Dyalog) , 5 4 byte

-1 nhờ gợi ý của ngn.

Hàm tiền tố ẩn danh ẩn danh danh hai chuỗi làm đối số.

≡.⍳⍨

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

Đây là một sản phẩm bên trong, nhưng thay vì thông thường +và ×nó sử dụng

≡ giống hệt nhau

. và

⍳ các ɩ Ndex (sự xuất hiện đầu tiên của mỗi phần tử)

⍨ với toàn bộ danh sách hai yếu tố của các từ được sử dụng làm cả hai đối số

Nếu chúng ta gọi các từ Avà B, thì chúng ta có thể rút ra giải pháp trước đó như sau:

≡.⍳⍨ A B
A B ≡.⍳ A B
(A⍳A) ≡ (B⍳B)
(⍳⍨A) ≡ (⍳⍨B)
≡/ ⍳⍨¨ A B

Giải pháp trước

Hàm tiền tố ẩn danh ẩn danh danh hai chuỗi làm đối số.

≡/⍳⍨¨

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

≡ giống hệt nhau

/ băng qua

⍳ các ɩ Ndex (sự xuất hiện đầu tiên của mỗi phần tử ...)

⍨ selfie (bản thân mình)

¨ của mỗi

Toán học, 46 byte

Equal@@Values@*PositionIndex/@Characters@{##}&

Ruby, 50 byte

Mã ruby ​​ngắn hơn 30 byte. Viết trước khi tôi xem xét các giải pháp, kiểm tra từng ký tự của cả hai chuỗi xem chỉ số của lần xuất hiện đầu tiên của nhân vật đó có khớp hay không; I E. biến đổi một chuỗi thành dạng chuẩn hóa của nó, 01121v.v. và so sánh chúng.

->x,y{g=->z{z.chars.map{|c|z=~/#{c}/}};g[x]==g[y]}

Các trường hợp thử nghiệm trên ideone Là một phần thưởng bổ sung, điều này phá vỡ việc làm nổi bật mã của ideone.

Husk , 5 byte

¤=´×=

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

Giải trình

       -- implicit input A, B (strings aka character lists)       | "ab" "12"
¤=     -- apply the following function to A & B, then compare:    | [1,0,0,1] == [1,0,0,1] -> 1
  ´×   --   Cartesian product with itself under                   | ["aa","ba","ab","bb"] ["11","21","12","22"]
    =  --   equality                                              | [ 1  , 0  , 0  , 1  ] [ 1  , 0  , 0  , 1  ]

PCRE, 84 byte

^((.)(?=.+ (\3.|)(.))(?=((?=(\2|)?+.* \3\4(\7?(?(?=.*+\6)(?!\4).|\4))).)+ ))+. \3..$ 

Chủ đề phải là hai từ được phân tách bằng dấu cách, như trong OP. Đây là một lời giải thích cursory:

Đối với mỗi chữ X trong từ đầu tiên:

Nhìn về phía trước từ thứ hai và thiết lập lại các tham chiếu để nhớ lại khoảng cách chúng ta cũng như chữ Y trong từ thứ hai tương ứng với X.

Đối với mỗi chữ Z vượt qua vị trí hiện tại trong từ đầu tiên:

Thiết lập các tài liệu tham khảo trở lại tương tự như trên.

Nhìn về phía trước chữ cái tương ứng trong từ thứ hai và kiểm tra xem Z = X có khớp với chữ Y không, nếu không thì khớp với chữ cái không phải là Y.

Lặp đi lặp lại này có thể kết thúc một khi chúng ta khớp với nhau cho đến chữ áp chót trong từ đầu tiên. Tại thời điểm này, vì không cần xác nhận thêm, tất cả những gì còn lại là kiểm tra xem các từ có độ dài bằng nhau không (tham chiếu phía sau có chứa các chuỗi con tích lũy của từ thứ hai luôn đứng sau 1 chữ cái).

Ruby, 31 byte

->a{!!a.uniq!{|s|s.tr s,'a-z'}}

Một Proc lấy một chuỗi các chuỗi và kiểm tra xem có bất kỳ đẳng cấu nào với nhau không. tr s,'a-z'với các đối số này bình thường hóa một chuỗi sbằng cách thay thế từng chữ cái bằng chữ thứ n trong bảng chữ cái, đây nlà chỉ số lớn nhất mà chữ cái đó xuất hiện trong chuỗi. Ví dụ, estatetrở thành fbedef, như là dueled.

Rắn hổ mang, 72 byte

do(a='',b='')=(for i in a get a.indexOf(i))==for i in b get b.indexOf(i)

JavaScript (ES5), 142 98

Khá lớn, nhưng tôi chưa thấy phiên bản ES5.

for(l=j=2;j--;){c=prompt();for(i=c.length;i--;)c=c.replace(RegExp(c[i],"g"),i);b=l==c;l=c}alert(b)

Chỉ cần thay thế mọi lần xuất hiện của chữ cái đầu tiên bằng giá trị chỉ mục ngược của nó. Lặp lại điều này cho mọi nhân vật.

Nó làm tương tự cho cả hai đầu vào và so sánh các mẫu được tạo.

Sự so sánh này khá xấu xí, nhưng tôi sẽ không sử dụng một mảng để lưu trữ và so sánh nó.

Perl, 38 byte

($_,$a)=@ARGV;eval"y/$_/$a/";say$_~~$a

Chạy như perl -E '($_,$a)=@ARGV;eval"y/$_/$a/";say$_~~$a' RAMBUNCTIOUSLY THERMODYNAMICS

In 1 nếu đúng, không có gì nếu sai.

Lisp thông thường, 76 byte

(lambda(a b)(equal #1=(map'list(lambda(x)(position x a))a)(setf a b a #1#)))

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

C ++, 213 196 162 byte

-51 byte nhờ Zacharý

#include<map>
#define F(X,x)for(auto&e:X){if(x.end()==x.find(e))x[e]=65+x.size();e=x[e];}
auto i=[](auto a,auto b){std::map<int,int>c,d;F(a,c)F(b,d)return a==b;};

Để gọi lambda, bạn cần truyền 2 đối số là std::stringkiểu dữ liệu

Mã để kiểm tra:

std::initializer_list<std::pair<std::string, std::string>> test{
    {"ESTATE","DUELED"},
    {"DUELED","ESTATE"},
    {"XXX","YYY"},
    {"CBAABC","DEFFED"},
    {"RAMBUNCTIOUSLY","THERMODYNAMICS"},
    {"DISCRIMINATIVE","SIMPLIFICATION"},
    {"SEE","SAW"},
    {"ANTS","PANTS"},
    {"BANANA","SERENE"},
    {"BANAnA","SENSES"},
    {"AB","CC"},
    {"XXY","XYY"},
    {"ABCBACCBA","ABCBACCAB"},
    {"ABAB","AC"}
};

for (const auto& a : test) {
    std::cout << "Test with " << a.first << " and " << a.second <<
        " outputs : " << (i(a.first, a.second)?"TRUE":"FALSE") << '\n';
}

đối với mã kiểm tra, bao gồm iostreamvà stringtệp tiêu đề là bắt buộc

JavaScript (ES6), 52 51 50 byte

Phiên bản này không sử dụng khả năng hiểu mảng và lấy đầu vào bằng cú pháp currying.

a=>b=>(f=x=>0+[...x].map(c=>x.search(c)))(a)==f(b)

const isomorph = a=>b=>(f=x=>0+[...x].map(c=>x.search(c)))(a)==f(b);
const tests = [
  {input: ["ESTATE", "DUELED"], expected: true},
  {input: ["DUELED", "ESTATE"], expected: true},
  {input: ["XXX", "YYY"], expected: true},
  {input: ["CBAABC", "DEFFED"], expected: true},
  {input: ["RAMBUNCTIOUSLY", "THERMODYNAMICS"], expected: true},
  {input: ["DISCRIMINATIVE", "SIMPLIFICATION"], expected: true},
  {input: ["SEE", "SAW"], expected: false},
  {input: ["ANTS", "PANTS"], expected: false},
  {input: ["BANANA", "SERENE"], expected: false},
  {input: ["BANANA", "SENSES"], expected: false},
  {input: ["AB", "CC"], expected: false},
  {input: ["XXY", "XYY"], expected: false},
  {input: ["ABCBACCBA", "ABCBACCAB"], expected: false},
  {input: ["ABAB", "CD"], expected: false}
];

for(const { input: [str1, str2], expected } of tests) {
  console.log(`isomorph("${str1}")("${str2}") = ${isomorph(str1)(str2)}, expected = ${expected}`);
}