15 lines
204 B
Text
15 lines
204 B
Text
# Swap function with call-by-pointer
|
|
fp.swap = ($[aPtr], $[bPtr]) -> {
|
|
$tmp = $*aPtr
|
|
$*aPtr = $*bPtr
|
|
$*bPtr = $tmp
|
|
}
|
|
|
|
$a = 42
|
|
$b = A short text
|
|
|
|
fn.println($a, $b)
|
|
|
|
fp.swap($a, $b)
|
|
|
|
fn.println($a, $b)
|