Anda akan diberi string (mungkin kosong) yang berisi tanda kurung ( [{()}]) dan karakter lainnya ( A- Z, a- z, 0- 9, tanda baca). Anda perlu memeriksa apakah mematuhi aturan berikut:

• Karakter non-braket diabaikan.
• Setiap braket terbuka [{(memiliki braket penutup )}]. Jadi [](tidak diijinkan.
• Kurung bersarang dengan benar. [(])tidak diizinkan.
• Kurung keriting tidak dapat berisi kurung kotak di dalamnya. Kurung sederhana tidak bisa mengandung kurung keriting atau bujur sangkar di dalamnya. Jadi [({})], [{[]}]dan ({})tidak diijinkan. Kurung dapat disarangkan dengan kurung serupa, jadi [[{((()))}{{(())}}]()]{()}diizinkan.

Output adalah nilai kebenaran / falsey tunggal sesuai pilihan Anda.

Kode terpendek menang.

Uji kasus

b[[a{(/)}(())+={{}-}],] -> Valid

([h][e][l][l][o]) -> Tidak Valid

[///[{(\/(arg()))}1{{((-)-2)}}]()]{()} -> Valid

hi -> Valid

Retina , 84 byte

^([^][}{)(]|()\(|(?<-2>)\)|(?!\2)((){|(?<-4>)}|(?!\4)(()\[|(?<-6>)])))*$(?!\2|\4|\6)

Cobalah online.

Ini adalah ekstensi yang cukup lurus ke depan (tetapi golf) dari .NET kurung dasar memeriksa .NET regex .

Meskipun ini sangat mungkin dengan kelompok penyeimbang, rekursi Perl pasti memiliki keunggulan di sini . Namun, kedua pendekatan tersebut dikalahkan dengan membuang keanggunan pertandingan regex tunggal demi mengurangi input secara bertahap melalui penggantian yang berulang, seperti yang dijawab Digital Trauma . Ini dapat diimplementasikan dalam 34 byte di Retina, tapi saya ragu untuk memposting kode sendiri, karena saya tidak datang dengan ide.

Retina, 34

Pertama, kredit yang harus dibayar:

• @ ן nɟuɐɯɹɐ ן oɯ yang pertama kali memposting pendekatan ini .
• @ MartinBüttner yang menyarankan jawaban yang tepat ini tetapi terlalu baik dari olahragawan untuk tidak mempostingnya sendiri.

Saya secara mandiri (nanti) datang dengan pendekatan yang sama di sed , jadi saya harap saya tidak menginjak-injak jari kaki ( besar atau sebaliknya) dengan memposting ini:

[^][(){}]

+`\(\)

+`{}

+`\[]

^$

Jadi sekarang dengan sudo apt-get install mono-completedan git clone https://github.com/mbuettner/retina.gitsaya memiliki retina yang berfungsi pada VM Ubuntu saya. Inilah hasil tesnya:

$ while read; do echo "Input: \"$REPLY\", Ouput: $( mono Retina.exe -s brbal.ret <<< "$REPLY" )" ; done < ../brbal.txt 
Input: "[[{((()))}{{(())}}]()]{()}", Ouput: 1
Input: "b[[a{(/)}(())+={{}-}],]", Ouput: 1
Input: "[///[{(/(arg()))}1{{((-)-2)}}]()]{()}", Ouput: 1
Input: "hi", Ouput: 1
Input: "", Ouput: 1
Input: "", Ouput: 1
Input: "([h][e][l][l][o])", Ouput: 0
Input: "[](", Ouput: 0
Input: "[(])", Ouput: 0
Input: "[({})]", Ouput: 0
Input: "[{[]}]", Ouput: 0
Input: "({})", Ouput: 0
$ 

Sed, 53

s/[^][(){}]//g
:;s/()//;t
:b;s/{}//;tb
:c;s/\[\]//;tc

Di sini saya mengklaim itu sejak itu sed tidak benar-benar memiliki konsep kebenaran / falsey, maka saya mendefinisikan string kosong untuk berarti kebenaran dan semua string lainnya berarti falsey.

Jika itu tidak dapat diterima, maka kita dapat menambahkan beberapa baris, dengan demikian:

Sed, 66

s/[^][(){}]//g
:;s/()//;t
:b;s/{}//;tb
:c;s/\[\]//;tc
/./c0
/^$/c1

Ini menghasilkan 0 untuk false dan 1 untuk true.

CJam, 27 26 byte

"(){}[]"q1$f&_,@2/e*{/s}/!

Ini mencetak 1 (benar) atau 0 (salah). Cobalah online! atau verifikasi semua kasus uji.

Bagaimana itu bekerja

"(){}[]"                    Push that string.
        q                   Read all input and push it on the stack.
         1$                 Copy the bracket string.
           f&               Intersect each input character with the bracket string.
                            This pushes an array of singleton and empty strings.
             _,             Get the length of the array (L), i.e., the number of
                            characters in the original input.
               @            Rotate the bracket string on top of the stack.
                2/          Split it into ["()" "{}" "[]"].
                  e*        Repeat each character pair L times.
                    {  }/   For each character pair.
                     /      Split the string on the stack at occurrences of that
                            character pair. This dosn't work properly the first
                            time, since there's a string array on the stack.
                      s     Flatten the resulting array of strings.
                         !  Apply logical NOT.

𝔼𝕊𝕄𝕚𝕟, 43 karakter / 62 byte

!Մ(Մ(Մ(ïċ/⁅⬮[\]{}]⌿),`⬮`,⬯),`{}`,⬯),`[]`,⬯)

Try it here (Firefox only).

Nggak.

Namun, jika saya menggunakan fitur yang baru diimplementasikan, saya bisa turun ke 28 karakter / 47 byte:

!ïċ/⁅⬮[\]{}]⌿)ė`⬮”ė`{}”ė`[]”

Japt , 42 37 byte

Disimpan 5 byte dengan fitur yang saya tidak sadari bahasa saya miliki ... Terima kasih telah menambahkannya, @Downgoat!

Japt benar-benar membutuhkan dukungan RegExp yang lebih baik ...

!Uo"()[\\]\{}" e"\\(\\)" e"\{}" e"\\[]

Cobalah online!

Bagaimana itu bekerja

               // Implicit: U = input string
Uo"()[\\]\{}"  // Remove all non-bracket.
e"\\(\\)"      // Recursively remove all pairs of simple brackets.
e"\{}"         // Recursively remove all pairs of curly brackets.
e"\\[]         // Recursively remove all pairs of square brackets.
!              // Return the Boolean NOT of the result.
               // (true for empty string, false for anything else)
               // Implicit: output last expression

C99, 226 208 207 Bytes

Ini adalah pertama kalinya saya mencoba bermain golf

#define S s[i]
t(s,i)char*s;{int a[]={['[']=0,['{']=0,['(']=0};for(i=0;S*!(S=='{'&a['(']|S=='['&(a['(']|a['{'])|S==']'&(a['(']|a['{'])|S=='}'&a['(']);i++)a[S]++,a[S-S/90-1]--;return !(a['[']+a['{']+a['(']);}

Dapat dibaca:

int t(char* s){
    int a[265]={['[']=0,['{']=0,['(']=0};
    for(int i=0;s[i]&&!((s[i]=='{'&a['(']>0)|(s[i]=='['&(a['(']>0|a['{']>0))|(s[i]==']'&(a['(']>0|a['{']>0))|(s[i]=='}'&a['(']>0));i++){
        a[s[i]]++;
        a[s[i]-(s[i]/90+1)]--;
    }
    return !(a['[']+a['{']+a['(']);
}

Ada buffer overflow tetapi tampaknya tidak mempengaruhi apa pun - saya percaya ini karena perataan.

Perl, 50 + 1 = 51 byte

$_=/^((([^][)(}{]|\((?3)*\))|{(?2)*})|\[(?1)*])*$/

Membutuhkan -pbendera dan cetakan 1untuk hasil yang benar dan tidak ada yang palsu. Saya menghitung -psebagai satu, karena dapat dikombinasikan dengan -e:

> perl -pe '$_=/^((([^][)(}{]|\((?3)*\))|{(?2)*})|\[(?1)*])*$/'

Kode ini pada dasarnya hanya pencocokan regex biasa terhadap input, menggunakan fitur regex rekursif bagus Perl.

Terima kasih untuk Dennis yang telah membantu saya menguji ini dan bermain golf di boiler boiler.

Python 3: 120 byte

Membangun pada jawaban @ Adnan , terbukti lebih pendek untuk digunakan:

import re
x=re.sub('[^[\](){}]','',input())  
for i in('()','{}','[]'):  
 while x.find(i)>=0:x=x.replace(i,'')  
print(x=='')

Python 3, 196 170 160 154 byte

Sangat canggung, terima kasih kepada Mego karena telah menghemat 6 byte:

d=y=""
for C in input():
 for a in "[](){}":y+=C*(C==a)
 y=y.replace("()",d)
x=y
for r in y:x=x.replace("{}",d)
for s in y:x=x.replace("[]",d)
print(x==d)