Balanced brackets: Difference between revisions
→{{header|ALGOL 68}}
(added Easylang) |
|||
Line 884:
]][][]]][]][][]][[[[[[][: not ok
]]][][][]][][[]][[[][][[: not ok
</pre>
=={{header|Amazing Hopper}}==
<syntaxhighlight lang="c">
#include <basico.h>
algoritmo
brack_izq="[", brack_der="]" // bug de Hopper :(
largo de datos=0
preparar datos (DATA_BRACKET)
obtener tamaño de datos, menos '1', guardar en 'largo de datos'
iterar
brackets="", obtener dato, guardar en 'brackets'
i=1, b=0
iterar grupo( ++i, #( i<=len(brackets) && is not neg (b) ),\
#( b += ((brackets[i]==brack_izq) - (brackets[i]==brack_der)) ) )
imprimir ( #( rpad(" ",25,brackets) ), ": ", \
solo si (b, "un"), "balanced\n" )
mientras ' largo de datos-- '
terminar
subrutinas
DATA_BRACKET:
datos ("[ [ ] [ [[] ][] ] [[]] ]","[[ ][[[ ][ ]]")
datos ("[][][[]]][","][[]][] [[[]]] [][]","[][] [][][[]]")
back
</syntaxhighlight>
{{out}}
<pre>
[ [ ] [ [[] ][] ] [[]] ] : balanced
[[ ][[[ ][ ]] : unbalanced
[][][[]]][ : unbalanced
][[]][] [[[]]] [][] : unbalanced
[][] [][][[]] : balanced
</pre>
| |||