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

Initial data commit

Browse source
This commit is contained in:
Ingy döt Net 2023-07-01 11:58:00 -04:00
parent 72d218235f
commit f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

23
Task/Multiplication-tables/REXX/multiplication-tables.rexx Normal file
View file

@ -0,0 +1,23 @@
/*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