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

44
Task/Align-columns/REXX/align-columns-2.rexx
View file

@ -1,34 +1,32 @@
/*REXX program displays various alignments for words in a text string.*/
cols=0; size=0; wid.=0; t.=; @.= /*zero|nullify some variables*/
/* [↓] some "text" lines. */
/*REXX program displays various alignments for words in an array of text strings. */
cols=0; size=0; wid.=0; t.=; @.= /*zero or nullify some variables. */
/* [↓] some "text" lines. */
t.1 = "Given$a$text$file$of$many$lines,$where$fields$within$a$line$"
t.2 = "are$delineated$by$a$single$'dollar'$character,$write$a$program"
t.3 = "that$aligns$each$column$of$fields$by$ensuring$that$words$in$each$"
t.4 = "column$are$separated$by$at$least$one$space."
t.5 = "Further,$allow$for$each$word$in$a$column$to$be$either$left$"
t.6 = "justified,$right$justified,$or$center$justified$within$its$column."
/* [↑] a null line is the end*/
do r=1 while t.r\=='' /* [↓] process all text lines*/
_=strip(t.r,,'$') /*strip leading & trailing $.*/
do c=1 until _=='' /* [↓] process each word. */
parse var _ @.r.c '$' _
wid.c=max(wid.c, length(@.r.c)) /*max word width.*/
/* [↑] a null line is the end of text.*/
do r=1 while t.r\=='' /* [↓] process all the text lines. */
_=strip(t.r,,'$') /*strip leading & trailing dollar signs*/
do c=1 until _=='' /* [↓] process each of the words. */
parse var _ @.r.c '$' _
wid.c=max(wid.c, length(@.r.c)) /*find the maximum word width. */
end /*c*/
cols=max(cols,c) /*use the maximum COLS found.*/
cols=max(cols,c) /*use the maximum COLS found. */
end /*r*/
do k=1 for cols; size=size+wid.k; end /*find width of biggest line.*/
rows=r-1 /*adjust ROWS because of DO.*/
do j=1 for 3; say; say /*show 2 blank lines for sep.*/
say center(word('left right center', j) "aligned", size+cols-1, "═")
do r=1 for rows; _= /*build row by row*/
do c=1 for cols; x=@.r.c /* " col " col*/
if j==1 then _=_ left(x, wid.c) /*justified left.*/
if j==2 then _=_ right(x, wid.c) /* " right.*/
if j==3 then _=_ centre(x, wid.c) /* " center.*/
do k=1 for cols; size=size+wid.k; end /*find the width of the biggest line. */
rows=r-1 /*adjust ROWS because of the DO loop.*/
do j=1 for 3; say; say /*show two blank lines for a separator.*/
say center(word('left right center', j) "aligned", size+cols-1, "═") /*show title*/
do r=1 for rows; _= /*construct row by row. */
do c=1 for cols; x=@.r.c /* " col " col. */
if j==1 then _=_ left(x, wid.c) /*justified left. */
if j==2 then _=_ right(x, wid.c) /* " right. */
if j==3 then _=_ centre(x, wid.c) /* " center. */
end /*c*/
say substr(_,2) /*ignore the leading extra blank.*/
say substr(_, 2) /*ignore the leading extra blank. */
end /*r*/
end /*j*/
/*stick a fork in it, we're done.*/
end /*j*/ /*stick a fork in it, we're all done. */

55
Task/Align-columns/REXX/align-columns-3.rexx
View file

@ -1,40 +1,39 @@
/*REXX program displays various alignments for words in a text string.*/
cols=0; size=0; wid.=0; t.=; @.= /*zero|nullify some variables*/
/* [↓] some "text" lines. */
/*REXX pgm displays various (boxed) alignments for words in an array of text strings. */
cols=0; size=0; wid.=0; t.=; @.= /*zero or nullify some variables. */
/* [↓] some "text" lines. */
t.1 = "Given$a$text$file$of$many$lines,$where$fields$within$a$line$"
t.2 = "are$delineated$by$a$single$'dollar'$character,$write$a$program"
t.3 = "that$aligns$each$column$of$fields$by$ensuring$that$words$in$each$"
t.4 = "column$are$separated$by$at$least$one$space."
t.5 = "Further,$allow$for$each$word$in$a$column$to$be$either$left$"
t.6 = "justified,$right$justified,$or$center$justified$within$its$column."
/* [↑] a null line is the end*/
do r=1 while t.r\=='' /* [↓] process all text lines*/
_=strip(t.r,,'$') /*strip leading & trailing $.*/
do c=1 until _=='' /* [↓] process each word. */
parse var _ @.r.c '$' _
wid.c=max(wid.c, length(@.r.c)) /*max word width.*/
/* [↑] a null line is the end of text.*/
do r=1 while t.r\=='' /* [↓] process all the text lines. */
_=strip(t.r,,'$') /*strip leading & trailing dollar signs*/
do c=1 until _=='' /* [↓] process each of the words. */
parse var _ @.r.c '$' _
wid.c=max(wid.c, length(@.r.c)) /*find the maximum word width. */
end /*c*/
cols=max(cols,c) /*use the maximum COLS found.*/
cols=max(cols,c) /*use the maximum COLS found. */
end /*r*/
do k=1 for cols; size=size+wid.k; end /*find width of biggest line.*/
rows=r-1 /*adjust ROWS because of DO.*/
do j=1 for 3; say; say /*show 2 blank lines for sep.*/
say center(word('left right center', j) "aligned", size+cols+1, "═")
do k=1 for cols; size=size+wid.k; end /*find the width of the biggest line. */
rows=r-1 /*adjust ROWS because of the DO loop.*/
do j=1 for 3; say; say /*show two blank lines for a separator.*/
say center(word('left right center', j) "aligned", size+cols+1, "═") /*show title*/
do r=0 to rows; _=; !='│'; if r==0 then !='┬'
do c=1 for cols; x=@.r.c
if r==0 then x=copies("─",wid.c+1)
if j==1 then _=_ || ! || left(x,wid.c)
if j==2 then _=_ || ! || right(x,wid.c)
if j==3 then _=_ || ! || centre(x,wid.c)
do r=0 to rows; _=; !='│'; if r==0 then !='┬'
do c=1 for cols; x=@.r.c
if r==0 then x=copies("─", wid.c +1)
if j==1 then _=_ || ! || left(x, wid.c)
if j==2 then _=_ || ! || right(x, wid.c)
if j==3 then _=_ || ! || centre(x, wid.c)
end /*c*/
if r==0 then do; _= '┌'substr(_,2,length(_)-1)"┐"
bot= '└'substr(_,2,length(_)-2)"┘"
end
else _=_ || !
if r==0 then do; _= '┌'substr(_, 2, length(_) -1)"┐"
bot= '└'substr(_, 2, length(_) -2)"┘"
end
else _=_ || !
say _
end /*r*/
/* [↑] shows words in boxes.*/
say translate(bot,'┴',"┬")
end /*j*/
end /*r*/ /* [↑] shows words in boxes. */
say translate(bot, '┴', "┬")
end /*j*/ /*stick a fork in it, we're all done. */