RosettaCodeData/Task/Arrays/Factor/arrays-2.factor

7 lines
115 B
Factor

V{ 1 2 3 }
{
[ "The initial vector: " write . ]
[ [ 42 ] dip push ]
[ "Modified vector: " write . ]
} cleave