Anonymous user
Balanced brackets: Difference between revisions
→{{header|Elena}}
(Updated third D entry) |
|||
Line 1,198:
#define extensions.
#symbol randomBrackets =
[
^ (0 == aLength)
#var aBrackets := Array new &type'length:aLength &function: &&:i[ CharValue new:91 ] + Array new &type'length:aLength &function: &&:i[ CharValue new:93 ].▼
? [ emptyLiteralValue ]
! [
▲ #var aBrackets :=
randomControl randomize:(aLength * 2) &array:aBrackets.
^ Summing new:(String new) foreach:aBrackets
].
].
#symbol isBalanced =
[
#var aCounter := Integer new:0.
control foreach:aLiteral &until:
^ (0 == aCounter).
].
#symbol program =
[
control
[
#var anStr := randomBrackets:aLength.
#var balanced := isBalanced:anStr.
].
| |||