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: | Line 2,551: | ||
13211311123113112211 |
13211311123113112211 |
||
11131221133112132113212221</pre> |
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}}== |
=={{header|J}}== |