Anonymous user
Apply a callback to an array: Difference between revisions
Added Toka
No edit summary |
(Added Toka) |
||
Line 586:
foreach var [array names dat] { myfunc $dat($var) }
== [[Toka]] ==
[[Category:Toka]]
( array count function -- )
{
variable| array fn |
[ i 1- array @ ] is I
[ fn ! swap array ! [ I get-element fn @ invoke I put-element ] +iterate ]
} is map-array
( Build an array )
5 cells is-array a
10 0 a put-element
11 1 a put-element
12 2 a put-element
13 3 a put-element
14 4 a put-element
( Add 1 to each item in the array )
a 5 ` 1+ map-array
| |||