June 2018 Update
This commit is contained in:
parent
ba8067c3b7
commit
22f33d4004
5278 changed files with 84726 additions and 14379 deletions
|
|
@ -1,21 +1,22 @@
|
|||
import system'routines.
|
||||
import extensions.
|
||||
import extensions'text.
|
||||
|
||||
randomBrackets =
|
||||
{
|
||||
new : aLength
|
||||
[
|
||||
if (0 == aLength)
|
||||
[ ^emptyLiteralValue ];
|
||||
[ ^emptyLiteral ];
|
||||
[
|
||||
var aBrackets :=
|
||||
Array new length:(aLength int); populate(:i)($91)
|
||||
Array new(aLength); populate(:i)($91)
|
||||
+
|
||||
Array new length:(aLength int); populate(:i)($93).
|
||||
Array new(aLength); populate(:i)($93).
|
||||
|
||||
aBrackets := aBrackets randomize:(aLength * 2).
|
||||
|
||||
^ aBrackets summarize:(String new); literal
|
||||
^ aBrackets summarize:(StringWriter new); toLiteral
|
||||
]
|
||||
]
|
||||
}.
|
||||
|
|
@ -32,7 +33,7 @@ extension op
|
|||
]
|
||||
}
|
||||
|
||||
program =
|
||||
public program =
|
||||
[
|
||||
0 to:9 do(:aLength)
|
||||
[
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue