Look-and-say sequence: Difference between revisions
m
→Insitux: improvement
(→Insitux: imperfect implementation) |
m (→Insitux: improvement) |
||
Line 2,555:
<syntaxhighlight lang="insitux">(function look-and-say n x
(return-when (empty? n) x)
(
[before after] (
(recur after (strn x (len before) digit)))
|