RosettaCodeData/Task/Generic-swap/Standard-ML/generic-swap-2.ml

3 lines
65 B
OCaml
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
fun swapref (x, y) =
let temp = !x in x := !y; y := temp end