swap

第一引数と第二引数の値を交換します。

構文
swap( Var a, Var b )
引数
a
変数bと交換する値。参照引数。
b
変数aと交換する値。参照引数。
戻値

プログラム

//////////////////////////////////////////////////
// 【引数】
//   a : 変数bと交換する値。参照引数。 
//   b : 変数aと交換する値。参照引数。 
// 【戻値】
// 
//////////////////////////////////////////////////
PROCEDURE swap(Var a, Var b)
	DIM tmp = a
	a = b
	b = tmp
FEND

解説

  1. 2-4行目
    	DIM tmp = a
    	a = b
    	b = tmp
    
    aとbを直接入れ替えることはできないので、一時保管用の変数tmpを使って変数a・bを交換する。