RosettaCodeData/Task/Look-and-say-sequence/Mathematica/look-and-say-sequence-1.math
2023-07-01 13:44:08 -04:00

1 line
106 B
Text

LookAndSay[n_Integer?Positive]:= Reverse @@@ Tally /@ Split @ IntegerDigits @ n // Flatten // FromDigits