aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

18
Task/Copy-a-string/OoRexx/copy-a-string.rexx Normal file
View file

@ -0,0 +1,18 @@
/* Rexx ***************************************************************
* 16.05.2013 Walter Pachl
**********************************************************************/
s1 = 'This is a Rexx string'
s2 = s1 /* does not copy the string */
Say 's1='s1
Say 's2='s2
i1=s1~identityhash; Say 's1~identityhash='i1
i2=s2~identityhash; Say 's2~identityhash='i2
s2 = s2~changestr('*', '*') /* creates a modified copy */
Say 's1='s1
Say 's2='s2
i1=s1~identityhash; Say 's1~identityhash='i1
i2=s2~identityhash; Say 's2~identityhash='i2