Data update

Task/Copy-a-string/ALGOL-W/copy-a-string.alg

@@ -1,9 +0,0 @@
-begin
-    % strings are (fixed length) values in algol W. Assignment makes a copy   %
-    string(10) a, copyOfA;
-    a := "some text";
-    copyOfA := a;
-    % assignment to a will not change copyOfA                                 %
-    a := "new value";
-    write( a, copyOfA )
-end.

Task/Copy-a-string/Ada/copy-a-string-1.ada

@@ -1,2 +0,0 @@
-Src : String := "Hello";
-Dest : String := Src;

Task/Copy-a-string/Ada/copy-a-string-2.ada

@@ -1,3 +0,0 @@
-Src : String := "Rosetta Stone";
-Dest : String := Src(1..7); -- Assigns "Rosetta" to Dest
-Dest2 : String := Src(9..13); -- Assigns "Stone" to Dest2

Task/Copy-a-string/Ada/copy-a-string-3.ada

@@ -1,6 +0,0 @@
--- Instantiate the generic package Ada.Strings.Bounded.Generic_Bounded_Length with a maximum length of 80 characters
-package Flexible_String is new Ada.Strings.Bounded.Generic_Bounded_Length(80);
-use Flexible_String;
-
-Src : Bounded_String := To_Bounded_String("Hello");
-Dest : Bounded_String := Src;

Task/Copy-a-string/Ada/copy-a-string-4.ada

@@ -1,3 +0,0 @@
--- The package Ada.Strings.Unbounded contains the definition of the Unbounded_String type and all its methods
-Src : Unbounded_String := To_Unbounded_String("Hello");
-Dest : Unbounded_String := Src;

Task/Copy-a-string/Arturo/copy-a-string.arturo

@@ -1,4 +1,4 @@
-a: new "Hello"
+a: "Hello"
 b: a            ; reference the same string
 
 ; changing one string in-place

Task/Copy-a-string/AutoIt/copy-a-string.autoit

@@ -1,2 +0,0 @@
-$Src= "Hello"
-$dest = $Src

Task/Copy-a-string/COBOL/copy-a-string.cobol

@@ -1,2 +0,0 @@
-MOVE "Hello" TO src
-MOVE src TO dst

Task/Copy-a-string/EasyLang/copy-a-string.easy

@@ -1,3 +1,5 @@
 a$ = "hello"
 b$ = a$
+a$ &= " a"
+print a$
 print b$

Task/Copy-a-string/Emacs-Lisp/copy-a-string.l

@@ -1,7 +0,0 @@
-(let* ((str1 "hi")
-       (str1-ref str1)
-       (str2 (copy-sequence str1)))
-  (eq str1 str1-ref) ;=> t
-  (eq str1 str2) ;=> nil
-  (equal str1 str1-ref) ;=> t
-  (equal str1 str2)) ;=> t

Task/Copy-a-string/Euphoria/copy-a-string.ex

@@ -1,2 +0,0 @@
-sequence first = "ABC"
-sequence newOne = first

Task/Copy-a-string/PowerShell/copy-a-string-1.psh

@@ -1,2 +0,0 @@
-$str = "foo"
-$dup = $str

Task/Copy-a-string/PowerShell/copy-a-string-2.psh

@@ -1 +0,0 @@
-$dup = $str.Clone()

Task/Copy-a-string/REBOL/copy-a-string.rebol

@@ -1,21 +0,0 @@
-REBOL [
-    Title: "String Copy"
-    URL: http://rosettacode.org/wiki/Copy_a_string
-]
-
-x: y: "Testing."
-y/2: #"X"
-print ["Both variables reference same string:" mold x "," mold y]
-
-x: "Slackeriffic!"
-print ["Now reference different strings:" mold x "," mold y]
-
-y: copy x        ; String copy here!
-y/3: #"X"        ; Modify string.
-print ["x copied to y, then modified:" mold x "," mold y]
-
-y: copy/part x 7 ; Copy only the first part of y to x.
-print ["Partial copy:" mold x "," mold y]
-
-y: copy/part  skip x 2  3
-print ["Partial copy from offset:" mold x "," mold y]

Task/Copy-a-string/REXX/copy-a-string.rexx

@@ -1,2 +1,16 @@
-src = "this is a string"
-dst = src
+-- 8 Nov 2025
+include Setting
+
+say 'COPY A STRING'
+say version
+say
+say 'Just assign the string variable to a new one.'
+a='This is a string.'
+b=a
+say a b
+c="This is also a string."
+d=c
+say d c
+exit
+
+include Abend

Task/Copy-a-string/Tcl/copy-a-string.tcl

@@ -1,2 +0,0 @@
-set src "Rosetta Code"
-set dst $src