30 lines
475 B
Text
30 lines
475 B
Text
fn lookAndSay num =
|
|
(
|
|
local result = ""
|
|
num += " "
|
|
local current = num[1]
|
|
local numReps = 1
|
|
|
|
for digit in 2 to num.count do
|
|
(
|
|
if num[digit] != current then
|
|
(
|
|
result += (numReps as string) + current
|
|
numReps = 1
|
|
current = num[digit]
|
|
)
|
|
else
|
|
(
|
|
numReps += 1
|
|
)
|
|
)
|
|
result
|
|
)
|
|
|
|
local num = "1"
|
|
|
|
for i in 1 to 10 do
|
|
(
|
|
print num
|
|
num = lookAndSay num
|
|
)
|