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

Question

在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#写这个？

(注意,我不希望函数等价.我实际上需要通过引用语义传递.)

Answer 1

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而不是可变的let.

Answer 2

请尝试以下方法

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