배경

나는 회 문장에서 영감을 받았습니다 . 당신은? “ 이것은 회문이 아니라 ”라는 충격적인 사실 이 제시된 곳 에서 나는 대신 무엇이냐고 대답했다 . 대답은 간단하다 : 그것은 수직 대칭 축을 가진 스트링이다!()()())(()()

작업

문자열 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 인쇄 가능 문자는 비대칭으로 간주되고 해당 문자가 미러링되지 않아야합니다.

• 이것은 코드 골프 문제입니다. 프로그램이 짧을수록 바이트 단위로 측정할수록 모든 프로그래밍 언어에서 더 좋습니다.

• 대칭 프로그램을 제작할 사람들에게 인기!

참고 :이 질문은 "편리한 회문" 과 중복되지 않으며 괄호가 뒤집힌 회문 문자열을 확인해야합니다.이 질문은 다음 두 가지 이유로 다릅니다.

1) 대칭 문자 만 역순으로 나타날 수 있으므로 괄호가 아닌 문자와 관련하여 다른 질문을 제한합니다.

2)“편의 회문”개념이 아닌 대칭 개념에 기초하기 때문에 거울 문자는 순서 와 같이 순서대로 나타날 수 []있으며 ][, 이로 인해 다른 문제를 해결하는 프로그램과는 다른 방식으로 문제를 해결할 수 있습니다. .

자바 스크립트 (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>

편집 : @Arnauld 덕분에 5 바이트가 절약되었습니다. @YairRand 덕분에 추가로 11 바이트를 절약했습니다.

젤리 , 69 62 바이트

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

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

모든 테스트 사례

@JonathanAllan 덕분에 -7 바이트

작동 원리

“(<[{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.

파이썬 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))

Jonathan Allan 덕분에 13 바이트를 절약했습니다.

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: /

코 틀린 1.1, 201 199 바이트

{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")
}

1.1이 지원되지 않기 때문에 TIO에서 실행할 수 없습니다

파이썬 (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"

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

Jonathan Allan 덕분에 2 바이트 절약

설명 첫째, 우리는 대칭 (: 숯불 자체가없는 모든 문자의 목록을 구축 할 필요가 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)

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