Data update

Task/Generic-swap/Ada/generic-swap-1.adb

@@ -0,0 +1,10 @@
+generic
+   type Swap_Type is private; -- Generic parameter
+procedure Generic_Swap (Left, Right : in out Swap_Type);
+
+procedure Generic_Swap (Left, Right : in out Swap_Type) is
+   Temp : constant Swap_Type := Left;
+begin
+   Left := Right;
+   Right := Temp;
+end Generic_Swap;

Task/Generic-swap/Ada/generic-swap-2.adb

@@ -0,0 +1,7 @@
+with Generic_Swap;
+...
+type T is ...
+procedure T_Swap is new Generic_Swap (Swap_Type => T);
+A, B : T;
+...
+T_Swap (A, B);

Task/Generic-swap/COBOL/generic-swap.cob

@@ -0,0 +1,74 @@
+       PROGRAM-ID. SWAP-DEMO.
+       AUTHOR.  Bill Gunshannon.
+       INSTALLATION.  Home.
+       DATE-WRITTEN.  16 December 2021.
+      ************************************************************
+      ** Program Abstract:
+      **   A simple program to demonstrate the SWAP subprogram.
+      **
+      ************************************************************
+
+       DATA DIVISION.
+
+       WORKING-STORAGE SECTION.
+
+       01  Val1                 PIC X(72).
+       01  Val2                 PIC X(72).
+
+       PROCEDURE DIVISION.
+
+       Main-Program.
+
+          DISPLAY 'Enter a Value: ' WITH NO ADVANCING.
+          ACCEPT Val1.
+          DISPLAY 'Enter another Value: ' WITH NO ADVANCING.
+          ACCEPT Val2.
+          DISPLAY ' ' .
+          DISPLAY 'First value: ' FUNCTION TRIM(Val1) .
+          DISPLAY 'Second value: ' FUNCTION TRIM(Val2) .
+
+           CALL "SWAP" USING BY REFERENCE Val1,  BY REFERENCE Val2.
+
+          DISPLAY ' '.
+          DISPLAY 'After SWAP '.
+          DISPLAY ' '.
+          DISPLAY 'First value: ' FUNCTION TRIM(Val1).
+          DISPLAY 'Second value: ' FUNCTION TRIM(Val2).
+
+           STOP RUN.
+
+       END PROGRAM SWAP-DEMO.
+
+       IDENTIFICATION DIVISION.
+       PROGRAM-ID. SWAP.
+       AUTHOR.  Bill Gunshannon.
+       INSTALLATION.  Home.
+       DATE-WRITTEN.  16 December 2021.
+      ************************************************************
+      ** Program Abstract:
+      **   SWAP any Alphanumeric value.  Only limit is 72
+      **     character size.  But that can be adjusted for
+      **     whatever use one needs.
+      ************************************************************
+
+       DATA DIVISION.
+
+       WORKING-STORAGE SECTION.
+
+       01  TEMP                  PIC X(72).
+
+       LINKAGE SECTION.
+
+       01  Field1                PIC X(72).
+       01  Field2                PIC X(72).
+
+       PROCEDURE DIVISION
+               USING BY REFERENCE Field1, BY REFERENCE Field2.
+
+       MOVE Field1 to TEMP.
+       MOVE Field2 to Field1.
+       MOVE TEMP to Field2.
+
+       GOBACK.
+
+       END PROGRAM SWAP.

Task/Generic-swap/Chapel/generic-swap-1.chpl

@@ -0,0 +1 @@
+a <=> b

Task/Generic-swap/Chapel/generic-swap-2.chpl

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

Task/Generic-swap/Emacs-Lisp/generic-swap-1.el

@@ -0,0 +1,6 @@
+(defun swap (a-sym b-sym)
+  "Swap values of the variables given by A-SYM and B-SYM."
+  (let ((a-val (symbol-value a-sym)))
+    (set a-sym (symbol-value b-sym))
+    (set b-sym a-val)))
+(swap 'a 'b)

Task/Generic-swap/Emacs-Lisp/generic-swap-2.el

@@ -0,0 +1,2 @@
+(defmacro swap (a b)
+  `(setq ,b (prog1 ,a (setq ,a ,b))))

Task/Generic-swap/Emacs-Lisp/generic-swap-3.el

@@ -0,0 +1,8 @@
+(require 'cl-lib)
+(defmacro swap (a b)
+  `(cl-psetf ,a ,b
+             ,b ,a))
+
+(setq lst (list 123 456))
+(swap (car lst) (cadr lst))
+;; now lst is '(456 123)

Task/Generic-swap/Euphoria/generic-swap.eu

@@ -0,0 +1,9 @@
+include std/console.e -- for display
+
+object x = 3.14159
+object y = "Rosettacode"
+
+{y,x} = {x,y}
+
+display("x is now []",{x})
+display("y is now []",{y})

Task/Generic-swap/Gleam/generic-swap-1.gleam

@@ -0,0 +1 @@
+let #(x, y) = #(y, x)

Task/Generic-swap/Gleam/generic-swap-2.gleam

@@ -0,0 +1,3 @@
+pub fn swap(tuple: #(a, b)) -> #(b, a) {
+  #(tuple.1, tuple.0)
+}

Task/Generic-swap/PowerShell/generic-swap-1.ps1

@@ -0,0 +1 @@
+$b, $a = $a, $b

Task/Generic-swap/PowerShell/generic-swap-2.ps1

@@ -0,0 +1,3 @@
+function swap ([ref] $a, [ref] $b) {
+    $a.Value, $b.Value = $b.Value, $a.Value
+}

Task/Generic-swap/PowerShell/generic-swap-3.ps1

@@ -0,0 +1 @@
+swap ([ref] $a) ([ref] $b)

Task/Generic-swap/Rebol/generic-swap.rebol

@@ -0,0 +1,18 @@
+Rebol [
+	Title: "Generic Swap"
+	URL: http://rosettacode.org/wiki/Generic_swap
+	Reference: [http://reboltutorial.com/blog/rebol-words/]
+]
+
+swap: func [
+	"Swap contents of variables."
+	a [word!] b [word!] /local x
+][
+	x: get a
+	set a get b
+	set b x
+]
+
+answer: 42  ship: "Heart of Gold"
+swap 'answer 'ship ; Note quoted variables.
+print rejoin ["The answer is " answer ", the ship is " ship "."]

Task/Generic-swap/VBScript/generic-swap-1.vbs

@@ -0,0 +1,6 @@
+sub swap( byref x, byref y )
+	dim temp
+	temp = x
+	x = y
+	y = temp
+end sub

Task/Generic-swap/VBScript/generic-swap-2.vbs

@@ -0,0 +1,7 @@
+dim a
+a = "woof"
+dim b
+b = now()
+swap a,b
+wscript.echo a
+wscript.echo b

Task/Generic-swap/VBScript/generic-swap-3.vbs

@@ -0,0 +1,2 @@
+5/02/2010 2:35:36 PM
+woof