Jump to content

Create a two-dimensional array at runtime: Difference between revisions

Create a two-dimensional array at runtime (view source)

Revision as of 01:11, 15 August 2007

8 bytes removed ,  16 years ago
m
→‎[[Toka]]: Changed to work with revised array functions in Toka
m (→‎[[Toka]]: Changed to work with revised array functions in Toka)
Line 230:
cells malloc >r
dup cells >r
[ r> r> r> 2dup >r >r swap malloc swap i swap array.put-element >r ] iterate
r> r> nip
] is 2D-array
 
[ ( a b address -- value )
array.get-element array.get-element
] is 2D-get-element
 
[ ( value a b address -- )
array.get-element array.put-element
] is 2D-put-element
 
Anonymous user
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/25345"
Cookies help us deliver our services. By using our services, you agree to our use of cookies.
More information