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

2016 Update

Browse source
This commit is contained in:
Tina Müller 2016-12-05 22:15:40 +01:00
parent 948b86eafa
commit dcf5d15da3
7965 changed files with 139854 additions and 31002 deletions
Download patch file Download diff file Expand all files Collapse all files

27
Task/Find-common-directory-path/REXX/find-common-directory-path.rexx
View file

@ -1,15 +1,16 @@
/*REXX program finds common directory path for a list of files. */
@.= /*define all file lists to null. */
@.1 = '/home/user1/tmp/coverage/test'
@.2 = '/home/user1/tmp/covert/operator'
@.3 = '/home/user1/tmp/coven/members'
L=length(@.1)
do j=2 while @.j\=='' /*start with the second string. */
_ = compare(@.j,@.1); if _==0 then iterate /*equal.*/
L = min(L,_) /*find the minimum equal strings.*/
/*REXX program finds the common directory path for a list of files. */
@. = /*the default for all file lists (null)*/
@.1 = '/home/user1/tmp/coverage/test'
@.2 = '/home/user1/tmp/covert/operator'
@.3 = '/home/user1/tmp/coven/members'
L=length(@.1) /*use the length of the first string. */
do j=2 while @.j\=='' /*start search with the second string. */
_=compare(@.j, @.1) /*use REXX compare BIF for comparison*/
if _==0 then iterate /*Strings are equal? Then they're equal*/
L=min(L, _) /*find the minimum length equal strings*/
end /*j*/
common = left(@.1,lastpos('/',@.1,L)) /*find the shortest DIR string.*/
if right(common,1)=='/' then common=left(common, max(0,length(common)-1))
say 'common directory path: ' common /*[↑] handle trailing / delimiter*/
/*stick a fork in it, we're done.*/
common=left( @.1, lastpos('/', @.1,L) ) /*determine the shortest DIR string. */
if right(common, 1)=='/' then common=left(common, max(0, length(common) - 1) )
say 'common directory path: ' common /* [↑] handle trailing / delimiter*/
/*stick a fork in it, we're all done. */