Два слова є ізоморфами, якщо вони мають однаковий зразок повторень літер. Наприклад, обидва ESTATEі DUELEDмають візерунокabcdca

ESTATE
DUELED

abcdca

оскільки букви 1 і 6 однакові, букви 3 і 5 однакові, і нічого далі. Це також означає, що слова пов'язані шифром заміни, тут зі збігом E <-> D, S <-> U, T <-> E, A <-> L.

Напишіть код, який містить два слова, і перевіряйте, чи вони є ізоморфами. Виграє найменше байт.

Введення: Два непусті рядки з великої літери A..Z. За бажанням ви можете взяти їх як збірку з двох рядків або як єдину струну з роздільником.

Вихід: Послідовне значення Truthy для пар, які є ізоморфами , і послідовне значення Фальсі, якщо їх немає. Рядки різної довжини є дійсними входами, які ніколи не є ізоморфами.

Тестові приклади:

Правда:

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 CD

Не соромтеся додавати більше тестових справ, які вважаєте корисними.

Таблиця лідерів

Ось фрагмент стека для створення як звичайного табло, так і огляду переможців за мовою.

Щоб переконатися, що ваша відповідь відображається, будь ласка, почніть свою відповідь із заголовка, використовуючи наступний шаблон Markdown:

# Language Name, N bytes

де Nрозмір вашого подання. Якщо ви покращите свій рахунок, ви можете зберегти старі бали у заголовку, прокресливши їх. Наприклад:

# 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 байти

-:&=

Використання

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

Пояснення

• = з 1 аргументом створює таблицю рівності, порівнюючи елементи вхідного даних та його нуль.

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

• -:з двома аргументами перевіряє їх рівність (як ==це робиться взагалі). Це також працює для матриць різного розміру (або навіть різних типів).

• f&gзастосовує g до обох даних окремо, а потім застосовує f до двох результатів разом, так x f&g y == f(g(x), g(y)).

• Тож у нашому випадку ми порівнюємо дві таблиці рівності.

Спробуйте його онлайн тут.

К, 5 байт

Це чудово елегантне рішення в K!

~/=:'

Оператор "групи" (монадичний =) створює саме ту підпис, яку ми хочемо для слова ізоморфізм; збирання векторів індексів кожного елемента вектора з групами, упорядкованими за зовнішнім виглядом:

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

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

Беручи пару рядків як вектор, нам просто потрібно застосувати групу до кожного елемента ( =:'), а потім зменшити за допомогою "match" ( ~), оператор глибокої рівності:

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

Python 2, 41 байт

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

CJam, 9 байт

r_f#r_f#=

Друкує, 1якщо слова є ізоморфами, а 0якщо їх немає.

Спробуйте його в Інтернеті в інтерпретаторі CJam .

Як це працює

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 байт

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

Логіка проста. Я просто перетворюю обидва входи у відповідні їм значення індексу символів, конвертую цей масив у рядок та порівнюю.

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

Спробуйте вказаний вище код, використовуючи фрагмент нижче.

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 байти збережено завдяки @ edc65

Bash + coreutils, 38

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

Зверніть увагу, що ми використовуємо тут звичайну ідею оболонки truthy / falesy - нуль означає УСПІХ або ПРАВИЛЬНУ, а ненульовий - означає помилку або ЛЖУ:

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

Хаскелл, 33 29

Редагувати:

це занадто пізно, але я знайшов це покращення за допомогою додатків, які були додані до прелюдії лише в березні 2015 року.

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

Стара версія:

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

функція перевірки є (%)

це працює, генеруючи для кожного рядка свій "запис рівності": для кожного двох індексів ij він записує, чи мають вони рівні символи. запис впорядковується так, що запис для двох індексів i, j завжди знаходиться в одному місці *, і тому перевірка рівності записів повертає, чи мають рядки однаковий малюнок.

наприклад, запис рівності "ABC" є [1,0,0,0,1,0,0,0,1](1 для істинного, 0 для помилкового) - там, Trueде будь-який індекс порівнюється з самим собою. ніде більше неправда. (пропуск цих чеків може бути більш ефективним, але складніше з точки зору гольфу)

* _{якщо рядки однакової довжини. інакше він повертає помилкові лише тому, що записи мають різну довжину}

Haskell, 45 41 байт

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

Повертається Trueабо False, наприклад "ESTATE" ! "DUELED"-> True.

Використовується метод map-char-to-first-index, як видно з багатьох інших відповідей. Список асоціацій стане у нагоді, оскільки попередні записи козирять. "aba"стає [(a,1),(b,2),(a,3)]там, де lookupзавжди виходить a-> 1.

Редагувати: @Mauris знайшов 4 байти для збереження.

Brainfuck, 169 168 162 144 140 131 130

Сумісність з Alex Панкратова BFF (Brainfuck інтерпретатора , що використовується на SPOJ і ideone) і Томаса Корта в BFI (використовується на Anarchy Golf).

Очікуваний вхід - це два рядки, розділені вкладкою, без нового рядка після другого рядка. Вихід призначений 1для ізоморфів і 0для неізоморфів, що зручно для візуальної перевірки результатів, хоча це не найкоротший варіант. ( Оновлення: скорочена версія з \x01і \x00як вихід та \x00як роздільник внизу відповіді.)

Демонстрація на ideone.

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

Ця проблема виявляється дуже приємною для головного мозку.

Основна ідея з індексуванням - повернутися назад від кінця поточного рядкового префікса. Якщо символ раніше не виникав, ми можемо взяти довжину префікса рядка. Наприклад:

STATES
123255

Індексація в коді насправді дещо відрізняється, але використовує той же принцип.

Макет пам'яті складається з блоків 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

cозначає символ, iіндекс та pпопередній (індекс). Під час опрацювання першого рядка всі pслоти дорівнюють нулю. Комірка зліва від cвикористовується для зберігання копії поточного символу, для якого ми намагаємося знайти індекс. Комірка зліва від поточного iвикористовується для утримання -1легкої навігації вказівника.

Є багато умов, які потрібно уважно розглянути. Наприкінці ми перевіряємо наявність ізоморфів, порівнюючи (i,p)пари, і доходимо до скупчення нульових комірок зліва від крайньої лівої (i,p)пари тоді і лише тоді, коли рядки є ізоморфами. Ось коментована версія коду для полегшення дотримання:

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

Оновлення:

Ось версія, яка друкує \x01для ізоморфів та \x00для неізоморфів. Це, мабуть, більш точна інтерпретація Труті та Фальсі для глузду, через спосіб [і ]роботу. Єдина різниця - в самому кінці.

Додатково: Тепер використовується \x00як роздільник для збереження 10 байт.

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

JavaScript (ES6), 62

Використовуючи функцію aux, hяка відображає кожне слово до масиву, що містить положення кожної літери у слові, наприклад: PASS -> [1,2,3,3]. Повернути істину, якщо функція, hзастосована двома словами, дає однаковий результат.

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

Де-гольф:

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

Рубін, 83 байти

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

Це функція, fяка бере два аргументи і повертає trueабо false.

Пояснення:

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

Ява, 107

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

Картує кожен символ sта tйого місце розташування та перевіряє рівність.

Розширено:

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 байт

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 байт

qFmmxdkdQ

Вводиться в такій формі:

"ESTATE", "DUELED"

Якщо це неприйнятно, наступний код - 10 байт:

qFmmxdkd.z

і використовує цю форму введення:

ESTATE
DUELED

Використовує індекс char в рядковому поданні.

Матлаб, 50 байт

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

Функція визначається як анонімна, щоб заощадити деякий простір.

Приклад:

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

Октава, 26 байт

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

05AB1E , 6 байт

εæδË}Ë

Спробуйте в Інтернеті!

Вводиться як список: ['ESTATE', 'DUELED']

Пояснення:

    εæδË}Ë   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 байти

-1 завдяки натяку на ngn

Функція анонімного негласного префікса, яка бере аргумент списку з двох рядків.

≡.⍳⍨

Спробуйте в Інтернеті!

Це внутрішній продукт, але замість звичного +і ×використовується

≡ тотожність

. і

⍳ɩ NDEX (перше входження кожного елемента)

⍨ з усім двоелементним списком слів, що використовуються як обидва аргументи

Якщо ми називаємо слова Aі B, тоді ми можемо отримати попереднє рішення наступним чином:

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

Попереднє рішення

Функція анонімного негласного префікса, яка бере аргумент списку з двох рядків.

≡/⍳⍨¨

Спробуйте в Інтернеті!

≡ тотожність

/ поперек

⍳ɩ NDEX (перше входження кожного елемента ...)

⍨ selfie (… сам по собі)

¨ кожного

Математика, 46 байт

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

Рубін, 50 байт

30 байт коротший рубіновий код. Написано до того, як я подивився на рішення, перевіряє для кожного символу обох рядків, чи відповідає показник першої появи цього персонажа; тобто. перетворює рядок у нормалізовану форму 01121тощо і порівнює їх.

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

Тестові приклади на ideone Як додатковий бонус, це порушує виділення коду ideone.

Лушпиння , 5 байт

¤=´×=

Спробуйте в Інтернеті!

Пояснення

       -- 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 байти

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

Тема має бути двома розділеними пробілами словами, як в ОП. Ось коротке пояснення:

Для кожної літери X першого слова:

Погляньте наперед до другого слова та встановіть зворотні посилання, щоб згадати, як далеко ми знаходимось, а також букву Y у другому слові, що відповідає X.

Для кожної літери Z, що минула поточну позицію в першому слові:

Створіть подібні зворотні посилання, як описано вище.

Подивіться на відповідну букву в другому слові і перевірте, чи Z = X, а потім відповідати Y, інакше відповідати букві, яка не є Y.

Ця ітерація може закінчитися, коли ми збіжемось до передостанньої літери першого слова. Після цього, оскільки подальша перевірка не потрібна, залишається лише перевірити, що слова мають однакову довжину (зворотний посилання, що містить накопичувальні підрядки другого слова, завжди відстає на 1 букву).

Рубін, 31 байт

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

Програма, яка приймає масив рядків і перевіряє, чи є одна одна з одноморфних. tr s,'a-z'за допомогою цих аргументів нормалізується рядок s, замінюючи кожну букву на n-ту букву в алфавіті, де nнайбільший індекс, з яким ця буква відображається в рядку. Наприклад, estateстає fbedef, як це робиться dueled.

Кобра, 72 байти

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

JavaScript (ES5), 142 98

Досить великий, але версії 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)

Просто замінює кожне виникнення першої літери на зворотне значення індексу. Повторює це для кожного персонажа.

Це робить те саме для обох входів та порівнює створений шаблон.

Порівняння досить потворне, але я не хочу використовувати масив для зберігання та порівняння.

Perl, 38 байт

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

Виконати як perl -E '($_,$a)=@ARGV;eval"y/$_/$a/";say$_~~$a' RAMBUNCTIOUSLY THERMODYNAMICS

Друкує 1, якщо правда, нічого, якщо неправдиво.

Лист звичайний, 76 байт

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

Спробуйте в Інтернеті!

C ++, 213 196 162 байт

-51 байт завдяки Захарі

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

Щоб викликати лямбда, вам потрібно передати 2 аргументи std::stringтипу даних

Код для тестування:

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

для коду, який необхідний для тестування, включаючи файл iostreamта stringзаголовок

JavaScript (ES6), 52 51 50 байт

Ця версія не використовує розуміння масиву та приймає дані за допомогою синтаксису 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}`);
}