Look-and-say sequence: Difference between revisions
Content added Content deleted
| Line 2,910: | Line 2,910: | ||
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
=={{header|Mathematica}}/{{header|Wolfram Language}}== |
||
The function: |
The function: |
||
<lang Mathematica> LookAndSay[n_Integer?Positive]:= Reverse @ |
<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. |
takes as input an <em>arbitrary</em> positive integer and generates the next member of the ‘Look and Say’ sequence. |
||