16 lines
363 B
Text
16 lines
363 B
Text
PROC swap(a,b) IS b,a
|
|
|
|
PROC main()
|
|
DEF v1, v2, x
|
|
v1 := 10
|
|
v2 := 20
|
|
v1, v2 := swap(v1,v2)
|
|
WriteF('\d \d\n', v1,v2) -> 20 10
|
|
v1 := [ 10, 20, 30, 40 ]
|
|
v2 := [ 50, 60, 70, 80 ]
|
|
v1, v2 := swap(v1,v2)
|
|
ForAll({x}, v1, `WriteF('\d ',x)) -> 50 60 70 80
|
|
WriteF('\n')
|
|
ForAll({x}, v2, `WriteF('\d ',x)) -> 10 20 30 40
|
|
WriteF('\n')
|
|
ENDPROC
|