RosettaCodeData/Task/Look-and-say-sequence/VBScript/look-and-say-sequence-2.vb

7 lines
65 B
VB.net
Raw Permalink Normal View History

2013-04-10 22:43:41 -07:00
dim m
m = 1
for i = 0 to 13
m = looksay(m)
wscript.echo m
next