langs a-z

Task/Enumerations/Oz/enumerations-1.oz

@@ -0,0 +1,6 @@
+declare
+  fun {IsFruit A}
+     {Member A [apple banana cherry]}
+  end
+in
+  {Show {IsFruit banana}}

Task/Enumerations/Oz/enumerations-2.oz

@@ -0,0 +1,4 @@
+declare
+  Apple = 1
+  Banana = 2
+  Cherry = 3

Task/Enumerations/Oz/enumerations-3.oz

@@ -0,0 +1,8 @@
+declare
+  proc {Enumeration Xs}
+     Xs = {List.number 1 {Length Xs} 1}
+  end
+
+  [Apple Banana Cherry] = {Enumeration}
+in
+  {Show Cherry}