June 2018 Update
This commit is contained in:
parent
ba8067c3b7
commit
22f33d4004
5278 changed files with 84726 additions and 14379 deletions
|
|
@ -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).
|
||||
].
|
||||
Loading…
Add table
Add a link
Reference in a new issue