22 lines
483 B
Text
22 lines
483 B
Text
in Org:RosettaCode
|
|
type Fruits
|
|
enum
|
|
int APPLE, BANANA, CHERRY
|
|
end
|
|
type ExplicitFruits
|
|
enum
|
|
int APPLE = 10
|
|
int BANANA = 20
|
|
int CHERRY = 1
|
|
end
|
|
type Main
|
|
for each generic enumeration in generic[Fruits, ExplicitFruits]
|
|
writeLine("[" + Generic.name(enumeration) + "]")
|
|
writeLine("getting an object with value = 1:")
|
|
writeLine(:enumeration.byValue(1))
|
|
writeLine("iterating over the items:")
|
|
for each var fruit in :enumeration
|
|
writeLine(fruit)
|
|
end
|
|
writeLine()
|
|
end
|