411 REFERENCE · Wikibooks
Rebol Programming/swap
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
SWAP series1 series2
DESCRIPTION:
Swaps elements of a series. (Modifies)
SWAP is a function value.
ARGUMENTS
series1 -- (Type: series)
series2 -- (Type: series)
SOURCE CODE
swap: func [
"Swaps elements of a series. (Modifies)"
series1 [series!]
series2 [series!]
][
unless any [empty? series1 empty? series2] [
poke series1 1 also pick series2 1 poke series2 1 pick series1 1
]
series1
]