Biorąc pod uwagę dwa ciągi, znajdź tabelę translacji ( szyfr podstawienia ) między nimi, jeśli tłumaczenie nie jest możliwe, wyślij false. Odpowiedź należy zminimalizować i utworzyć od lewej do prawej. Pierwszym tłumaczonym znakiem między słowami musi być pierwszy w tabeli tłumaczeń. Oprócz tego żaden list, który nie został przetłumaczony (w tym samym miejscu, w którym był pierwotnie), NIE powinien znajdować się w tabeli tłumaczeń.

Prawdopodobnie najłatwiejszy do zdefiniowania za pomocą przykładów:

Ważne przypadki

"bat", "sap" => ["bt","sp"]

Zwróć uwagę na kolejność, wynik ["tb","ps"]nie jest prawidłowy dla tego wyzwania.

"sense", "12n12" => ["se","12"]

Zauważ, że nnie jest przetłumaczone, ponieważ jest to relacja 1 do 1.

"rabid", "snail" => ["rabd","snal"]

Zauważ, że inie jest przetłumaczone, ponieważ jest to relacja 1 do 1.

"ass", "all" => ["s","l"]

A nie jest uwzględnione, pozostaje takie samo, smoże zostać odwzorowane na podstawie ldopasowania wzorca.

"3121212", "ABLBLBL" => ["312","ABL"]

Idealnie pasuje do wzoru.

Falsy Cases

"banana", "angular" => false

(nie tej samej długości, niemożliwe).

"animal", "snails" => false

(każdego znaku można użyć RAZ tylko po każdej stronie tłumaczenia).

"can","cnn" => false

(n jest domyślnie używane w tłumaczeniu, dlatego zdefiniowanie tabeli translacji za pomocą n-> a byłoby niepoprawne)

Tak więc, [aimal,sails]jest to nieprawidłowa odpowiedź, czyniąca to fałsz.

"a1", "22" => false

Patrz „zastrzeżenia”, jest to wymienione jako fałsz. W tym przypadku, to dlatego, ai 1nie mogą oba mapowania 2. (Każda postać może być użyta RAZ tylko po każdej stronie tłumaczenia).

Ta odpowiedź wydaje się być dobrym punktem odniesienia: /codegolf//a/116807/59376

Jeśli masz pytania dotyczące funkcjonalności dwóch niepublicznych par słów, przejdź do tej implementacji.

Zasady we / wy

• Dane wejściowe mogą być w postaci tablicy 2-elementowej lub 2 osobnych danych wejściowych.
• Dane wyjściowe mogą być rozdzielane tablicą lub znakiem nowej linii / spacji, podobnie jak to pokazano.
• Fałszywe wyjście może wynosić 0, -1 lub fałsz. Błąd / puste wyjście również jest w porządku.
• Masz gwarancję, że anie będą równe bi ani anie bbędą puste.
• ai bsą sekwencjami liter tylko do wydruku ASCII.

Ostrzeżenia

• Tłumaczenia muszą odbywać się od lewej do prawej, patrz przykład 1.
• Nie wolno wyprowadzać znaków, które pozostają takie same.
• Twój program może przyjmować tylko dwa ciągi ai b.
• Każda postać może być użyta RAZ tylko po każdej stronie tłumaczenia. To sprawia, że ​​tłumaczenie snailsjest animalsniemożliwe.
• Rekurencyjne zamiany nie powinny wystąpić. Przykład zamiany rekurencyjnej: "a1","22"->[a1,12]gdzie a jest najpierw zastępowane przez 1, wówczas oba wynikowe 1 są zastępowane przez 2. To nie jest poprawne, zakładamy, że wszystkie tłumaczenia odbywają się niezależnie od siebie, co oznacza, że ​​jest to fałsz. Znaczenie: „a1” z tabelą translacji [a1,12] przyjmuje wartość 12 (nie 22)

JavaScript (ES6), 128 bajtów

f=
(s,t)=>!t[s.length]&&[...s].every((c,i)=>n[d=t[i]]==c||d&&!m[c]&&!n[d]&&(n[m[c]=d]=c,c==d||(a+=c,b+=d)),m={},n={},a=b='')&&[a,b]

<div oninput=o.textContent=f(s.value,t.value)><input id=s><input id=t><pre id=o>

JavaScript (ES6), 108 107 105 106 bajtów

Edycja : Naprawiono w celu obsługi danych wejściowych takich jak "22" / "a1"fałsz.

Zwraca jeden 0lub tablicę dwóch ciągów.

f=(a,b,x)=>[...a].some((c,i)=>d[C=b[i]]?d[C]!=c:(d[C]=c)!=C&&(s+=c,t+=C,!C),s=t='',d=[])?0:x||f(b,a,[s,t])

Sformatowane i skomentowane

f = (                       // given:
  a,                        // - a = first string
  b,                        // - b = second string
  x                         // - x = reference result from previous iteration,
) =>                        //       or undefined
  [...a].some((c, i) =>     // for each character c at position i in a:
    d[                      //   if we already have a translation
      C = b[i]              //   of the character C at the same position in b,
    ] ?                     //   then:
      d[C] != c             //     return true if it doesn't equal c
    :                       //   else:
      (d[C] = c) != C &&    //     store the translation C -> c in the dictionary
      (                     //     if the characters are different:
        s += c, t += C,     //       append them to the translation strings s and t
        !C                  //       return true if C is undefined
      ),                    //
    s = t = '', d = []      //   initialize s, t and d  
  ) ?                       // if some() returns true:
    0                       //   there was a translation error: abort
  :                         // else:
    x ||                    //   if this is the 2nd iteration, return x
    f(b, a, [s, t])         //   else do a recursive call with (b, a)

Przypadki testowe

f=(a,b,x)=>[...a].some((c,i)=>d[C=b[i]]?d[C]!=c:(d[C]=c)!=C&&(s+=c,t+=C,!C),s=t='',d=[])?0:x||f(b,a,[s,t])

// truthy
console.log(f('bat','sap'))
console.log(f('sense','12n12'))
console.log(f('rabid','snail'))
console.log(f('ass','all'))
console.log(f('3121212','ABLBLBL'))

// falsy
console.log(f('banana','angular'))
console.log(f('animal','snails'))
console.log(f('a1','22'))
console.log(f('22','a1'))
console.log(f('aaa','bab'))
console.log(f('abc','abcd'))
console.log(f('abcd','abc'))

PHP> = 7,1, 130 bajtów

18 bajtów zapisanych przez @Titus

for([,$x,$y]=$argv;a&$o=$y[$i];)$o==($p=$x[$i++])?:$k[$c[$p]=$o]=$p;echo$y==strtr($x,$c)&$x==strtr($y,$k)?join($k)." ".join($c):0;

Przypadki testowe

Rozszerzony

for([,$x,$y]=$argv;a&$o=$y[$i];)
$o==($p=$x[$i++])?:$k[$c[$p]=$o]=$p; # if char string 1 not equal char string 2 make key=char1 value=char2 and key array
echo$y==strtr($x,$c) # boolean replacement string 1 equal to string 2
    &$x==strtr($y,$k) # boolean replacement string 2 equal to string 1
    ?join($k)." ".join($c) # output for true cases
:0; #Output false cases

PHP> = 7,1, 148 bajtów

wypisuje 0 dla false Wypisuje true jako łańcuch

for([,$x,$y]=$argv;a&$o=$y[$i];$i++)$x[$i]==$o?:$c[$x[$i]]=$o;echo$y==strtr($x,($f=array_flip)($k=$f($c)))&$x==strtr($y,$k)?join($k)." ".join($c):0;

Przypadki testowe

Rozszerzony

for([,$x,$y]=$argv;a&$o=$y[$i];$i++)
$x[$i]==$o?:$c[$x[$i]]=$o; # if char string 1 not equal char string 2 set key=char1 value=char2
echo$y==strtr($x,($f=array_flip)($k=$f($c))) # boolean replacement string 1 equal to string 2
&$x==strtr($y,$k) # boolean replacement string 2 equal to string 1
    ?join($k)." ".join($c) # output for true cases
:0; #Output false cases

PHP> = 7,1, 131 bajtów

Drugą odpowiedź można skrócić, jeśli dozwolone są tablice asocjacyjne

wypisuje 0 dla false Wypisuje true jako tablicę asocjacyjną zamiast ciągu

for([,$x,$y]=$argv;a&$o=$y[$i];$i++)$x[$i]==$o?:$c[$x[$i]]=$o;print_r($y==strtr($x,($f=array_flip)($f($c)))&$x==strtr($y,$k)?$c:0);

Przypadki testowe

PHP> = 7,1, 227 bajtów

drukuje 0 dla fałszu

[,$x,$y]=$argv;echo strlen($x)==strlen($y)?strtr($x,$c=array_filter(($f=array_flip)($z=$f(array_combine(($p=str_split)($x),$p($y)))),function($v,$k){return$k!=$v;},1))==$y&$x==strtr($y,$z)?join(array_keys($c))." ".join($c):0:0;

Przypadki testowe

Rozszerzony

[,$x,$y]=$argv; # 
echo strlen($x)==strlen($y) #compare string lengths
?strtr($x,  # replace function
$c=array_filter( # filter 
($f=array_flip)($z=$f( # # remove doubles like in testcase: a1 => 22
    array_combine(($p=str_split)($x),$p($y))  # replacement array keys string 1 values string 2 
))
    ,function($v,$k){return$k!=$v;},1)) # remove all keys that equal to values in array
    ==$y # boolean replacement string 1 equal to string 2
&$x==strtr($y,$z) # boolean replacement string 2 equal to string 1        
?join(array_keys($c))." ".join($c) # output for true cases
    :0 # Output if replacement from string 1 is not equal to string 2
:0; #Output for different lengths

Galaretka , 18 bajtów

ẠaQ⁼µ€Ạ
z0EÐḟQZẋÇ$

Nienazwany link monadyczny (funkcja jednego wejścia) pobiera listę, która zwraca:
pobiera pustą listę w przypadkach falsey; lub
listę zawierającą dwie listy znaków w prawdziwych przypadkach.

Wypróbuj online! (stopka dzieli listę spacją, aby uniknąć wydrukowania reprezentacji wygładzonej)
... lub zobacz a pakiet testowy .

W jaki sposób?

ẠaQ⁼µ€Ạ - Link 1, valid?: mapping list
    µ€  - perform the code to the left for €ach mapping entry
Ạ       -     none of mapping entry falsey? (this & Main's z0 handle unequal input lengths)
  Q     -     deduplicate mapping entry
   ⁼    -     is equal to mapping list? (non-vectorising)
 a      -     and
      Ạ - none falsey (both mapping lists must pass that test)
        - The whole function returns 1 if the mapping list is acceptable, 0 if not

z0EÐḟQZẋÇ$ - Main link: list of strings
z0         - transpose with filler 0 (unequal lengths make pairs containing zeros)
   Ðḟ      - filter discard:
  E        -     all equal? (removes the untranslated character pairs)
     Q     - deduplicate (removes the repeated translation pairs)
      Z    - transpose (list of pairs to pair of lists)
         $ - last two links as a monad:
       ẋ   -     repeat list this many times:
        Ç  -         call last link (1) as a monad

Retina , 194 191 185 229 225 241 bajtów

.+
$&;$&
+`^\w(\w*;)\w
$1
^;\w.*|.+;;.*|;;

^((.)*)(.)(.*;(?<-2>.)*(?(2)(?!)))\3
$1$4
+`((.)(.)*)\2((.)*;.*(.)(?<-3>.)*(?(3)(?!)))\6((?<-5>.)*(?(5)(?!)))$
$1$4$7
^(.)*(.)(.)*(\2)?.*;(?<-1>.)*(?(1)(?!))(.)(?<-3>.)*(?(3)(?!))(?(4)(?!\5)|\5).*

Wypróbuj online!

Oddziela dane wejściowe ;. Wyjście jest również; oddzielone. Fałszywe dane wejściowe są oznaczone pustymi wyjściami.

Wiem, że to boleśnie gadatliwe, wciąż próbuję zmniejszyć bajty. Większość tych bajtów służy do usuwania fałszywych danych wejściowych.

Edycje

• Okazuje się, że mój program miał znaczną wadę. Zostało to naprawione teraz, ale kosztem ponad 40 bajtów.

• Znalazłem kolejny błąd, w którym mój program nie zadeklarował danych wejściowych jako a1;22fałszywych, ale po naprawieniu byłem w stanie utrzymać program poniżej 250 bajtów

Wyjaśnienie

(bardziej szczegółowe wyjaśnienia będą dostępne wkrótce)

Najpierw musimy sprawdzić, czy długości sznurków ai bsą takie same czy nie. Jeśli nie są, usuwamy wszystko.

Duplikuje dane wejściowe, aby zachować je podczas wykonywania testów długości.

.+                      Matches everything
$&;$&                   $& indicates the match, so $&;$& will duplicate the match and separate it with a semi-colon

Teraz w pętli usuwamy pierwszy znak ai pierwszy znak, baż jeden z ciągów stanie się pusty.

+`                     Repeatedly (until no more substitutions could be made) replace
  ^\w                   A word character (letter or number) at the beginning
     (\w*;)             Capture Group 1: matches any number of word characters and a semicolon
           \w           And a word character after the semi-colon
                       with
$1                      The result of the first capture group

Teraz są możliwości dla „przestrzeni wzorów”.

• ;;abc Oba ciągi mają jednakową długość
• def;;abc a jest dłuższy niż b
• ;def;abc b jest dłuższy niż a

Teraz musimy opróżnić dane wejściowe, jeśli ciągi nie są tej samej długości (scenariusze 2 i 3). To właśnie robi poniższe podstawienie. Usuwa tekst pasujący do scenariuszy 2 i 3.

^;\w.*|.+;;.*|;;

To usuwa znaki, które nie są transliterowane w ciągach ai b. abc;1b2=>ac;12

^((.)*)(.)(.*;(?<-2>.)*(?(2)(?!)))\3
$1$4

Następnie musimy usunąć zduplikowane znaki. sese;1212=> se;12, ale zachowuje dane wejściowe takie jakaba;123

+`((.)(.)*)\2((.)*;.*(.)(?<-3>.)*(?(3)(?!)))\6((?<-5>.)*(?(5)(?!)))$
$1$4$7

Na koniec usuwamy dane wejściowe, jeśli istnieją zduplikowane znaki, które są odwzorowane na różne znaki, takie jak aba;123lub a1;22.

^(.)*(.)(.)*(\2)?.*;(?.)*(?(1)(?!))(.)(?.)*(?(3)(?!))(?(4)(?!\5)|\5).*

I wreszcie usuń zduplikowane znaki.

Galaretka , 28 26 bajtów

QL$€⁼L€
EÐḟQZK0Ç?
ZÇ0L€E$?

Wypróbuj online!

QL$€⁼L€      Checks validity of mapping
QL$€          number of unique characters in mapping
    ⁼         equals
     L€       number of characters in mapping

EÐḟQZK0Ç?  Writes valid mapping or 0
EÐḟ           filter maps where a = b
   Q          filter duplicate maps
    Z         zip by column [["ac"],["bd"]] => ["ab","cd"]
     K0Ç?   print if valid map, else print 0

ZÇ0L€E$?      main link: takes an array of 2 strings
Z              zip by column: ["ab", "cd"] => [["ac"],["bd"]]
 Ç     ?       print mapping if
   L€E$         all pairs are same length (returns 0 if initial strings were
  0             else 0

Rubin, 133 bajty

->a,b{a.size!=b.size||(m=a.chars.zip b.chars).any?{|i,j|m.any?{|k,l|(i==k)^(j==l)}}?0:m.select{|x,y|x!=y}.uniq.transpose.map(&:join)}

Wypróbuj online!

Bardziej czytelnie:

->a, b{
    # Pair the letters in each string - [AB, AB, AB,...]
    pairs = a.chars.zip(b.chars)

    # If there's any combination of two pairs that share one character but not both,
    # or if the strings have different lengths, then the input's invalid.
    if a.size != b.size || pairs.any?{|i,j| pairs.any? {|k, l| (i==k)!=(j==l) }} 
        return 0 # 0 isn't actually falsy in Ruby, but this challenge allows it anyway
    end
    return pairs.select{|x,y| x != y} # Remove unchanged letters
                .uniq                 # Remove duplicates
                .transpose            # Change [AB, AB, AB] form to [AAA, BBB] form.
                .map(&:join)          # Convert the arrays back into strings
}

Tylko dla kopnięć, oto wersja 84-bajtowa w Gorubach, którą jest Ruby, ale z flagą golfową ustawioną podczas kompilacji interpretera. Między innymi pozwala skracać wywołania metod do ich najkrótszego unikalnego identyfikatora.

->a,b{a.sz!=b.sz||(m=a.ch.z b).ay?{|i,j|m.y?{|k,l|(i==k)^(j==l)}}?0:m.rj{|x,y|x==y}.u.tr.m(&:j)}

Python 2 , 198,193,189,182,179,175,169, 165 bajtów

def f(a,b):
 r=([""]*2,0)[len(a)!=len(b)]
 for u,v in zip(a,b):
	if r:
		q,w=r
		f=q.find(u)
		if u!=v:r=(([q+u,w+v],r)[f>-1 and w[f]==v],0)[f<0 and v in w]
 print r

Wypróbuj online!

• -4 bajty! dzięki mbomb007 za sugerowanie użycia tabulacji zamiast spacji.

• zmodyfikowałem format wejściowy, ponownie dzięki mbomb007.

Python 3.6, 211 185 181 178 bytes

Exits with an error for falsy results.

def f(x,y,d={}):
    for a,b in zip(x,y):1/(a not in d or b==d[a]or len(x)-len(y));d[a]=b;1/([*d.values()].count(b)<2)
    return map(''.join,zip(*[x for x in d.items()if x[0]!=x[1]]))

This requires Python 3.6, which you can run in a shell here.

You can test it without the correct output ordering on TIO here. (TIO doesn't have 3.6).

Ungolfed:

from collections import*
d=OrderedDict()                     # keep order
x,y=input()
if len(x)!=len(y):1/0               # equal lengths
for a,b in zip(x,y):
    if a in d and d[a]!=b:1/0       # no duplicate keys
    else:d[a]=b
    if d.values().count(b)>1:1/0    # no duplicate values
print map(''.join,zip(*[x for x in d.items()if x[0]!=x[1]])) # format, no no-ops

If only order didn't matter...

Röda, 108 119 bytes

{c=[{_<>_|[[_,_]]|orderedUniq}()]d=[]e=[]c|_|{{d+=a;e+=b}if[a!=b]}for a,b[d,e]if[0,1]|{|n|c|[_[n]]|sort|count|[_2=1]}_}

Try it online!

This is a function that takes two lists of characters from the stream and pushes two lists to the stream.

This could be sorter if I was allowed to return pairs.

Explanation (out-dated):

{
    c=[{
        _<>_|       /* pull two lists and interleave them */
        [[_,_]]|    /* "unflat", create lists from pairs */
        orderedUniq /* remove duplicates */
    }()]            /* c is a list of the pairs */
    d=[]
    e=[]
    c| /* push the pairs to the stream */
    _| /* flat */
    {  /* for each pair (a, b): */
        { /* if a != b (remove "1-to-1 relations"):  */
            d+=a;
            e+=b
        }if[a!=b]
    }for a,b
    /* return d and e if no character is mapped to more than one character */
    [d,e]if c|[_[0]]|sort|count|[_2=1]
}

Here's an underscore solution that contains no variables (114 bytes):

{[[{_<>_}()|[[_,_]]|unorderedUniq]]|[[_()|_|[_]if[_1!=_2]],[_1()|_|[_2]if[_1!=_2]]]if[[_1()|_][::2],[_1()|_][1::2]]|[sort(_)|count|[_2=1]]}

That's a lot of underscores.

AWK, 140 bytes

BEGIN{RS="(.)"}RT~/\W/{S=1}RT~/\w/&&S{if(RT!=x=A[++b]){if(B[z=RT]==""){B[z]=x
c=c x
d=d z}a=B[z]!=x?0:a}}!S{A[++a]=RT}END{if(a==b)print c,d}

Usage: Place code in FILE then:

awk -f FILE <<< "string1 string2"

The input strings need to be whitespace separated.

The output is empty if they fail, or 2 strings separated by a space.

k, 28 bytes

{$[(y?y)~x?x;+?(~=/)#x,'y;]}

Explanation:

{                          } /function that takes in two strings, x and y
 $[         ;            ;]  /if statement (to check if there is a mapping)
         x?x                 /first index of [each letter in x] in x
   (y?y)                     /first index of [each letter in y] in y
        ~                    /make sure they match
                     x,'y    /zip together the two strings
               (~=/)#        /remove equal pairs
              ?              /unique pairs only
             +               /transpose ("unzip", in a way)

APL (Dyalog) with AGL, 22 bytes

{≡/⍳⍨¨⍺⍵:↓⍉↑∪⍺(≠é,¨)⍵}

Try it online!

{…} anonymous function:

 If…

  ⍺⍵ the arguments

  ⍳⍨¨ when self-indexed (i.e. the first occurrences of their elements in themselves)

  ≡/ are equivalent

 : then:

  ⍺(…)⍵ apply the following tacit function to the arguments:

   ,¨ concatenate corresponding elements (errors on mismatching lengths)

   é then filter by (é is just the primitive function /)

   ≠ where the strings are different

  ∪ unique (remove duplicates)

  ↓⍉↑ transpose list-of-pairs to pair-of-lists (lit. mix into table, transpose table, split into lists)

 else, do nothing

CJam, 38 bytes

{_:,~={1\/;}:K~z{)\c=!},L|z_{_L|=K}%;}

Input and output are arrays on the stack.

PHP (>=7.1), 165 bytes

for([,$x,$y]=$argv;a&$c=$x[$i];$t[$c]=$d)$z+=($d=$y[$i++])&&$d==($t[$c]??$d);foreach($t as$a=>$b)$a==$b?:$r[$a]=$b;print_r($z<$i|array_unique($r)<$t||a&$y[$i]?0:$t);

prints 0 for falsy, associative array else. Run with -r or test it online.

breakdown

for([,$x,$y]=$argv;         # import arguments to $x and $y
    a&$c=$x[$i];            # loop through $x
    $t[$c]=$d)                  # 2. add pair to translation
$z+=                            # 1. increment $z if
    ($d=$y[$i++])&&             # there is a corresponding character in $y and
    $d==($t[$c]??$d);           # it equals a possible previous replacement
                            # remove identities from translation
foreach($t as$a=>$b)$a==$b?:$r[$a]=$b;
print_r(
    $z<$i                   # if not all tests passed
    |array_unique($t)<$t    # or there are duplicates in the translation
    ||a&$y[$i]              # or $y has more characters
    ?0                      # then print 0
    :$r                     # else print translation
);