forth - 如何显示矩阵的内容？

Question

考虑:

: cell-matrix
 create ( width height "name" ) over , * cells allot
 does> ( x y -- addr ) dup cell+ >r @ * + cells r> + ;

它是构成矩阵的定义，然后您可以像这样分配值:

 5 5 cell-matrix test

然后你将值填充到那里......它们就在那里......

36 0 0 test !

(我认为)

在互联网上你找不到任何可以解释这一点的内容。如何显示矩阵的内容？

Answer 1

如果你想打印整个矩阵的内容，你可以这样做:

: .row ( addr u -- addr' u ) tuck 0 do @+ . loop swap cr ;
: .matrix ( u addr -- ) >body @+ rot 0 do .row loop 2drop ;

请注意，您的cell-matrix 不会保存行数，因此您必须将此数字提供给.matrix。例如。像这样:

2 3 cell-matrix foo
3 ' foo .matrix