CDE

Task/Enumerations/E/enumerations-1.e

@@ -0,0 +1,3 @@
+def apple  { to value() { return 0 } }
+def banana { to value() { return 1 } }
+def cherry { to value() { return 2 } }

Task/Enumerations/E/enumerations-2.e

@@ -0,0 +1,6 @@
+interface Fruit guards FruitStamp {}
+def apple  implements FruitStamp {}
+def banana implements FruitStamp {}
+def cherry implements FruitStamp {}
+
+def eat(fruit :Fruit) { ... }

Task/Enumerations/E/enumerations-3.e

@@ -0,0 +1,4 @@
+def [Fruit, [=> apple, => banana, => cherry]] := makeEnumeration()
+
+def [Fruit, [=> apple, => banana, => cherry]] :=
+  makeEnumeration(0, ["apple", "banana", "cherry"])