Dua kata adalah isomorf jika mereka memiliki pola pengulangan huruf yang sama. Misalnya keduanya ESTATEdan DUELEDpunya polaabcdca

ESTATE
DUELED

abcdca

karena huruf 1 dan 6 sama, huruf 3 dan 5 sama, dan tidak lebih jauh. Ini juga berarti kata-kata tersebut terkait dengan sandi pengganti, di sini dengan pencocokan E <-> D, S <-> U, T <-> E, A <-> L.

Tulis kode yang membutuhkan dua kata dan periksa apakah isomorfnya. Bytes paling sedikit menang.

Input: Dua string huruf kapital yang tidak kosong A..Z. Jika mau, Anda dapat mengambil ini sebagai kumpulan dua string atau sebagai string tunggal dengan pemisah.

Keluaran: Nilai kebenaran yang konsisten untuk pasangan yang isomorf, dan nilai Falsey yang konsisten jika tidak. String dengan panjang berbeda adalah input yang valid yang tidak pernah isomorf.

Kasus uji:

Benar:

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

Salah:

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

Jangan ragu untuk menambahkan lebih banyak test case yang menurut Anda berguna.

Papan peringkat

Berikut ini adalah Stack Snippet untuk menghasilkan leaderboard biasa dan gambaran umum pemenang berdasarkan bahasa.

Untuk memastikan bahwa jawaban Anda muncul, silakan mulai jawaban Anda dengan tajuk utama, menggunakan templat Penurunan harga berikut:

# Language Name, N bytes

di mana Nukuran kiriman Anda. Jika Anda meningkatkan skor Anda, Anda bisa menyimpan skor lama di headline, dengan mencoretnya. Misalnya:

# 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

-:&=

Pemakaian

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

Penjelasan

• = dengan 1 argumen menciptakan tabel kesetaraan yang membandingkan elemen input dan nubnya.

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

• -:dengan 2 argumen memeriksa kesetaraan mereka (seperti ==umumnya dilakukan). Ini berfungsi untuk matriks ukuran yang berbeda (atau bahkan tipe yang berbeda) juga.

• f&gberlaku g untuk kedua input secara terpisah dan kemudian berlaku f untuk dua hasil secara bersamaan x f&g y == f(g(x), g(y)).

• Jadi dalam kasus kami, kami membandingkan dua tabel kesetaraan.

Cobalah online di sini.

K, 5 byte

Ini memiliki solusi elegan yang menyenangkan di K!

~/=:'

Operator "grup" (monadik =) justru menciptakan tanda tangan yang kita inginkan untuk kata isomorfisme; mengumpulkan vektor indeks setiap elemen vektor, dengan kelompok-kelompok yang diurutkan berdasarkan penampilan:

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

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

Mengambil sepasang string sebagai vektor, kita hanya perlu menerapkan grup ke setiap elemen ( =:') dan kemudian menguranginya dengan "match" ( ~), operator kesetaraan mendalam:

  ~/=:'("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#=

Mencetak 1jika kata-katanya adalah isomorf dan 0jika tidak.

Cobalah online di juru bahasa CJam .

Bagaimana itu bekerja

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)

Logikanya sederhana. Saya hanya mengkonversi kedua input ke nilai indeks karakter yang sesuai, mengubah array itu menjadi string dan membandingkan.

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

Coba kode di atas menggunakan cuplikan di bawah ini.

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 disimpan berkat @ edc65

Bash + coreutils, 38

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

Perhatikan bahwa kami menggunakan ide shell yang biasa dari truthy / falsy di sini - nol berarti SUKSES atau BENAR dan kesalahan berarti non-nol atau SALAH:

$ 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

SUNTING:

ini sudah sangat terlambat, tetapi saya menemukan peningkatan ini menggunakan pelamar, yang ditambahkan ke pembuka hanya pada Maret 2015.

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

Versi lama:

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

fungsi pemeriksaan adalah (%)

ini bekerja dengan menghasilkan untuk setiap string "catatan kesetaraan": untuk setiap dua indeks ij, ia merekam apakah mereka memiliki karakter yang sama. catatan diperintahkan sehingga catatan untuk dua indeks i, j selalu di tempat yang sama * dan karena itu memeriksa kesetaraan catatan akan mengembalikan apakah string memiliki pola yang sama atau tidak.

misalnya, catatan kesetaraan "ABC" adalah [1,0,0,0,1,0,0,0,1](1 untuk benar, 0 untuk salah) - ada di Truemana indeks mana pun dibandingkan dengan dirinya sendiri. di tempat lain salah. (melewatkan cek ini mungkin lebih efisien, tetapi lebih sulit dalam hal bermain golf)

* _{jika senarnya memiliki panjang yang sama. selain itu mengembalikan false hanya karena catatan memiliki panjang yang berbeda}

Haskell, 45 41 byte

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

Pengembalian Trueatau False, misalnya "ESTATE" ! "DUELED"-> True.

Menggunakan metode peta-char-to-first-index seperti yang terlihat di banyak jawaban lainnya. Daftar asosiasi berguna, karena entri sebelumnya truf. "aba"menjadi [(a,1),(b,2),(a,3)]tempat lookupselalu mengambil a-> 1.

Sunting: @Mauris ditemukan 4 byte untuk disimpan.

Brainfuck, 169 168 162 162 144 140 131 130

Kompatibel dengan bff Alex Pankratov (interpreter brainfuck digunakan pada SPOJ dan ideone) dan Thomas Cort's BFI (digunakan pada Anarchy Golf).

Input yang diharapkan adalah dua string yang dipisahkan oleh tab, tanpa baris baru setelah string kedua. Outputnya adalah 1untuk isomorph dan 0non-isomorph, yang nyaman untuk memeriksa hasil secara visual, meskipun bukan pilihan terpendek. ( Pembaruan: versi yang lebih pendek dengan \x01dan \x00sebagai keluaran dan \x00sebagai pemisah di bagian bawah jawaban.)

Demonstrasi tentang ideone.

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

Masalah ini ternyata sangat bagus untuk brainfuck.

Ide dasar dengan pengindeksan adalah untuk mundur dari akhir awalan string saat ini. Jika karakter belum terjadi sebelumnya, kita bisa mengambil awalan string panjang. Sebagai contoh:

STATES
123255

Pengindeksan dalam kode sebenarnya sedikit berbeda tetapi menggunakan prinsip yang sama.

Tata letak memori dalam blok 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

csingkatan karakter, iuntuk indeks, dan puntuk sebelumnya (indeks). Ketika string pertama sedang diproses, semua pslot adalah nol. Sel di sebelah kiri cdigunakan untuk menyimpan salinan karakter saat ini yang kami coba temukan indeksnya. Sel di sebelah kiri saat iini digunakan untuk menahan -1navigasi penunjuk yang mudah.

Ada banyak kondisi yang perlu dipertimbangkan dengan cermat. Pada akhirnya, kami memeriksa isomorf dengan membandingkan (i,p)pasangan, dan kami mencapai gugus sel nol di sebelah kiri (i,p)pasangan paling kiri jika dan hanya jika stringnya adalah isomorf. Berikut adalah versi kode yang dikomentari untuk membuatnya lebih mudah diikuti:

,+
[                       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
+++++++[<+++++++>-]
<.

Memperbarui:

Ini adalah versi yang mencetak \x01untuk isomorf dan \x00non-isomorf. Ini bisa dibilang penafsiran yang lebih akurat tentang Truthy dan Falsey untuk brainfuck, karena cara [dan ]kerjanya. Satu-satunya perbedaan adalah di bagian paling akhir.

Tambahan: Sekarang menggunakan \x00sebagai pemisah untuk menghemat 10 byte.

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

JavaScript (ES6), 62

Menggunakan fungsi aux hyang memetakan setiap kata ke array yang berisi posisi setiap huruf dalam kata, misalnya: LULUS -> [1,2,3,3]. Return true jika fungsi yang hditerapkan kedua kata tersebut memberikan hasil yang sama.

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

De-golf:

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]}

Ini adalah fungsi fyang mengambil dua argumen dan mengembalikan trueatau false.

Penjelasan:

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]}

Jawa, 107

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

Memetakan setiap karakter sdan tke lokasi, dan memeriksa kesetaraan.

Diperluas:

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)

Pyth, 9 byte

qFmmxdkdQ

Mengambil input dalam bentuk berikut:

"ESTATE", "DUELED"

Jika itu tidak dapat diterima, kode berikut ini 10 byte:

qFmmxdkd.z

dan menggunakan formulir input ini:

ESTATE
DUELED

Menggunakan indeks char dalam representasi string.

Matlab, 50 byte

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

Fungsi ini didefinisikan sebagai anonim untuk menghemat ruang.

Contoh:

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

Oktaf, 26 byte

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

05AB1E , 6 byte

εæδË}Ë

Cobalah online!

Mengambil input sebagai daftar: ['ESTATE', 'DUELED']

Penjelasan:

    εæδË}Ë   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 berkat petunjuk ngn.

Fungsi awalan diam-diam anonim yang mengambil daftar dua string sebagai argumen.

≡.⍳⍨

Cobalah secara Online!

Ini adalah produk dalam, tetapi bukan yang biasa +dan ×digunakan

≡ kemiripan

. dan

⍳ yang ɩ ndex (kejadian pertama dari setiap elemen)

⍨ dengan seluruh daftar dua elemen kata yang digunakan sebagai argumen

Jika kita memanggil kata Adan B, maka kita dapat memperoleh solusi sebelumnya sebagai berikut:

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

Solusi sebelumnya

Fungsi awalan diam-diam anonim yang mengambil daftar dua string sebagai argumen.

≡/⍳⍨¨

Cobalah online!

≡ kemiripan

/ seberang

⍳ yang ɩ ndex (kejadian pertama dari setiap elemen ...)

⍨ selfie (... dalam dirinya sendiri)

¨ setiap

Mathematica, 46 byte

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

Ruby, 50 byte

30 byte lebih pendek kode ruby. Ditulis sebelum saya melihat solusinya, memeriksa setiap karakter dari kedua string apakah indeks kemunculan pertama karakter itu cocok; yaitu. mengubah string ke bentuk normalnya01121 dll dan membandingkannya.

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

Menguji kasus pada ideone Sebagai bonus tambahan, ini mematahkan penyorotan kode ideone.

Sekam , 5 byte

¤=´×=

Cobalah online!

Penjelasan

       -- 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..$ 

Subjek harus dua kata yang dipisahkan oleh spasi, seperti pada OP. Berikut penjelasan sepintas:

Untuk setiap huruf X dalam kata pertama:

Lihatlah ke depan untuk kata kedua dan buat kembali referensi untuk mengingat seberapa jauh kita serta huruf Y pada kata kedua yang sesuai dengan X.

Untuk setiap huruf Z, lewati posisi saat ini di kata pertama:

Buat referensi belakang yang sama seperti di atas.

Lihatlah ke depan ke huruf yang sesuai di kata kedua dan periksa apakah Z = X kemudian cocok dengan Y, jika tidak cocok dengan huruf yang bukan Y.

Iterasi ini dapat berakhir setelah kami mencocokkan hingga huruf kedua dari belakang di kata pertama. Pada titik ini, karena tidak diperlukan validasi lebih lanjut, yang tersisa hanyalah menguji bahwa kata-kata tersebut memiliki panjang yang sama (referensi belakang yang mengandung akumulasi substring dari kata kedua selalu tertinggal dengan 1 huruf).

Ruby, 31 byte

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

Seorang Proc yang mengambil serangkaian string dan memeriksa apakah ada isomorfik satu sama lain. tr s,'a-z'dengan argumen ini menormalkan string sdengan mengganti setiap huruf dengan huruf ke-n dalam alfabet, di mana nadalah indeks terbesar dengan mana huruf itu muncul dalam string. Misalnya, estatemenjadi fbedef, seperti halnya dueled.

Cobra, 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

Cukup besar, tapi saya belum melihat versi 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)

Cukup ganti setiap kemunculan huruf pertama dengan nilai indeks baliknya. Ulangi ini untuk setiap karakter.

Itu melakukan hal yang sama untuk kedua input dan membandingkan pola yang dihasilkan.

Perbandingannya cukup jelek, tetapi saya tidak ingin menggunakan array untuk menyimpan dan membandingkannya.

Perl, 38 byte

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

Jalankan sebagai perl -E '($_,$a)=@ARGV;eval"y/$_/$a/";say$_~~$a' RAMBUNCTIOUSLY THERMODYNAMICS

Mencetak 1 jika benar, tidak ada jika salah.

Common Lisp, 76 byte

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

Cobalah online!

C ++, 213 196 162 byte

-51 byte terima kasih kepada 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;};

Untuk memanggil lambda, Anda harus melewati 2 argumen yang merupakan std::stringtipe data

Kode untuk diuji:

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

untuk kode yang diuji, termasuk iostreamdan stringfile header diperlukan

JavaScript (ES6), 52 51 50 byte

Versi ini tidak menggunakan pemahaman array, dan mengambil input menggunakan sintaks 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}`);
}