Jump to content

Look-and-say sequence: Difference between revisions

m
Line 2,910:
=={{header|Mathematica}}/{{header|Wolfram Language}}==
The function:
<lang Mathematica> LookAndSay[n_Integer?Positive]:= Reverse @*@@ Tally /@ Split @ IntegerDigits @ n // Flatten // FromDigits</lang>
 
takes as input an <em>arbitrary</em> positive integer and generates the next member of the ‘Look and Say’ sequence.
Cookies help us deliver our services. By using our services, you agree to our use of cookies.