Look-and-say sequence: Difference between revisions
Content deleted Content added
Not a robot (talk | contribs) Add MACRO-11 |
→Insitux: imperfect implementation |
||
Line 2,551:
13211311123113112211
11131221133112132113212221</pre>
=={{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>
=={{header|J}}==
| |||