Re: list operators

[Brynjulv Hauksson <Brynjulv.Hauksson@nr.no>]

When I started using rc I thought it lacked some list operators,
and eventually placed these definitions in my `.rcrc':

	# vshift var [num]	-- shift $var num (default 1) places
fn vshift {v = $1 n = $2 {* = $$v && shift $n && $v = $*}}
	# vrev var		-- reverse the list in $var
fn vrev {v = $1 d = () {* = $$v && for(i in $*){d = ($i $d)} && $v = $d}}
	# vchop var [num]	-- remove last num (default 1) elems of $var
fn vchop {v = $1 {vrev $v && vshift $v $2 && vrev $v}}

There are probably faster, more elegant and/or more robust ways of 
doing it. I haven't worried much about it, since it turned out 
that I almost never use these functions anyway :-)

- brynjulv