A-M baby

Task/Look-and-say-sequence/MAXScript/look-and-say-sequence.max

@@ -0,0 +1,30 @@
+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
+)