Arka fon

Bir palindromdan ilham aldım. Sen? “ Palindrom değil, ama ” diye şok edici bir gerçeğin sunulduğu yerde kendime ne olduğunu ve cevabın basit olduğunu sordum : dikey simetri eksenli bir dize!()()())(()()

Görev

Girdi olarak S dizesini (veya kendi dilinizde uygun eşdeğeri) alan, dikey eksen boyunca simetriyi kontrol eden ve buna göre bir truthy veya falsy değeri döndüren bir program veya işlev yazın . Girdiyi almak ve çıktıyı sağlamak için herhangi bir makul yolu kullanabilirsiniz .

Yansıma simetrisi

Dikey bir eksen etrafındaki yansıma simetrisi (veya sol-sağ simetri), dize tam ortasına dikey olarak bir ayna koyarsanız, dizenin ilk yarısının yansıtılan görüntüsünün dizenin ikinci yarısına aynı olduğu anlamına gelir.

Örneğin, aşağıdaki dizeler dikey bir eksen etrafında yansıma simetriktir:

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

aşağıdakiler olmasa da:

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

Yarışma Kuralları

• Programınız veya işleviniz yalnızca yazdırılabilir ASCII karakterleri alacaktır. Boş dizgiyi (tabii ki simetrik olan tabii ki!) Yasal girdi olarak dahil edebilir veya eklemeyebilirsiniz, bu sizin için daha iyidir.

• Düşey eksenlere göre simetrik olarak kabul edilebilecek ASCII karakterleri aşağıdaki gibidir (ilk boşluğu ve büyük ve küçük harfler arasındaki farkı not edin):

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

“Yansıtılmış” sayılabilecek ASCII karakterleri ve bunlara karşılık gelen karakterler:

()<>[]{}qpbd/\

Onlar yansıtılmış olduğundan, her ikisine de sahip olabilir, unutmayın ()sıra sıra )(, /\ve \/vb

Diğer tüm ASCII yazdırılabilir karakterleri asimetrik olarak ve yansıtılmış karşılık gelen bir karakter olmadan düşünülmelidir.

• Bu bir kod golf mücadelesidir: programınız ne kadar kısa olursa, herhangi bir programlama dilinde bayt olarak ölçülür.

• Simetrik bir program üretecek insanlara Kudos!

Not : Bu soru parantezlerin ters çevrildiği palindromik dizgilerin kontrol edilmesini gerektiren “Uygun Palindrom” un bir kopyası değildir , bu soru iki nedenden dolayı farklıdır:

1) Parantez olmayan karakterleri ilgilendiren hususlar için diğer sorunun bir kısıtlamasıdır, çünkü sadece simetrik karakterler ters sırada görünebilir.

2) simetri kavramına dayalı değil, “uygun bir palindrom” bir kavram üzerine olduğundan, aynalı karakterler, hem sırayla ie görünebilir []ve ][ve bu diğer sorunu çözmek programlardan farklı çözmek için programı yapar .

JavaScript (ES6), 130 125 113 bayt

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>

Düzenleme: @Arnauld sayesinde 5 bayt kaydedildi. @YairRand sayesinde 11 bayt daha kaydedildi.

Jöle , 69 62 bayt

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

Çevrimiçi deneyin!

Tüm test durumları

@JonathanAllan sayesinde -7 bayt

Nasıl çalışır

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

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 sayesinde 13 byte kurtarıldı.

SOGL V0.12 , 88 bayt

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

Burada dene!

~ qpbdYansıtma eklemek için 24 bayt ve 6 bayt (x-1 XOR 1) + 1:

Kotlin 1.1, 201 199 bayt

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

Beautified

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

Ölçek

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 desteklenmediğinden TIO'da çalıştırılamıyor

Python 2 , 182 167 163 162 160 158 bayt

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"

Çevrimiçi deneyin!

Jonathan Allan sayesinde 2 bayt kaydedildi

Açıklama Öncelikle, simetrik olmayan bütün karakterlerin listesini oluşturmamız gerekiyor (karakterin kendisi:, A... veya ... (için başka bir karakter )):

• m("","") Kullanılabilir tüm karakterleri içeren bir dize döndürür.

• m("","").translate(None," \t!\"'+*-.:=AHIMOTUVWXY^_ovwx|"+t+w)) simetrik olan karakterleri mevcut bütün karakterlerden siler.

Daha sonra, her char'i simetrik karakterine eşler ve simetrik olmayan karakterleri kaldırırız. s.translate(m(t+w,w+t),<chars that don't have a symmetric>)

Sonuç ters dizgeye eşitse, simetrik bir dizgemiz vardır.

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

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

Çevrimiçi deneyin!

Scala , 140 bayt

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

Çevrimiçi deneyin!