11 lines
327 B
Text
11 lines
327 B
Text
/* Auxiliar function */
|
|
aux_table(n,k):=append([k],makelist(0,i,1,k-1),makelist(k*i,i,k,n))$
|
|
|
|
/* Function to construct the formatted table */
|
|
table_mult(n):=block(
|
|
append([makelist(i,i,0,n)],makelist(aux_table(n,k),k,1,n)),
|
|
makelist(at(%%[i],0=""),i,2,length(%%)),
|
|
table_form(%%))$
|
|
|
|
/* Test case */
|
|
table_mult(12);
|