Task

Take a combined set of elements and apply a function to each element.




/O> [ 3 ** ] is cubed ( n --> n )
... 
 
Stack empty.
 
/O> ' [ 1 2 3 4 5 6 7 8 9 10 ]
... [] swap witheach 
...   [ cubed join ]
... 
 
Stack: [ 1 8 27 64 125 216 343 512 729 1000 ] 
 
/O> drop
... 
 
Stack empty.
 
/O> ' [ 1 2 3 4 5 6 7 8 9 10 ]
... dup witheach
...   [ cubed swap i^ poke ]
... 
 
Stack: [ 1 8 27 64 125 216 343 512 729 1000 ]