Multiplication tables: Difference between revisions

A lot of the program code deals with the presentation/display of the grid for the multiplication gridtable.

<lang REXX>/*REXX program displays a NxN multiplication table (in a boxed grid). to the terminal.*/

parse arg high . /*getobtain optional grid size from the C.L. CL*/

if high=='' | high=="," then high=12 /*Not specified? Then use the default.*/

bar = '│' ; dash = '"─'" /*(vertical) bar; horizontal bar (dash)*/

bj = '┴' ; tj = '"┬'" /*bottom and top junctions (or tees).*/

cj = '┼' /*center junction (or cross). */

lj = '├' ; rj = '"┤'" /*left and right junctions (or tees).*/

tlc = '┌' ; trc = '"┐'" /* top left and right corners. */

blc = '└' ; brc = '"┘'" /*bottom " " " " */

/* [↑] define stuff to hold box glyphs*/

cell = cj || copies(dash, max(5,length(high) +1)) /*define the top of the cell. */

sep = copies(cell, high+1)rj /*construct the table separator. */

L size = length(sepcell) - 1 /*thewidth length offor the products separatorin the linetable. */

widthbox. = lengthleft(cell'', size)-1 /*width of the table cells. /*initialize all the cells in the table*/

do j=0 to high /*step through zero ───► high. */

_=right(j, size -1 2)'x ' /*build the "label" (border) number. */

box.0.j=center(_, size) /* " " top label cell. */

box.j.0=center(_, max(5, size) ) /* " " left label cell. */

box.0.0=centrecenter('times', widthmax(5, size)) /*redefie redefine box.0.0 with "times". */

do r=1 for high /*step through row one ───► high. */

do c=r to high /*step through column row ───► high. */

box.r.c=right(r*c, size)' ' /*build a single multiplication cell. */

end /*r*/ /*only build the top right-half of grid*/

do r=0 to high; @=sep /*step through all lines; use a mod sep*/

@=overlay(tlc, @ , 1) /*use a better tlc (top left corner). */

@=overlay(trc, @ , L) length(sep)) /* " " " trc ( " right " ). */

@=translate(@, tj, cj) /* " " " tj (top junction/tee).*/

else @=overlay(lj, @ , 1) /* " " " lj (left junction/tee).*/

say @ /*display a single table grid line. */

if r==0 then call buildLine 00 /* " " " blank grid " */

call buildLine r /*build a single line of the grid. */

if r==0 then call buildLine 00 /*display a single blank grid line. */

@=sep /*allow use of a modified separator. */

@=overlay(blc, @ , 1) /*use a better bottom left corner. */

@=overlay(brc, @ , Llength(sep) ) /* " " " " right corner. */

@=translate(@, bj, cj) /* " " " " junction. */

say @ /*display a (single) table grid line. */

exit /*stick a fork in it, we're all done. */

buildLine: parse arg row,,$ /*start with a blank cell ($). */

do col=0 to high /*step through zero ───► high. */

$=$ || bar || box.row.col /*build one cell at a time. */

end /*col*/

say $ || bar /*finish building the last cell. */

return</lang>