June 2018 Update

This commit is contained in:
Ingy döt Net 2018-06-22 20:57:24 +00:00
parent ba8067c3b7
commit 22f33d4004
5278 changed files with 84726 additions and 14379 deletions

View file

@ -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)
[