Skip to content

Instantly share code, notes, and snippets.

@crcx

crcx/gist:038bbc66c26cccecb9ac0aa08bcf4f7b

Created January 7, 2019 14:24
Show Gist options
  • Save crcx/038bbc66c26cccecb9ac0aa08bcf4f7b to your computer and use it in GitHub Desktop.
Save crcx/038bbc66c26cccecb9ac0aa08bcf4f7b to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
: MATRIX ( m[rows] n[cols] -- c-addr )
HERE >R
SWAP , ,
R>
DUP @ SWAP
DUP 1 CELLS + @ SWAP
>R
* CELLS ALLOT
R>
;
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment