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

Data update

Browse source
This commit is contained in:
Ingy döt Net 2026-02-01 16:33:20 -08:00
parent 5150844a7d
commit 4bb20c9b71
7735 changed files with 38060 additions and 199180 deletions
Download patch file Download diff file Expand all files Collapse all files

49
Task/Multiplication-tables/REXX/multiplication-tables.rexx
View file

@ -1,23 +1,28 @@
/*REXX program displays a NxN multiplication table (in a boxed grid) to the terminal.*/
parse arg sz . /*obtain optional argument from the CL.*/
if sz=='' | sz=="," then sz= 12 /*Not specified? Then use the default.*/
w= max(3, length(sz**2) ); __= copies('─', w) /*calculate the width of the table cell*/
___= __'──' /*literals used in the subroutines. */
do r=1 for sz /*calculate & format a row of the table*/
if r==1 then call top left('│(x)', w+1) /*show title of multiplication table. */
$= '│'center(r"x", w)"│" /*index for a multiplication table row.*/
do c=1 for sz; prod= /*build a row of multiplication table. */
if r<=c then prod= r * c /*only display when the row ≤ column. */
$= $ || right(prod, w+1) '|' /*append product to a cell in the row. */
end /*k*/
say $ /*show a row of multiplication table. */
if r\==sz then call sep /*show a separator except for last row.*/
end /*j*/
call bot /*show the bottom line of the table. */
exit 0 /*stick a fork in it, we're all done. */
/*──────────────────────────────────────────────────────────────────────────────────────*/
hdr: $= ?'│'; do i=1 for sz; $=$ || right(i"x|", w+3); end; say $; call sep; return
dap: $= left($, length($) - 1)arg(1); return
top: $= '┌'__"┬"copies(___'┬', sz); call dap "┐"; ?= arg(1); say $; call hdr; return
sep: $= '├'__"┼"copies(___'┼', sz); call dap "┤"; say $; return
bot: $= '└'__"┴"copies(___'┴', sz); call dap "┘"; say $; return
Parse Arg sz . /*obtain optional argument from the CL.*/
If sz=='' | sz==',' Then sz= 12 /*Not specified? Then use the default.*/
w= max(3,length(sz**2) ) /*calculate the width of the table cell*/
__= copies('-',w) /*literals used in the subroutines. */
___= __'--'
Do r=1 To sz /*calculate & format a row of the table*/
If r==1 Then
Call top left('¦(x)',w+1) /*show title of multiplication table. */
l='¦'center(r'x',w)'¦' /*index To a multiplication table row.*/
Do c=1 To sz; /*build a row of multiplication table. */
prod=''
If r<=c Then
prod=r*c /*only display when the row = column. */
l=l||right(prod,w+1) '|' /*append product to a cell in the row. */
End /* c */
Say l /*show a row of multiplication table. */
If r\==sz Then
Call sep /*show a separator except To last row.*/
End /* r */
Call bot /*show the bottom line of the table. */
exit /*stick a Tok in it,we're all Done. */
/*--------------------------------------------------------------------------------------*/
hdr: l= ?'¦'; Do i=1 To sz; l=l||right(i'x|',w+3); End; Say l; Call sep; Return
dap: l= left(l,length(l) - 1)arg(1); Return
top: l= '+'__'-'copies(___'-',sz); Call dap '+'; ?= arg(1); Say l; Call hdr; Return
sep: l= '+'__'+'copies(___'+',sz); Call dap '¦'; Say l; Return
bot: l= '+'__'-'copies(___'-',sz); Call dap '+'; Say l; Return