7 lines
173 B
Factor
7 lines
173 B
Factor
{ 1 2 3 }
|
|
{
|
|
[ "The initial array: " write . ]
|
|
[ [ 42 1 ] dip set-nth ]
|
|
[ "Modified array: " write . ]
|
|
[ "The element we modified: " write [ 1 ] dip nth . ]
|
|
} cleave
|