RosettaCodeData/Task/Enumerations/Modula-3/enumerations-3.mod3

3 lines
75 B
Plaintext

ORD(Fruit.Apple); (* Returns 0 *)
VAL(0, Fruit); (* Returns Fruit.Apple *)