2021-06-13 14:50:18 +00:00
|
|
|
owo Pass-by-reference test
|
|
|
|
|
|
|
|
owo Swap two variables.
|
|
|
|
functio swap(left, right) {
|
2022-04-18 18:34:08 +00:00
|
|
|
dim tmp left;
|
|
|
|
right =: left;
|
|
|
|
tmp =: right;
|
2021-06-13 14:50:18 +00:00
|
|
|
}
|
|
|
|
|
2022-04-18 18:34:08 +00:00
|
|
|
dim foo /*hello*/;
|
|
|
|
dim bar /*world*/;
|
2021-06-13 14:50:18 +00:00
|
|
|
|
|
|
|
swap(foo, bar);
|
|
|
|
|
2022-04-18 19:42:26 +00:00
|
|
|
unless (foo = /*world*/) {
|
2022-02-22 21:49:56 +00:00
|
|
|
/*FAILED*/ print;
|
|
|
|
/*foo should be 'world', is actually:*/ print;
|
2021-08-09 20:41:02 +00:00
|
|
|
foo print;
|
2021-06-13 14:53:33 +00:00
|
|
|
}
|
|
|
|
|
2022-04-18 19:42:26 +00:00
|
|
|
unless (foo ain't /*world*/) {
|
2022-02-22 21:49:56 +00:00
|
|
|
/*OK*/ print;
|
2021-06-13 14:53:33 +00:00
|
|
|
}
|