พื้นหลัง

แรงบันดาลใจจากฉันเป็นสีขาว คุณเป็น ที่ซึ่งมีการนำเสนอข้อเท็จจริงที่น่าตกใจว่า“ ()()ไม่ใช่ Palindrome แต่())(” ฉันถามตัวเองว่าอะไรคือ()()คำตอบคือ: มันเป็นสตริงที่มีแกนสมมาตรในแนวตั้ง!

งาน

เขียนโปรแกรมหรือฟังก์ชั่นที่รับสตริง S (หรือเทียบเท่าที่เหมาะสมในภาษาของคุณ) เป็นอินพุตตรวจสอบความสมมาตรตามแกนตั้งและส่งกลับค่าความจริงหรือค่าเท็จตามลำดับ คุณสามารถใช้วิธีการที่สมเหตุสมผลเพื่อรับอินพุตและจัดเตรียมเอาต์พุต

สมมาตรสะท้อนแสง

การสะท้อนสมมาตรรอบแกนตั้ง (หรือสมมาตรซ้ายขวา) หมายความว่าหากคุณวางกระจกในแนวตั้งตรงกึ่งกลางของสตริงภาพสะท้อนของครึ่งแรกของสตริงจะเหมือนกับครึ่งหลังของสตริง

ตัวอย่างเช่นสตริงต่อไปนี้เป็นสมมาตรการสะท้อนรอบแกนตั้ง:

()()
()()()
[A + A]
WOW ! WOW
OH-AH_wx'xw_HA-HO
(<<[[[T*T]]]>>)
(:)
)-(
())(()
qpqp

ในขณะที่ต่อไปนี้ไม่:

())(
((B))
11
+-*+-
WOW ! wow
(;)
qppq

กฎของการแข่งขัน

•โปรแกรมหรือฟังก์ชั่นของคุณจะได้รับเฉพาะอักขระ ASCII ที่พิมพ์ได้ คุณสามารถรวมหรือไม่ใช้สตริงว่าง (ซึ่งเป็นสมมาตรแน่นอน!) เป็นอินพุตทางกฎหมายซึ่งดีกว่าสำหรับคุณ

•อักขระ ASCII ที่ถือได้ว่าสมมาตรเทียบกับแกนแนวตั้งมีดังต่อไปนี้ (หมายเหตุช่องว่างเริ่มต้นและความแตกต่างระหว่างตัวอักษรตัวพิมพ์ใหญ่และตัวพิมพ์เล็ก):

 !"'+*-.:=AHIMOTUVWXY^_ovwx|

อักขระ ASCII ที่ถือเป็น“ มิร์เรอร์” และอักขระที่เกี่ยวข้องคือ:

()<>[]{}qpbd/\

โปรดทราบว่าเนื่องจากพวกเขาจะสะท้อนคุณสามารถมีทั้งสอง()เช่นเดียวกับ)(, /\และ\/อื่น ๆ

อักขระ ASCII ที่พิมพ์ได้อื่นทั้งหมดต้องถูกพิจารณาแบบไม่สมมาตรและไม่มีอักขระที่สอดคล้องกันแบบมิรเรอร์

•นี่เป็นความท้าทายของรหัส - กอล์ฟ : ยิ่งโปรแกรมของคุณสั้นลงเท่าไหร่ก็ยิ่งดีขึ้นในภาษาโปรแกรมใด ๆ

•ความรุ่งโรจน์ต่อคนที่จะสร้างโปรแกรมสมมาตร!

หมายเหตุ : คำถามนี้ไม่ได้ซ้ำกับ"Convenient Palindrome"ซึ่งต้องการตรวจสอบสตริง palindromic ที่วงเล็บถูกพลิกคำถามนี้แตกต่างกันด้วยเหตุผลสองประการ:

1) เป็นข้อ จำกัด ของคำถามอื่น ๆ สำหรับสิ่งที่เกี่ยวข้องกับอักขระที่ไม่ใช่วงเล็บเนื่องจากอักขระที่สมมาตรสามารถปรากฏในลำดับย้อนกลับได้

2) เนื่องจากมันขึ้นอยู่กับแนวคิดของความสมมาตรและไม่ได้อยู่ในแนวคิดของ "palindrome สะดวกสบาย", อักขระที่มิเรอร์จึงสามารถปรากฏได้ทั้งในลำดับ[]และ][และทำให้โปรแกรมเพื่อแก้ปัญหาต่างจากโปรแกรมที่แก้ปัญหาอื่น ๆ .

JavaScript (ES6), 130 125 113 ไบต์

f=
s=>s==[...s].reverse(s=`()<>[]{}qpbd/\\`).map(c=>s[s.indexOf(c)^1]||/[- !"'+*.:=AHIMOT-Y^_ovwx|]/.exec(c)).join``

<input oninput=o.textContent=f(this.value)><pre id=o>

แก้ไข: บันทึก 5 ไบต์ขอบคุณ @Arnauld บันทึกเพิ่มเติมอีก 11 ไบต์ด้วย @YairRand

เจลลี่ , 69 62 ไบต์

“(<[{qb/“ !"'+*-.:=AHIMOTUVWXY^_ovwx|“)>]}pd\”,Ṛ$F©f@ð®œs2¤yU⁼

ลองออนไลน์!

กรณีทดสอบทั้งหมด

-7 ไบต์ขอบคุณ @JonathanAllan

มันทำงานอย่างไร

“(<[{qb/“ !"'+*-.:=AHIMOTUVWXY^_ovwx|“)>]}pd\”,Ṛ$F©f@ð®œs2¤yU⁼  main link

“(<[{qb/“ !"'+*-.:=AHIMOTUVWXY^_ovwx|“)>]}pd\”  The literal list of strings  ['(<[{qb/', ' !"\'+*-.:=AHIMOTUVWXY^_ovwx|', ')>]}pd\\']
               $                 Last two links (if not part of an LCC) as a monad 
            Ṛ                    Reverse array Does not vectorize.
           ,                     Pair; return [x, y].
                 ©               Copy link result to register (® atom to retrieve). 
              F                  Flatten list.
                  f              Filter; remove the elements from x that are not in y.
                   @             Swaps operands. 

                    ð            Start a new dyadic chain
                         ¤       Nilad followed by links as a nilad. 
                      2          The literal integer 2
                   ®             Restore; retrieve the value of the register. Initially 0.
                    œs           Split x into y chunks of similar lengths.
                          y      Translate the elements of y according to the mapping in x.
                           U     Upend; reverse an array.
                            ⁼    Equals. Does not vectorize.

Python 3, 211 208 195 ไบต์

lambda S,p="()<>[]{}qpbd\/",s=" !\"'+*-.:=AHIMOTUVWXY^_ovwx|":(S==S.translate({ord(s[2*x]):s[2*x+1]for s in(p,p[::-1])for x in range(7)})[::-1])*(~len(S)%2*s[len(S)//2]in s)*(not set(S)-set(p+s))

บันทึกแล้ว 13 ไบต์ขอบคุณ Jonathan Allan

SOGL V0.12 , 88 ไบต์

"el²┘N!←8mYdDm⁵╔C⅛┌6▼ģη⁷fņ‘;W‽0←}C
l»{Kα}lalh=‽;KCø;{:↔³↔=?"qpbd”⁴²+:GW:2%«H+W}:h=?:CΚ}=

ลองที่นี่!

~ 24 ไบต์เพื่อเพิ่มการqpbdมิเรอร์และ 6 ไบต์สำหรับ(x-1 XOR 1) + 1: /

Kotlin 1.1, 201 199 bytes

{var R="(<[{qb/\\dp}]>)"
var m=HashMap<Any,Any>()
"\"!'+*-.:=AHIMOTUVWXY^_ovwx| ".map{m[it]=it}
R.indices.map{m[R[it]]=R[R.length-(it+1)]}
it.zip(it.reversed()).filter{m[it.first]!=it.second}.none()}

เชิดชู

{
    var R = "(<[{qb/\\dp}]>)"
    var m = HashMap<Any, Any>()
    "\"!'+*-.:=AHIMOTUVWXY^_ovwx| ".map { m[it] = it }
    R.indices.map { m[R[it]] = R[R.length - (it + 1)] }
    it.zip(it.reversed()).filter { m[it.first] != it.second }.none()
}

ทดสอบ

var i:(String)->Boolean =
{var R="(<[{qb/\\dp}]>)"
var m=HashMap<Any,Any>()
"\"!'+*-.:=AHIMOTUVWXY^_ovwx| ".map{m[it]=it}
R.indices.map{m[R[it]]=R[R.length-(it+1)]}
it.zip(it.reversed()).filter{m[it.first]!=it.second}.none()}
fun main(args: Array<String>) {
    var GOOD = listOf("()()",
            "()()()",
            "[A + A]",
            "WOW ! WOW",
            "OH-AH_wx'xw_HA-HO",
            "(<<[[[T*T]]]>>)",
            "(:)",
            ")-(",
            "())(()",
            "qpqp")

    var BAD = listOf("())(",
            "((B))",
            "11",
            "+-*+-",
            "WOW ! wow",
            "(;)",
            "qppq")

    GOOD.filterNot { i(it) }.forEach { throw AssertionError(it) }
    BAD.filter { i(it) }.forEach { throw AssertionError(it) }
    println("Test Passed")
}

ไม่สามารถทำงานบน TIO ได้เนื่องจากไม่รองรับ 1.1

Python 2 , 182 167 163 162 160 158 ไบต์

lambda s:s[::-1]==s.translate(m(t+w,w+t),m("","").translate(None," !\"'+*-.:=AHIMOTUVWXY^_ovwx|"+t+w))
from string import*
m=maketrans
t=")>[{/qd"
w="(<]}\pb"

ลองออนไลน์!

บันทึก 2 ไบต์ขอบคุณ Jonathan Allan

คำอธิบาย ก่อนอื่นเราต้องสร้างรายการตัวอักษรทั้งหมดที่ไม่มีความสมมาตร (ตัวของมันเอง: A, ... หรือตัวอักษรอื่น(สำหรับ), ... ):

• m("","") ส่งคืนสตริงที่มีตัวอักษรที่มีอยู่ทั้งหมด

• m("","").translate(None," \t!\"'+*-.:=AHIMOTUVWXY^_ovwx|"+t+w)) ลบออกจากตัวอักษรที่มีอยู่ทั้งหมดตัวอักษรที่มีความสมมาตร

จากนั้นเราแมปถ่านทุกตัวกับถ่านแบบสมมาตรและลบตัวอักษรที่ไม่มีความสมมาตร s.translate(m(t+w,w+t),<chars that don't have a symmetric>)

หากผลลัพธ์เท่ากับสตริงที่ตรงกันข้ามเรามีสตริงสมมาตร

Perl 5 , 102 + 1 (-p) = 103 ไบต์

$_=!/[^ !"'+*.:=AHIMOT-Y^_ovwx|()<>[\]{}qpbd\/\\-]/&&$_ eq reverse y|()<>[]{}qpbd/\\|)(><][}{pqdb\\/|r

ลองออนไลน์!

สกาลา , 140 ไบต์

s.zip(s.reverse).forall(c=>(" !\"'+*-.:=AHIMOTUVWXY^_ovwx|".flatMap(x=>x+""+x)+"()<>[]{}qpbd/\\\\/dbpq}{][><)(").indexOf(c._1+""+c._2)%2==0)

ลองออนไลน์!