Look-and-say sequence: Difference between revisions

← Older editNewer edit →
Content deleted Content added
Phunanon (talk | contribs)
112 edits
→‎Insitux: imperfect implementation
Phunanon (talk | contribs)
112 edits
m →‎Insitux: improvement
Line 2,555: Line 2,555:
<syntaxhighlight lang="insitux">(function look-and-say n x
<syntaxhighlight lang="insitux">(function look-and-say n x
(return-when (empty? n) x)
(return-when (empty? n) x)
(var digit (0 n)
(let digit (0 n)
[before after] ((juxt take-while skip-while) (= digit) n))
[before after] (part-before (!= digit) n))
(recur after (strn x (len before) digit)))
(recur after (strn x (len before) digit)))


Retrieved from "https://rosettacode.org/wiki/Look-and-say_sequence"