Apply a callback to an array: Difference between revisions

→‎[[Toka]]: Updated to work with Toka R1
(→‎[[Toka]]: Updated to work with Toka R1)
Line 611:
( array count function -- )
{
variablevalue| array fn |
[ i 1- array @ ] is I
[ fnto !fn swap to array !0 swap [ I array.get-element :stack fn @ invoke I array.put-element ] +iteratecountedLoop ]
} is map-array
( Build an array )
5 cells is-array a
10 0 a array.put-element
11 1 a array.put-element
12 2 a array.put-element
13 3 a array.put-element
14 4 a array.put-element
( Add 1 to each item in the array )
a 5 ` [ 1 + ] map-array
Anonymous user