September 2017 Update

Task/Generic-swap/Dc/generic-swap-1.dc

@@ -0,0 +1,2 @@
+1 2 SaSbLaLb f
+=2 1

Task/Generic-swap/Dc/generic-swap-2.dc

@@ -0,0 +1,2 @@
+1 2 r f
+=2 1

Task/Generic-swap/Elena/generic-swap.elena

@@ -0,0 +1,24 @@
+import extensions.
+
+singleton swap
+{
+    eval ref:v1 ref:v2
+    [
+        var tmp := v1 value.
+
+        v1 object := v2 value.
+        v2 object := tmp.
+    ]
+}
+
+program =
+[
+    var n := 2.
+    var s := "abc".
+
+    console printLine(n," ",s).
+
+    swap eval ref:n ref:s.
+
+    console printLine(n," ",s).
+].

Task/Generic-swap/Gambas/generic-swap.gambas

@@ -0,0 +1,9 @@
+Public Sub Main()
+Dim vA As Variant = " World"
+Dim vB As Variant = 1
+
+Swap vA, vB
+
+Print vA; vB
+
+End

Task/Generic-swap/JavaScript/generic-swap-2.js

@@ -1,9 +1,9 @@
 function swap(aName, bName) {
-  return ('(function(){ arguments[0] = aName; aName = bName; bName = arguments[0] })()'
+  eval('(function(){ arguments[0] = aName; aName = bName; bName = arguments[0] })()'
     .replace(/aName/g, aName)
     .replace(/bName/g, bName)
   )
 }
 var x = 1
 var y = 2
-eval(swap('x', 'y'))
+swap('x', 'y')

Task/Generic-swap/Kotlin/generic-swap.kotlin

@@ -0,0 +1,20 @@
+// version 1.1
+
+fun <T> swap(t1: T, t2: T) = Pair(t2, t1)
+
+fun main(args: Array<String>) {
+    var a = 3
+    var b = 4
+    val c = swap(a, b) // infers that swap<Int> be used
+    a = c.first
+    b = c.second
+    println("a = $a")
+    println("b = $b")
+    var d = false
+    var e = true
+    val f = swap(d, e) // infers that swap<Boolean> be used
+    d = f.first
+    e = f.second
+    println("d = $d")
+    println("e = $e")
+}

Task/Generic-swap/Nimrod/generic-swap.nimrod

@@ -1 +0,0 @@
-swap(a, b)

Task/Generic-swap/OASYS-Assembler/generic-swap-1.oasys

@@ -0,0 +1 @@
+%A#%B#<%B#%A#<>>

Task/Generic-swap/OASYS-Assembler/generic-swap-2.oasys

@@ -0,0 +1 @@
+[&SW,A^,B^],A^<,B^<<,B^<,A^<<>>

Task/Generic-swap/OASYS-Assembler/generic-swap-3.oasys

@@ -0,0 +1 @@
++%A#%B#&SW

Task/Generic-swap/Stata/generic-swap.stata

@@ -0,0 +1,5 @@
+mata
+a=1,2,3
+b="ars longa vita brevis"
+swap(a, b)
+end

Task/Generic-swap/Zkl/generic-swap.zkl

@@ -0,0 +1,9 @@
+class C{var v; fcn init(n){v=n}}
+var c1=C(1), c2=C(2);
+println(c1.v," : ",c2.v);
+fcn swap(ca,cb,name){
+   tmp:=ca.resove(name);
+   ca.setVar(name,cb.resolve(name)); cb.setVar(name,tmp)
+}
+swap(c1,c2,"v");
+println(c1.v," : ",c2.v);