F#:如何编写经典的交换功能?

时间:2009-06-03 18:28:20

标签: f# pass-by-reference

在C#中,经典交换功能是:

void swap (ref int a, ref int b){
     int temp = a;
     a = b;
     b = temp;
}

int a = 5;
int b = 10;
swap( ref a, ref b);

我怎么用F#写这个?

(注意,我不想要功能等同。我实际上需要通过引用语义传递。)

3 个答案:

答案 0 :(得分:10)

Jared的代码示例:

let mutable (a, b) = (1, 2)

let swap (left : 'a byref) (right : 'a byref) =
  let temp = left
  left <- right
  right <- temp

printfn "a: %i - b: %i" a b
swap (&a) (&b)
printfn "a: %i - b: %i" a b

通常情况下,你会使用ref-cells而不是mutable let。

答案 1 :(得分:9)

尝试以下

let swap (left : 'a byref) (right : 'a byref) =
  let temp = left
  left <- right
  right <- temp

答案 2 :(得分:1)

///在元组中交换两个值的顺序的函数

let Swap (a, b) = (b, a)