RosettaCodeData/Task/Generic-swap/Standard-ML/generic-swap-2.ml
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

2 lines
65 B
Standard ML

fun swapref (x, y) =
let temp = !x in x := !y; y := temp end