Anonymous user
Look-and-say sequence: Difference between revisions
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 2,909:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
The function:
<lang Mathematica> LookAndSay[n_Integer?Positive]:=Map[Reverse,Tally/@Split@IntegerDigits@n,2]//Flatten//FromDigits</lang>
The first example returns the first 13 numbers of the sequence starting with 1. Entering
Line 2,932:
11131221133112132113212221
3113112221232112111312211312113211
1321132132111213122112311311222113111221131221<pre>
Entering 7:
|