2013-04-10 21:29:02 -07:00
|
|
|
a: 10$
|
2019-09-12 10:33:56 -07:00
|
|
|
b: foo$
|
2013-04-10 21:29:02 -07:00
|
|
|
|
|
|
|
|
/* A simple way to swap values */
|
|
|
|
|
[a, b]: [b, a]$
|
|
|
|
|
|
2019-09-12 10:33:56 -07:00
|
|
|
a; /* foo */
|
2013-04-10 21:29:02 -07:00
|
|
|
b; /* 10 */
|
|
|
|
|
|
|
|
|
|
/* A macro to hide this */
|
|
|
|
|
swap(x, y) ::= buildq([x, y], ([x, y]: [y, x], 'done))$
|
|
|
|
|
|
|
|
|
|
swap(a, b)$
|
|
|
|
|
|
|
|
|
|
a; /* 10 */
|
2019-09-12 10:33:56 -07:00
|
|
|
b; /* foo */
|
