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

@ -0,0 +1,34 @@
import extensions.
import system'collections.
singleton Alphabet :: BaseEnumerable
{
enumerator = Enumerator::
{
char current.
get = current.
bool next
[
if ($nil==current)
[
current := $97.
];
if (current != $122)
[
current := (current toInt + 1) toChar.
];
[
^ false
].
^ true
]
}.
}
program =
[
console printLine(Alphabet).
].