Rebol 程式設計/swap

用法

SWAP series1 series2 

描述

交換系列的元素。（修改）

SWAP 是一個函式值。

引數

• series1 -- (型別：系列)
• series2 -- (型別：系列)

原始碼

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
]