비 펀지 98 – 26 31 20 19 문자

~:']-!\'[-!-+:0`j#q

거대한 조건을 제거했습니다. 이제 프로그램은 다음과 같이 작동합니다.

~:   read an input char and duplicate it

']-! push a 1 if the char is the ] char, 0 otherwise

\    swap the comparison value for the duplicated input char

'[-! push a 1 if the char is the [ char, 0 otherwise

-    subtract the two comparison values. If the second one is 1, the first is 0,
     so the result is -1. Else if the second one is 0, the first is 1 and the result is
     1. Else, the first and the second are both 0 and the result is 0

+    Add the number to the counter (which is 0 if there is none already)

:0`  test if the counter is positive (that'd mean an invalid program). Pushes a 1 if
     positive, 0 otherwise.

j#q  if the counter is positive, then this jumps to the q. Otherwise, it skips the q
     and continues to the ~ at the beginning of the line. If there are no more chars in
     the input, then the IP will be sent back to the q.

q프로그램을 종료하고 최상위 값을 오류 값으로 표시합니다. 의 값 이 너무 많으면 -1 1이되고 ], 균형이 맞으면 0 이되고, 너무 많으면 양수[ 입니다. 숫자가 양의 음수이면 프로그램의 균형을 맞추기 위해 해당 숫자의 절대 값 이 많이] 필요합니다.

편집 : 전환 증가 및 감소. [카운터를 증가시키고 ]감소시키는 데 사용됩니다. 종료 조건의 경우 카운터가 음수가 아닌 양수인지 확인해야하기 때문에 1 문자를 저장합니다.

구 버전

~:'[-!j;\1+\#;']-!j;1-#;:0\`j#q

이 코드는 다음과 같이 작동합니다.

~    read one char of input
:    duplicate it
'[-! push 1 if the character is [, 0 otherwise
j    jump that number of characters
;    skip until next ;
\1+\ increment counter

similarily for ].

#q when end of input is reached, ~ reflects the IP back. q ends the program with the error value on the stack.

편집 : 이 같은 입력을 받아들 였으므로 ][이제는 카운트가 음수가 될 때마다 끝납니다.

:0\`j

답변

exit({:+.<./)+/\+/1 _1*'[]'=/1!:1[3

exit $<.read.tr('^[]','').tap{|x|0while x.gsub!('[]','')}.empty?

exit ARGF.read.tr('^[]','').tap{|x| 0 while x.gsub!('[]','')}.empty?

exit $<.read.tr('^[]','').tap{|x|0while x.gsub!('[]','')}.size>0

perl -0ne 'exit!/^(([^][]|\[(?1)\])*)$/'

[ -z `tr -Cd []|sed ":a;s/\[\]//g;t a"` ]