Contexte

Inspiré par I'm a palindrome. Es-tu? , où il est présenté le fait choquant que "ce ()()n'est pas un palindrome, mais ())(", je me suis demandé ce que c'est ()()et la réponse est simple: c'est une corde avec un axe de symétrie vertical!

La tâche

Écrivez un programme ou une fonction qui prend en entrée une chaîne S (ou l'équivalent approprié dans votre langue), vérifie la symétrie le long de l'axe vertical et renvoie une valeur véridique ou fausse en conséquence. Vous pouvez utiliser tous les moyens raisonnables pour prendre l'entrée et fournir la sortie.

Symétrie réflexionnelle

La symétrie réflexive autour d'un axe vertical (ou symétrie gauche-droite) signifie que si vous placez un miroir verticalement au centre exact de la chaîne, l'image réfléchie de la première moitié de la chaîne est identique à la seconde moitié de la chaîne.

Par exemple, les chaînes suivantes sont symétriques par réflexion autour d'un axe vertical:

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

alors que les suivants ne le sont pas:

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

Règlement du concours

• Votre programme ou fonction ne recevra que des caractères ASCII imprimables. Vous pouvez inclure ou non la chaîne vide, (qui est symétrique, bien sûr!) Comme entrée légale, ce qui est mieux pour vous.

• Les caractères ASCII qui peuvent être considérés comme symétriques par rapport aux axes verticaux sont les suivants (notez l'espace initial et la différence entre les majuscules et les minuscules):

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

Les caractères ASCII qui peuvent être considérés comme «en miroir» et leurs caractères correspondants sont:

()<>[]{}qpbd/\

Notez que, comme ils sont en miroir, vous pouvez avoir à la fois ()ainsi que )(, /\et \/, etc.

Tous les autres caractères imprimables ASCII doivent être considérés comme asymétriques et sans caractère correspondant en miroir.

• C'est un défi de code-golf : plus votre programme est court, mesuré en octets, mieux c'est, dans n'importe quel langage de programmation.

• Félicitations aux personnes qui produiront un programme symétrique!

Remarque : cette question n'est pas un doublon de "Palindrome pratique" , qui nécessite de vérifier les chaînes palindromiques dans lesquelles les parenthèses sont inversées. Cette question est différente pour deux raisons:

1) c'est une restriction de l'autre question pour ce qui concerne les caractères non parenthèses, puisque seuls les caractères symétriques peuvent apparaître dans l'ordre inverse.

2) Puisqu'il est basé sur le concept de symétrie et non sur un concept de «palindrome commode», les caractères en miroir peuvent apparaître dans les deux ordres, c'est []-à- dire et ][, ce qui rend le programme pour le résoudre différent des programmes qui résolvent l'autre problème. .

JavaScript (ES6), 130 125 113 octets

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>

Edit: 5 octets enregistrés grâce à @Arnauld. 11 octets supplémentaires enregistrés grâce à @YairRand.

Gelée , 69 62 octets

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

Essayez-le en ligne!

Tous les cas de test

-7 octets grâce à @JonathanAllan

Comment ça marche

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

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

Enregistré 13 octets grâce à Jonathan Allan.

SOGL V0.12 , 88 octets

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

Essayez-le ici!

~ 24 octets pour ajouter la qpbdmise en miroir et 6 octets pour(x-1 XOR 1) + 1 : /

Kotlin 1.1, 201 199 octets

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

Embellie

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

Tester

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

Impossible de s'exécuter sur TIO car 1.1 n'est pas pris en charge

Python 2 , 182 167 163 162 162 160 158 octets

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"

Essayez-le en ligne!

Enregistré 2 octets grâce à Jonathan Allan

Explication Tout d'abord, nous devons construire la liste de tous les caractères qui n'ont pas de symétrie (le caractère lui-même:, A... ou un autre caractère (pour ), ...):

• m("","") renvoie une chaîne avec tous les caractères disponibles.

• m("","").translate(None," \t!\"'+*-.:=AHIMOTUVWXY^_ovwx|"+t+w)) supprime de tous les caractères disponibles les caractères qui ont une symétrie.

Ensuite, nous mappons chaque caractère à son caractère symétrique et supprimons les caractères qui n'ont pas de caractère symétrique avec s.translate(m(t+w,w+t),<chars that don't have a symmetric>)

Si le résultat est égal à la chaîne inversée, nous avons une chaîne symétrique.

Perl 5 , 102 + 1 (-p) = 103 octets

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

Essayez-le en ligne!

Scala , 140 octets

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

Essayez-le en ligne!