8 lines
121 B
Text
8 lines
121 B
Text
beads 1 program 'Generic swap'
|
|
|
|
var
|
|
a = [1 2 "Beads" 3 4]
|
|
b = [1 2 "Language" 4 5]
|
|
|
|
calc main_init
|
|
swap a[4] <=> b[3]
|