Balanced brackets: Difference between revisions
m
→{{header|Amazing Hopper}}
Line 907:
#( error_pos = cat(replicate(" ",i-1),"^\n") ) )
#( error_pos=cat(cat(" ",error_pos),"(missing closed bracket)\n\n")))
solo si ( #(is neg(b)),\
#( error_pos=cat(error_pos,"(extra closed bracket)\n\n")))
imprimir ( #( rpad(" ",40,bra) ), ": ", \
solo si (b, "un"), "balanced\n",\
solo si (b, error_pos) )
Line 918 ⟶ 924:
DATA_BRACKET:
datos ("","[ [ ] [ [[] ][] ] [[]] ]","[[ ][[[ ][ ]]"
"[ a-b * [c/d] + [[10 * sin 30 ]-1] ]",\
"[ a-b * [c/d] + [[10 * sin 30 ]]-1] ]")
back
</syntaxhighlight>
{{out}}
<pre>
: balanced
[ [ ] [ [[] ][] ] [[]] ] : balanced
[[ ][[[ ][ ]] : unbalanced
^
(missing closed bracket)
[][][[]]][ : unbalanced▼
▲[][][[]]][ : unbalanced
^
(extra closed bracket)
][[]][] [[[]]] [][] : unbalanced▼
^▼
[][] [][][[]] : balanced▼
▲][[]][] [[[]]] [][] : unbalanced
▲^
(extra closed bracket)
▲[][] [][][[]] : balanced
[ a-b * [c/d] + [[10 * sin 30 ]-1] ] : balanced
[ a-b * [c/d] + [[10 * sin 30 ]]-1] ] : unbalanced
^
(extra closed bracket)
</pre>
| |||