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

7 lines
115 B
Factor
Raw Permalink Normal View History

2013-04-10 21:29:02 -07:00
V{ 1 2 3 }
{
[ "The initial vector: " write . ]
[ [ 42 ] dip push ]
[ "Modified vector: " write . ]
} cleave