Create a two-dimensional array at runtime: Difference between revisions
Content added Content deleted
(Add Red) |
(add fermat) |
||
Line 1,274: | Line 1,274: | ||
[ [ { 0 0 } ] dip Mi,j . ] ! read the { 0 0 } element |
[ [ { 0 0 } ] dip Mi,j . ] ! read the { 0 0 } element |
||
bi ;</lang> |
bi ;</lang> |
||
=={{header|Fermat}}== |
|||
<lang fermat>?m; {imput the dimensions of the array} |
|||
?n; |
|||
Array a[m,n]; {generate an array of m rows and n columns} |
|||
a[m\2, n\2] := m+n-1; {put some value in one of the cells} |
|||
!!a[m\2, n\2]; {display that entry} |
|||
@[a]; {delete the array}</lang> |
|||
=={{header|Forth}}== |
=={{header|Forth}}== |