เมื่อมีการเขียนข้อความที่มีแม่เหล็กติดตู้เย็น, คุณมักจะพบว่าตัวเองทำหน้าที่แทนสำหรับ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ที่สองคนแรก3ที่จะหมุน 180 องศาเพื่อให้ทั้งสองEs และสุดท้าย3คือ 90 Mองศาหมุนทวนเข็มนาฬิกาที่จะทำให้ ช่องว่างสามารถรวมอยู่ในข้อความได้ แต่ไม่ควรนำมาคิดในการแก้ปัญหาของคุณเนื่องจากทำโดยวางแม่เหล็กไว้ในตู้เย็น

อินพุต

สองสตริง (หรืออาร์เรย์อักขระ) ข้อความทั้งหมดจะตรงกัน^[A-Z0-9 ]+$

เอาท์พุต

ความจริงถ้าทั้งสองสายอินพุตเป็น rearrangements ที่ถูกต้องซึ่งกันและกันเป็นเท็จอย่างอื่น

ตัวอย่าง

["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 วันนับจากการโพสต์ มีความสุขในการเล่นกอล์ฟ!

โซลูชันตัวอย่างไม่ใช่สนามกอล์ฟ

ที่เกี่ยวข้อง

• ตัวอักษรของลูกสาวฉัน

• ตัวอักษรโฟมอาบน้ำ

แก้ไข : สร้างข้อผิดพลาดในการแทนที่, มีG = 6และ6 = 9แทนที่การแยก, รวมเข้าเป็นหนึ่งเดียว

Japté , 38 36 33 30 ไบต์

รับอินพุตเป็นอาร์เรย์ของ 2 สตริง

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

ลองใช้หรือเรียกใช้กรณีทดสอบทั้งหมด

บันทึกได้ 3 ไบต์ด้วยETHProductions

®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

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

ลองออนไลน์!

สำรอง:

Python 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

ลองออนไลน์!

Ruby , 99 72 71 ไบต์

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

ลองออนไลน์!

ใช้อาร์เรย์ของสตริงโดยสมมติว่าอินพุตเป็นตัวพิมพ์ใหญ่เช่นเดียวกับในกรณีทดสอบทั้งหมด

-1 ไบต์ golfed โดย benj2240

JavaScript (ES6), 102 100 ไบต์

(a)(b)จะเข้าเป็นสองอาร์เรย์ของตัวละครในไวยากรณ์ currying ส่งคืนบูลีน

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

ในที่สุดเราจะเปรียบเทียบผลลัพธ์ทั้งสอง

เรติน่า 0.8.2 , 42 ไบต์

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

ลองออนไลน์! รับอินพุตเป็นบรรทัดแยกจากกัน แต่ลิงก์มีกรณีทดสอบและส่วนหัว คำอธิบาย:

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

แมปตัวอักษรทั้งหมดเป็นชุดที่น้อยที่สุดการลบช่องว่าง

%O`.

เรียงลำดับสตริงแต่ละรายการตามลำดับ

^(.*)¶\1$

เปรียบเทียบค่าทั้งสอง

APL (Dyalog Unicode) , 49 ไบต์^SBCS

-1 ขอบคุณ ngn

ฟังก์ชันนำหน้าเงียบโดยไม่ระบุชื่อ

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

ลองออนไลน์!

⎕R PCRE R eplace:
 'UMWZ ' อักขระห้าตัวเหล่านี้
 ⎕D, นำหน้าด้วยตัวเลข
 ,¨ แยกกัน (ทำให้แต่ละตัวเป็นสตริงแทนที่จะเป็นอักขระเดียว)
 ด้วย:
 ⊂⍬ ไม่มีสิ่งใด
 'OIREASGLBGCEEN', นำหน้าด้วยอักขระเหล่านี้

(... ) ใช้ฟังก์ชัน tacit ต่อไปนี้กับสิ่งนั้น:

 (... )¨ ใช้ฟังก์ชัน tacit ต่อไปนี้กับแต่ละรายการ:

  ⊂ ล้อมรอบมัน (เพื่อรักษาโดยรวม)

  ⍋⌷¨ ใช้แต่ละดัชนีที่จะเรียงลำดับเพื่อจัดทำดัชนีลงในสตริงทั้งหมด (เรียงลำดับ)

 ≡/ พวกเขาเหมือนกันหรือไม่ (lit. การลดการจับคู่)

Python 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 อักขระ'85930A4614012B3C4D5EF6378GH9AI2J3KL7'เราแมปอักขระแต่ละตัวกับคลาสที่เทียบเท่า (ละเว้นการเว้นวรรค) จากนั้นเรียงลำดับอาร์เรย์ผลลัพธ์ สองสตริงเทียบเท่ากันหากรายการผลลัพธ์มีค่าเท่ากัน

Java 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);}

-2 ไบต์ขอบคุณที่@Arnauld
-76 ไบต์ขอบคุณที่@ OlivierGrégoire

ลองออนไลน์

คำอธิบาย:

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

R , 123 ไบต์

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

ลองออนไลน์!

utf8ToInt แปลงสตริงเป็นเวกเตอร์ของจุดโค้ด Unicode

!sd(a-b)สั้นกว่าหนึ่งไบต์all(a==b)แต่นั่นไม่ได้ช่วยที่นี่เพราะฉันกำลังจัดการกับจำนวนเต็มไม่ใช่ลอจิคัล

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 ทดสอบอักขระแต่ละตัวเพื่อเป็นสมาชิกในตาราง follwing:

[:(,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#. เพิ่มตารางเปรียบเทียบสำหรับแต่ละอาร์กิวเมนต์

-:& พวกเขาตรงกับ?

Perl 6 , 55 ไบต์

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

ลองออนไลน์!

ทำงานกับจำนวนสตริงโดยพลการ

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

ลองออนไลน์!

Python 3 , 105 ไบต์

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

ลองออนไลน์!

เจลลี่ , 39 34 ไบต์

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

ลองออนไลน์!

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