Add tasks for all the new languages

Task/Enumerations/FreeBASIC/enumerations.freebasic

@@ -0,0 +1,17 @@
+' FB 1.05.0 Win64
+
+Enum Animals
+  Cat
+  Dog
+  Zebra
+End Enum
+
+Enum Dogs
+  Bulldog = 1
+  Terrier = 2
+  WolfHound = 4
+End Enum
+
+Print Cat, Dog, Zebra
+Print Bulldog, Terrier, WolfHound
+Sleep

Task/Enumerations/FutureBasic/enumerations.futurebasic

@@ -0,0 +1,21 @@
+include "ConsoleWindow"
+
+begin enum 1
+_apple
+_banana
+_cherry
+end enum
+
+begin enum
+_appleExplicit  = 10
+_bananaExplicit = 15
+_cherryExplicit = 30
+end enum
+
+print "_apple =";  _apple
+print "_banana ="; _banana
+print "_cherry ="; _cherry
+print
+print "_appleExplicit =";  _appleExplicit
+print "_bananaExplicit ="; _bananaExplicit
+print "_cherryExplicit ="; _cherryExplicit

Task/Enumerations/Lingo/enumerations-1.lingo

@@ -0,0 +1,32 @@
+-- parent script "Enumeration"
+
+property ancestor
+
+on new (me)
+  data = [:]
+  repeat with i = 2 to the paramCount
+    data[param(i)] = i-1
+  end repeat
+  me.ancestor = data
+  return me
+end
+
+on setAt (me)
+  -- do nothing
+end
+
+on setProp (me)
+  -- do nothing
+end
+
+on deleteAt (me)
+  -- do nothing
+end
+
+on deleteProp (me)
+  -- do nothing
+end
+
+on addProp (me)
+  -- do nothing
+end

Task/Enumerations/Lingo/enumerations-2.lingo

@@ -0,0 +1,34 @@
+enumeration = script("Enumeration").new("APPLE", "BANANA", "CHERRY")
+
+put enumeration["BANANA"]
+-- 2
+
+-- try to change a value after construction (fails)
+enumeration["BANANA"] = 666
+put enumeration["BANANA"]
+-- 2
+
+-- try to change a value after construction using setProp (fails)
+enumeration.setProp("BANANA", 666)
+put enumeration["BANANA"]
+-- 2
+
+-- try to delete a value after construction (fails)
+enumeration.deleteAt(2)
+put enumeration["BANANA"]
+-- 2
+
+-- try to delete a value after construction using deleteProp (fails)
+enumeration.deleteProp("BANANA")
+put enumeration["BANANA"]
+-- 2
+
+-- try to add a new value after construction (fails)
+enumeration["FOO"] = 666
+put enumeration["FOO"]
+-- <Void>
+
+-- try to add a new value after construction using addProp (fails)
+enumeration.addProp("FOO", 666)
+put enumeration["FOO"]
+-- <Void>

Task/Enumerations/Nim/enumerations.nim

@@ -0,0 +1,8 @@
+type Fruits = enum Apple, Banana, Cherry
+
+type Fruits = enum Apple = 0, Banana = 1, Cherry = 2 # with values
+
+type Fruits {.pure.} = enum Apple, Banana, Cherry # scoped enum
+var i: int = Apple # error for scoped enum
+
+type Fruits = enum Apple = "Apple", Banana = "Banana", Cherry = "Cherry" # with string literals

Task/Enumerations/Oforth/enumerations.oforth

@@ -0,0 +1 @@
+[ $apple, $banana, $cherry ] const: Fruits

Task/Enumerations/Phix/enumerations.phix

@@ -0,0 +1,2 @@
+enum apple, banana, orange
+enum apple=5, banana=10, orange=15

Task/Enumerations/Ring/enumerations.ring

@@ -0,0 +1,6 @@
+apple = 0
+banana = 1
+cherry = 2
+see "apple : " + apple + nl
+see "banana : " + banana + nl
+see "cherry : " + cherry + nl

Task/Enumerations/Sidef/enumerations-1.sidef

@@ -0,0 +1 @@
+enum {Apple, Banana, Cherry};   # numbered 0 through 2

Task/Enumerations/Sidef/enumerations-2.sidef

@@ -0,0 +1,6 @@
+enum {
+    Apple=3,
+    Banana,         # gets the value 4
+    Cherry="a",
+    Orange,         # gets the value "b"
+};

Task/Enumerations/Swift/enumerations.swift

@@ -0,0 +1,16 @@
+enum Fruit {
+    case Apple
+    case Banana
+    case Cherry
+}
+// or
+enum Fruit {
+    case Apple, Banana, Cherry
+}
+
+enum Season : Int {
+    case Winter = 1
+    case Spring = 2
+    case Summer = 3
+    case Autumn = 4
+}

Task/Enumerations/jq/enumerations.jq

@@ -0,0 +1,2 @@
+{"fruits" : { "apple" : null, "banana" : null, "cherry" : null }
+{"fruits" : { "apple" : 0, "banana" : 1, "cherry" : 2 }