18 lines
404 B
VB.net
18 lines
404 B
VB.net
dim amb
|
|
set amb = new ambiguous
|
|
|
|
amb.rule = "right(p1,1)=left(p2,1)"
|
|
|
|
dim w1, w2, w3, w4
|
|
for each w1 in split("the that a", " ")
|
|
for each w2 in split("frog elephant thing", " ")
|
|
for each w3 in split("walked treaded grows", " ")
|
|
for each w4 in split("slowly quickly", " ")
|
|
if amb(w1, w2) and amb(w2, w3) and amb(w3, w4) then
|
|
wscript.echo w1, w2, w3, w4
|
|
end if
|
|
next
|
|
next
|
|
next
|
|
next
|