Anonymous user
Look-and-say sequence: Difference between revisions
m
→{{header|Mathematica}}/{{header|Wolfram Language}}
Line 2,910:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
The function:
<lang Mathematica> LookAndSay[n_Integer?Positive]:= Map[Reverse, Tally/@ Split @ IntegerDigits @ n, 2] // Flatten // FromDigits</lang>
takes an *arbitrary* positive integer, and generates the next member of the ‘Look and Say’ sequence.
|