RosettaCodeData/Task/Create-a-two-dimensional-array-at-runtime/Maxima/create-a-two-dimensional-array-at-runtime.maxima

10 lines
269 B
Text
Raw Permalink Normal View History

2013-10-27 22:24:23 +00:00
printf(true, "in the following terminate every number with semicolon `;'")$
n: readonly("Input x-size: ")$
m: readonly("Input y-size: ")$
a: make_array(fixnum, n, m)$
fillarray(a, makelist(i, i, 1, m*n))$
/* indexing starts from 0 */
print(a[0,0]);
print(a[n-1,m-1]);