Data update

Task/Look-and-say-sequence/EasyLang/look-and-say-sequence.easy

@@ -0,0 +1,22 @@
+proc lookandsay . a$ .
+   s$ = ""
+   c = 1
+   p$ = substr a$ 1 1
+   for i = 2 to len a$
+      if p$ = substr a$ i 1
+         c += 1
+      else
+         s$ &= c & p$
+         p$ = substr a$ i 1
+         c = 1
+      .
+   .
+   s$ &= c & p$
+   swap a$ s$
+.
+b$ = 1
+print b$
+for k = 1 to 10
+   lookandsay b$
+   print b$
+.

Task/Look-and-say-sequence/SETL/look-and-say-sequence.setl

@@ -0,0 +1,23 @@
+program looksay;
+    s := "1";
+    loop for i in [1..10] do
+        print(s);
+        s := looksay(s);
+    end loop;
+
+    proc looksay(s);
+        loop for c in s do;
+            if cur /= c then
+                if count /= om then
+                    r +:= count + cur;
+                end if;
+                cur := c;
+                count := 1;
+            else
+                count +:= 1;
+            end if;
+        end loop;
+        r +:= count + cur;
+        return r;
+    end proc;
+end looksay;