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

22
Task/Remove-duplicate-elements/REXX/remove-duplicate-elements-1.rexx
View file

@ -1,12 +1,12 @@
/*REXX program removes any duplicate elements (items) that are in a list. */
$= '2 3 5 7 11 13 17 19 cats 222 -100.2 +11 1.1 +7 7. 7 5 5 3 2 0 4.4 2'
/*REXX program removes any duplicate elements (items) that are in a list (using a hash).*/
$= '2 3 5 7 11 13 17 19 cats 222 -100.2 +11 1.1 +7 7. 7 5 5 3 2 0 4.4 2' /*item list.*/
say 'original list:' $
say right(words($),17,'─') 'words in the original list.'; say
z=; @.= /*initialize the NEW list and index list*/
do j=1 for words($); y=word($,j) /*process the words (items) in the list.*/
if @.y=='' then z=z y; @.y=. /*Not duplicated? Add to Z list, @ array*/
end /*j*/
say 'modified list:' space(z)
say right(words(z),17,'─') 'words in the modified list.'
/*stick a fork in it, we're all done. */
say right( words($), 17, '─') 'words in the original list.'
z=; @.= /*initialize the NEW list & index list.*/
do j=1 for words($); y=word($,j) /*process the words (items) in the list*/
if @.y=='' then z=z y; @.y=. /*Not duplicated? Add to Z list,@ array*/
end /*j*/
say
say 'modified list:' space(z)
say right( words(z), 17, '─') 'words in the modified list.'
/*stick a fork in it, we're all done. */

22
Task/Remove-duplicate-elements/REXX/remove-duplicate-elements-2.rexx
View file

@ -1,12 +1,12 @@
/*REXX program to remove duplicate elements (items) in a list. */
$= '2 3 5 7 11 13 17 19 cats 222 -100.2 +11 1.1 +7 7. 7 5 5 3 2 0 4.4 2'
/*REXX program removes any duplicate elements (items) that are in a list (using a list).*/
$= '2 3 5 7 11 13 17 19 cats 222 -100.2 +11 1.1 +7 7. 7 5 5 3 2 0 4.4 2' /*item list.*/
say 'original list:' $
say right(words($),13) ' words in the original list.'; say
do j=words($) by -1 to 1; y=word($,j) /*process words in the list, */
_=wordpos(y, $, j+1); if _\==0 then $=delword($, _, 1) /*del if dup.*/
end /*j*/
say 'modified list:' space($)
say right(words($),13) ' words in the modified list.'
/*stick a fork in it, we're done.*/
say right( words($), 17, '─') 'words in the original list.'
#=words($) /*process all the words in the list. */
do j=# by -1 for #; y=word($, j) /*get right-to-Left. */
_=wordpos(y, $, j + 1); if _\==0 then $=delword($,_,1) /*Dup? Then delete it*/
end /*j*/
say
say 'modified list:' space($)
say right( words(z), 17, '─') 'words in the modified list.'
/*stick a fork in it, we're all done. */

23
Task/Remove-duplicate-elements/REXX/remove-duplicate-elements-3.rexx
View file

@ -1,13 +1,12 @@
/*REXX program to remove duplicate elements (items) in a list. */
old= '2 3 5 7 11 13 17 19 cats 222 -100.2 +11 1.1 +7 7. 7 5 5 3 2 0 4.4 2'
say 'original list:' old
say right(words(old),13) ' words in the original list.'; say
new= /*start with a clean slate. */
do j=1 for words(old); _=word(old,j) /*process the words in old list. */
if wordpos(_,new)==0 then new=new _ /*Doesn't exist? Then add to list*/
end /*j*/
/*REXX program removes any duplicate elements (items) that are in a list (using 2 lists)*/
old = '2 3 5 7 11 13 17 19 cats 222 -100.2 +11 1.1 +7 7. 7 5 5 3 2 0 4.4 2'
say 'original list:' old
say right( words(old), 17, '─') 'words in the original list.'
new= /*start with a clean (list) slate. */
do j=1 for words(old); _=word(old, j) /*process the words in the OLD list. */
if wordpos(_,new)==0 then new=new _ /*Doesn't exist? Then add word to NEW.*/
end /*j*/
say
say 'modified list:' space(new)
say right(words(new),13) ' words in the modified list.'
/*stick a fork in it, we're done.*/
say right( words(new), 17, '─') 'words in the modified list.'
/*stick a fork in it, we're all done. */