Look-and-say sequence: Difference between revisions

=={{header|Insitux}}==

<syntaxhighlight lang="insitux">(function look-and-say n x

(return-when (empty? n) x)

(var digit (0 n)

[before after] ((juxt take-while skip-while) (= digit) n))

(recur after (strn x (len before) digit)))

(var result "1")

(loop 10 i

(print (var! result look-and-say)))</syntaxhighlight>