Balanced brackets: Difference between revisions
Content deleted Content added
L++ |
|||
| Line 1,197: | Line 1,197: | ||
#define system'routines. |
#define system'routines. |
||
#define extensions. |
#define extensions. |
||
// --- RandomBrackets --- |
|||
#symbol randomBrackets = (:aLength) |
#symbol randomBrackets = (:aLength) |
||
| Line 1,203: | Line 1,205: | ||
? [ emptyLiteralValue ] |
? [ emptyLiteralValue ] |
||
! [ |
! [ |
||
#var aBrackets := arrayControl |
#var aBrackets := arrayControl |
||
new &length:aLength &each: i[ CharValue new:91 ] + arrayControl new &length:aLength &each: i[ CharValue new:93 ]. |
|||
randomControl randomize:(aLength * 2) &array:aBrackets. |
randomControl randomize:(aLength * 2) &array:aBrackets. |
||
| Line 1,219: | Line 1,222: | ||
^ (0 == aCounter). |
^ (0 == aCounter). |
||
]. |
]. |
||
// --- Program --- |
|||
#symbol program = |
#symbol program = |
||
| Line 1,231: | Line 1,236: | ||
console readChar. |
console readChar. |
||
]. |
].</lang> |
||
</lang> |
|||
=={{header|Erlang}}== |
=={{header|Erlang}}== |
||