24 lines
398 B
Text
24 lines
398 B
Text
|
a$[] = [ "John" "Bob" "Mary" "Serena" ]
|
||
|
|
b$[] = [ "Jim" "Mary" "John" "Bob" ]
|
||
|
|
for i to 2
|
||
|
|
for a$ in a$[]
|
||
|
|
for b$ in b$[]
|
||
|
|
if a$ = b$
|
||
|
|
break 1
|
||
|
|
.
|
||
|
|
.
|
||
|
|
if a$ <> b$
|
||
|
|
for c$ in c$[]
|
||
|
|
if c$ = a$
|
||
|
|
break 1
|
||
|
|
.
|
||
|
|
.
|
||
|
|
if c$ <> a$
|
||
|
|
c$[] &= a$
|
||
|
|
.
|
||
|
|
.
|
||
|
|
.
|
||
|
|
swap a$[] b$[]
|
||
|
|
.
|
||
|
|
print c$[]
|