2 lines
188 B
Ada
2 lines
188 B
Ada
type Fruit is (apple, banana, cherry); -- No specification of the representation value;
|
|
for Fruit use (apple => 1, banana => 2, cherry => 4); -- specification of the representation values
|