냉장고 자석 메시지를 작성하는 경우, 당신은 종종 자신이 대체 찾을 수 있습니다 1을 위해 I. 이 과제에서 목표는 다른 메시지의 문자를 사용하여 메시지를 작성할 수 있는지 확인하는 것입니다. 허용되는 대체는 다음과 같습니다.

A = 4
B = 8
C = U
E = M = W = 3
G = 6 = 9
I = 1
L = 7
N = Z
O = 0
R = 2
S = 5

예를 들어, 메시지 CIRCA 333를 철자로 재정렬 할 수 있습니다 ICE CREAM. 여기서 처음 두 3s는 180도 회전하여 두 Es 를 만들고 마지막 3은 시계 반대 방향으로 90도 회전하여을 만듭니다 M. 공백은 메시지에 포함될 수 있지만 냉장고에 자석을 배치하여 만들어 지므로 솔루션에서 설명해서는 안됩니다.

입력

두 개의 문자열 (또는 문자 배열) 모든 메시지가 일치합니다^[A-Z0-9 ]+$

산출

두 개의 입력 문자열이 서로 유효한 재 배열 인 경우에는 참이고 그렇지 않으면 거짓입니다.

예

["CIRCA 333", "ICE CREAM"] => true
["DCLV 00133", "I LOVE CODE"] => true
["WE ARE EMISSARIES", "33   423    3315542135"] => true
["WE WANT ICE CREAM", "MET CIRCA 334 MEN"] => true
["I HAVE ICE CREAM", "HAVE 2 ICE CREAMS"] => false

더 진실한 예

이들은 다른 단어에 매핑되는 15 개 이상의 문자 단어입니다. 일부는 사소한 대체물이지만 내가 찾은 모든 것을 포함했습니다.

["ANTHROPOMORPHISE","ANTHROPOMORPHISM"]
["ANTIPHILOSOPHIES","ANTIPHILOSOPHISM"]
["CIRCUMSTANTIALLY","ULTRAMASCULINITY"]
["DECENTRALIZATION","DENEUTRALIZATION"]
["DIMETHYLNITROSAMINE","THREEDIMENSIONALITY"]
["INSTITUTIONALISE","INSTITUTIONALISM"]
["INTERCRYSTALLINE","INTERCRYSTALLIZE"]
["INTERNATIONALISE","INTERNATIONALISM"]
["OVERCENTRALIZATION","OVERNEUTRALIZATION"]
["OVERCENTRALIZING","OVERNEUTRALIZING"]
["PREMILLENNIALISE","PREMILLENNIALISM"]
["TRANSCENDENTALIZE","TRANSCENDENTALIZM"]

이것이 코드 골프 도전이므로 가장 짧은 솔루션이 승리합니다! 게시 후 7 일 이내에 가장 짧은 솔루션을 수락합니다. 행복한 골프!

골프 용 샘플 솔루션

Japt , 38 36 33 30 바이트

입력을 2 개의 문자열 배열로 취합니다.

®d`z³m`i`oiglbg`í)Ôu)ñ xÃr¶

사용해 보거나 모든 테스트 사례를 실행하십시오.

ETHProductions 덕분에 3 바이트 절약

®d`z...m`i`o...g`í)Ôu)ñ xÃr¶
                                 :Implicit input of array U
®                                :Map each Z
 d                               :  For each pair of characters in the following string,
                                 :  replace all occurrences of the 1st character in Z with the 2nd
  `z...m`                        :    The compressed string "znewem"
         i                       :    Prepend
          `o...g`                :      The compressed string "oireasglbg"
                 í               :      Interleave 0-based indices
                  )              :    End prepend
                   Ô             :    Reverse
                    u            :    Convert to uppercase
                     )           :  End replace
                      ñ          :  Sort
                        x        :  Trim
                         Ã       :End map
                          r      :Reduce
                           ¶     :  By testing equality

— 얽히고 설킨
소스

현재 젤리를 때리는 것이 좋습니다! r¶3 바이트를 절약하기 위해 마지막에 할 수 있다고 생각합니다 .

— ETHproductions

네, 잊어 버렸습니다. 감사합니다, @ETHproductions.

— Shaggy

10

파이썬 (2) , 145 (131) 130 (129) 125 바이트

lambda*a:all(len({sum(map(w.count,x))for w in a})<2for x in'A4 B8 CU EMW3 G69 I1 L7 NZ O0 R2 S5'.split()+list('DFHJKPQTVXY'))

온라인으로 사용해보십시오!

Alt :

파이썬 2 , 125 바이트

lambda*a:len({(x,sum(map(w.count,x)))for x in'A4 B8 CU EMW3 G69 I1 L7 NZ O0 R2 S5'.split()+list('DFHJKPQTVXY')for w in a})<23

온라인으로 사용해보십시오!

— TFeld
소스

10

루비 , 99 72 71 바이트

->a{!!a.map{|x|x.tr("0-9UZMW","OIREASGLBGCNE").chars.sort-[" "]}.uniq!}

온라인으로 사용해보십시오!

문자열 배열을 취하고 모든 테스트 사례에서와 같이 입력을 대문자로 가정합니다.

-1 바이트는 benj2240에 의해 골프를 쳤다.

— 키릴 L.
소스

나는이 접근법을 좋아한다! 바이트를 절약하기 위해 더 많이 뿌려 라!

— benj2240

그렇습니다. 감사합니다.

— Kirill L.

9

자바 스크립트 (ES6) 102 100 바이트

카레 구문에서 두 개의 문자 배열로 입력을 (a)(b)받습니다. 부울을 반환합니다.

a=>b=>(g=s=>s.map(c=>'648UD3F6H1JK73Z0PQ25TUV3'[parseInt(c,36)-9]||c).sort().join``.trim())(a)==g(b)

온라인으로 사용해보십시오!

방법?

헬퍼 기능 사용 g ()를 각각의 입력에 대해, S :

숫자 0 행 8 및 문자 X , Y 및 Z는 그대로 남겨진다. 다른 모든 것은 명시 적으로 번역됩니다.

0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ
         ↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓↓
.........648UD3F6H1JK73Z0PQ25TUV3...

암호:

s.map(c => '648UD3F6H1JK73Z0PQ25TUV3'[parseInt(c, 36) - 9] || c)

우리는 문자를 정렬하고 (처음에는 모든 공백을 가져옵니다) 결합하여 선행 공백을 모두 제거합니다.

암호:
```
.sort().join``.trim()
```

마지막으로 두 출력을 비교합니다.

— 아르나 울드
소스

6

레티 나 0.8.2 , 42 바이트

T` dUZMW`_\OIR\EASG\LBGCN\E
%O`.
^(.*)¶\1$

온라인으로 사용해보십시오! 별도의 줄에 입력을 받지만 Link에는 테스트 사례 및 헤더가 포함됩니다. 설명:

T` dUZMW`_\OIR\EASG\LBGCN\E

공백을 삭제하고 모든 문자를 최소 세트로 매핑하십시오.

%O`.

각 문자열을 순서대로 정렬하십시오.

^(.*)¶\1$

두 값을 비교하십시오.

— 닐
소스

5

APL (Dyalog Unicode) , 49 바이트 ^SBCS

ngn 덕분에 -1입니다.

익명의 암묵적 접두사 기능.

(≡/(⍋⌷¨⊂)¨)(,¨⎕D,'UMWZ ')⎕R('OIREASGLBGCEEN',⊂⍬)

온라인으로 사용해보십시오!

⎕R PCRE R의 eplace :
'UMWZ ' 이 다섯 개 문자
⎕D, 숫자 앞에
,¨ 별도로 (오히려 단일 문자 것보다 문자열로 각을)
:로
⊂⍬ 아무것도
'OIREASGLBGCEEN', 이러한 문자 앞에

(… ) 그것에 다음의 암묵적 기능을 적용하십시오 :

(… )¨ 다음의 암묵적 기능을 각각에 적용하십시오.

⊂ 동봉 (전체로 취급)

⍋⌷¨ 전체 문자열 (정렬)로 색인하기 위해 정렬하는 각 색인을 사용하십시오

≡/ 그들은 동일합니까? (점등 감소)

— 아담
소스

''-> ⍬

— ngn

@ngn 왜 작동하는지 잘 모르겠지만 어쨌든 감사합니다.

— Adám

5

파이썬 2 , 108 바이트

lambda a,b:g(a)==g(b)
g=lambda s:sorted('85930A4614012B3C4D5EF6378GH9AI2J3KL7'[int(c,36)]for c in s if'!'<c)

온라인으로 사용해보십시오!

23 개의 등가 클래스가 있습니다. 36 문자열 string을 사용하여 '85930A4614012B3C4D5EF6378GH9AI2J3KL7'각 문자를 등가 클래스 (공백 무시)에 매핑 한 다음 결과 배열을 정렬합니다. 결과 목록이 동일한 경우 두 문자열이 동일합니다.

— 차스 브라운
소스

4

자바 10 262 260 258 216 208 174 바이트

a->b->n(a).equals(n(b));String n(String s){return s.chars().mapToObj(x->x<48?"":"OIREASGLBG.......ABCDEFGHIJKLENOPQRSTCVEXYN".split("")[x-48]).sorted().reduce("",(a,b)->a+b);}

@Arnauld 덕분에 -2 바이트 . @ OlivierGrégoire
덕분에 -76 바이트 .

온라인으로 사용해보십시오.

설명:

a->b->                      // Method with two String parameters and boolean return-type
  n(a).equals(n(b))         //  Return if both Strings are equal in the end

String n(String s){         // Separated method with String as both parameter return-type
  return s.chars()          //  Loop over all characters as integers
          .mapToObj(x->x<48?//   If the current character is a space:
             ""             //    Replace it with an empty String to skip it
            :               //   Else:
             "OIREASGLBG.......ABCDEFGHIJKLENOPQRSTCVEXYN".split("")[x-48]
                            //    Convert multi-substitution characters to a single one
          .sorted()         //  Sort all of the converted characters
          .reduce("",(a,b)->a+b);}
                            //  And join all of them together as single String

— 케빈 크루이 센
소스

2

"A4B8CUEMEWE3G6G9I1L7NZO0R2S5".split("(?<=\\G.{2})")어떻게 작동하는지 잘 모르겠지만 작동하는 것 같습니다. : p

— Arnauld

@Arnauld 감사합니다 -2 바이트이며 다른 -2 바이트 일 {2}수 있습니다 .. 나는 그것이 어떻게 작동하는지 100 % 확실하지 않습니다. 나는 항목마다 분리하지만 후미 구분 기호를 유지(?<= ... ) 하는 데 사용 된다는 것을 알고 있습니다. 그러나 나는 왜 그런 식으로 (?=\\G..)선행 구분 기호를 유지 하지 못하는지 약간 혼란 스럽습니다 . 또한 실제로 \\G..대 ..분할에서 어떻게 작용 하는지 모릅니다 . 내가 궁금하지 않기 때문에 어딘가에서 알아낼 수 있는지 알 수 있습니다. ; p 저장된 바이트에 대해 감사합니다. \\G짝수 크기의 블록으로 분할 할 때 기억해야합니다 . :)

— Kevin Cruijssen

1

@Arnauld (?<=\\G..)분할 내부에 대한 배경을 원한다면 StackoverFlow 질문 을 작성하여 약간의 빛을 비췄 습니다 . 기본적으로 정의되지 않은 동작은 거의 모든 언어에서 다르게 작동합니다. \GJava에서는 길이가 0 이지만 분할 내부의 긍정적 인 표정이 있지만 여기에 보이는 동작을 일으키는 두 규칙이 충돌합니다. 그것은 여전히 개인적으로 나에게 약간 모호하지만 적어도이 답변에서 4 바이트를 절약했습니다. ;)

— Kevin Cruijssen

1

217 바이트 . 그래도 더 많은 바이트를 절약 할 수 있습니다.

— Olivier Grégoire

1

174 바이트 .

— Olivier Grégoire

3

R , 123 바이트

function(x,y=chartr("48UMW36917Z025","ABCEEEGGILNORS",gsub(" ","",x)))all(g(y[1])==g(y[2]))
g=function(z)sort(utf8ToInt(z))

온라인으로 사용해보십시오!

utf8ToInt 문자열을 유니 코드 코드 포인트로 구성된 벡터로 변환합니다.

~~!sd(a-b)1 바이트보다 짧지all(a==b)~~ 만 실제로 논리가 아닌 정수를 처리하기 때문에 여기에 도움이되지 않습니다.

— ngm
소스

아주 좋아요! 요소가 모두 같을 수는 있지만 1 !any대신에 대신 해야한다고 생각합니다 !sd. 시도 :f(list("BCDEF","ABCDE"))

— JayCe

2

J , 56 바이트

-:&(-.&' '/:~@rplc'0123456789UMWZ';"0'OIREASGLBGCEEN'"1)

온라인으로 사용해보십시오!

설명:

& 왼쪽과 오른쪽 인수 모두

-.&' ' 입력에서 공백을 제거합니다.

rplc 대체

'0123456789UMWZ';"0'OIREASGLBGCEEN'"1 왼쪽 열의 문자를 오른쪽 열의 문자로 대체하여 입력의 문자 : (여기서 공간 절약을 위해 바꿈)

      |:'0123456789UMWZ';"0'OIREASGLBGCEEN'
┌─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┬─┐
│0│1│2│3│4│5│6│7│8│9│U│M│W│Z│
├─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┼─┤
│O│I│R│E│A│S│G│L│B│G│C│E│E│N│
└─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┴─┘

/:~@ 결과 문자열을 정렬합니다

-: 정렬 된 문자열이 동일합니까?

내 초기 솔루션 :

J , 77 73 바이트

-:&(1#.(' '-.~])e."1[:(,a.,.@-.,)'EMW3','G69',9 2$'A4B8CUI1L7NZO0R2S5'"1)

온라인으로 사용해보십시오!

설명:

(' '-.~]) 두 인수에서 공백을 제거하고

e."1 다음 표의 멤버십을 위해 각 캐릭터를 테스트합니다.

[:(,a.,.@-.,)'EMW3','G69',9 2$'A4B8CUI1L7NZO0R2S5'"1 참조 :

EMW3
G69 
A4  
B8  
CU  
I1  
L7  
NZ  
O0  
R2  
S5  
.
.
.  
All other symbols one in a row

1#. 각 인수에 대한 비교 테이블을 더합니다

-:& 그들은 일치합니까?

— 갈렌 이바노프
소스

2

펄 6 , 55 바이트

{[eq] .map:{sort TR/0..9UZMW/OIREASGLBGCNEE/~~m:g/\S/}}

온라인으로 사용해보십시오!

임의의 수의 문자열로 작동합니다.

— 엔웰 호프
소스

2

파이썬 2 , 111 바이트

lambda*t:2>len({`sorted(s.translate(dict(map(None,map(ord,'48UMW36917Z025 '),u'ABCEEEGGILNORS'))))`for s in t})

온라인으로 사용해보십시오!

116 바이트

lambda a,b:g(a)==g(b)
g=lambda s,y='4A8BUCMEWE3E6G9G1I7LZN0O2R5S ':y and g(s.replace(y[0],y[1:2]),y[2:])or sorted(s)

온라인으로 사용해보십시오!

— 린
소스

2

파이썬 3 , 105 바이트

lambda a,b:X(a)==X(b)
X=lambda s:sorted(("ABCEEEGGILNORS"+c)["48UMW36917Z025".find(c)]for c in s if' '<c)

온라인으로 사용해보십시오!

— RootTwo
소스

2

젤리 , 39 34 바이트

ØB“¡Œ5a`@ẓRɼ9ẓ“%-/İ"aU5®’ṃyḟ⁶ṢɗⱮ⁸E

온라인으로 사용해보십시오!

— 아웃 골퍼 에릭
소스

1

05AB1E , 38 33 바이트

εðK.•2Θ`ĆĀÑεÉ•u6«•B/óÕ¦•…CN9«‡{}Ë

온라인으로 시도 하거나 모든 테스트 사례를 확인하십시오 .

설명:

ε                   # Map each value in the (implicit) input-list by:
 ðK                 #  Remove all spaces
   .•2Θ`ĆĀÑεÉ•      #  Push compressed string "abemwgilorsuz"
              u     #  To uppercase: "ABEMWGILORSUZ"
               6«   #  Append a 6: "ABEMWGILORSUZ6"
   •B/óÕ¦•          #  Push compressed integer 48333917025
          …CN9«     #  Append "CN9": "48333917025CN9"
   ‡                #  Transliterate; map all characters in "ABEMWGILORSUZ" in the
                    #  map-string to "48333917025CN9" at the same indices
    {               #  Then sort all characters
}                   # Close the map
 Ë                  # And check if both are equal (which is output implicitly)

내이 05AB1E 팁을 참조하십시오 (섹션 어떻게 압축 문자열이 아닌 사전의 일부?에 와 얼마나 큰 정수를 압축하는 방법? ) 이유를 이해하는 방법 .•2Θ`ĆĀÑεÉ•이다 "abemwgilorsuz"하고 •B/óÕ¦•있다 48333917025.

— 케빈 크루이 센
소스

냉장고 자석 대체

입력

산출

예

더 진실한 예

관련

Japt , 38 36 33 30 바이트

파이썬 (2) , 145 (131) 130 (129) 125 바이트

파이썬 2 , 125 바이트

루비 , 99 72 71 바이트

자바 스크립트 (ES6) 102 100 바이트

방법?

레티 나 0.8.2 , 42 바이트

APL (Dyalog Unicode) , 49 바이트 ^SBCS

파이썬 2 , 108 바이트

자바 10 262 260 258 216 208 174 바이트

R , 123 바이트

J , 56 바이트

설명:

내 초기 솔루션 :

J , 77 73 바이트

설명:

펄 6 , 55 바이트

파이썬 2 , 111 바이트

116 바이트

파이썬 3 , 105 바이트

젤리 , 39 34 바이트

05AB1E , 38 33 바이트

냉장고 자석 대체

입력

산출

예

더 진실한 예

관련

Japt , 38 36 33 30 바이트

파이썬 (2) , 145 (131) 130 (129) 125 바이트

파이썬 2 , 125 바이트

루비 , 99 72 71 바이트

자바 스크립트 (ES6) 102 100 바이트

방법?

레티 나 0.8.2 , 42 바이트

APL (Dyalog Unicode) , 49 바이트 SBCS

파이썬 2 , 108 바이트

자바 10 262 260 258 216 208 174 바이트

R , 123 바이트

J , 56 바이트

설명:

내 초기 솔루션 :

J , 77 73 바이트

설명:

펄 6 , 55 바이트

파이썬 2 , 111 바이트

116 바이트

파이썬 3 , 105 바이트

젤리 , 39 34 바이트

05AB1E , 38 33 바이트

APL (Dyalog Unicode) , 49 바이트 ^SBCS