挑战：

创建一个程序，该程序接受一个非零正整数的输入，并按照下面描述的顺序输出下四个数字。

注意：不需要检查输入是否实际上是一个非零的正整数

顺序：

此序列中的每个数字（除第一个数字（输入数字）外）均应由n个数字组成，其中n是偶数。如果我们将数字分为n / 2对，则每对数字的第一个数字应为第二个数字在前一个数字中出现的次数

直观说明：
考虑此示例“序列启动器”或输入序列中6577
的下一个数字应如下所示，161527
因为输入具有1个“ 6”，1个“ 5”和2个“ 7”。

如果输入的位数太多（单个位数超过9个），您将无法获得正确的输出。
示例：111111111111（12个1）
序列中的下一个数字必须描述12个1。因此，我们将其分为9 1和3 1（总和9 + 3 = 12）
下一个数字：9131

您应该对输入进行4次迭代，然后将其输出（返回一个包含4个整数的列表/数组，或者通过用空格分隔它们来输出它，也可以使用换行符）

“数字可以用很多方式写，我怎么写？” ：
如果考虑到这一点，示例输入6577也可以写为271516（两个7，一个5，一个六个）。但是，这是无效的输出。您应该从左到右迭代该数字。因此为161527。如果7657您要迭代7的数量，则依次迭代6的数量和5的数量，这样有效的输出将是271615

I / O示例：

输入：75
输出：1715 211715 12311715 4112131715

输入：1
输出：11 21 1211 3112

输入：111111111111（12 1's）
输出：9131 192113 31191213 23411912

这与“说您看到的内容”问题不同，因为序列不同：https
://oeis.org/A005150 <-此返回的数字是这样的：输入：1211输出：111221
当我要输入序列时会做
输入：1211输出：3112

这两个序列不同，需要不同的算法。
我的询问序列：https : //oeis.org/A063850
“可能重复”序列：https : //oeis.org/A005150

重要规格：

由于对于某些试图回答此问题的人来说还不够清楚，因此对于k个字符，其中k> 9的正确输出不是“ kc”（其中c是字符），而是9c（k-9）c等。因此，对于12 1不是121（12 1）而是9131（9 1，（12-9）1等）

如果有疑问，您的代码如果输出的数字是奇数个数字（例如121）是错误的，由于序列的性质，它应该输出偶数数字。

这是代码高尔夫球，因此具有最少字节胜利的代码。

PowerShell，111104字节

$z=$args;1..4|%{($z=-join($z-split'\B'|group|%{for($c,$n=$_.Count,$_.Name;$c-gt9;$c-=9){"9$n"}"$c$n"}))}

在线尝试！

Python 2，116字节

x=input()
exec"x=''.join(x.count(n)/9*(`9`+n)+`x.count(n)%9`+n for i,n in enumerate(x)if n not in x[:i]);print x;"*4

在线尝试！

05AB1E，30 23 21字节

4F©Ùv9y«®y¢9‰`U×XyJ}=

在线尝试！

说明

4F                     # 4 times do:
  ©                    # store a copy of the current number in register
   Ùv                  # for each unique digit y in the number
     9y«               # concatenate 9 with y
        ®y¢            # count occurrences of y in current number
           9‰          # divmod by 9
             `U        # store the result of modulus in X
               ×       # repeat the number "9y" result_of_div times
                X      # push result of modulus
                 y     # push y
                  J    # join everything to one number
                   }   # end inner loop
                    =  # print the current number without popping

Mathematica，117个字节

Grid@{Rest@NestList[FromDigits[Join@@(Reverse/@Tally@IntegerDigits@#//.{a_,b_}/;a>9->{9,b}~Sequence~{a-9,b})]&,#,4]}&

好像不需要那么长。

C＃246字节

namespace System{using Linq;using f=String;class p{static void Main(f[] s){f p=s[0];for(int i=0,n;i++<4;Console.Write(p+" "))p=f.Concat(p.GroupBy(c=>c).SelectMany(g=>new int[(n=g.Count())/9].Select(_ =>"9"+g.Key).Concat(new[]{n%9+""+g.Key})));}}}

取消高尔夫：

namespace System
{
    using Linq;
    using f = String;
    class p
    {
        static void Main(f[] s)
        {
            f p = s[0];
            for (int i = 0, n; i++ < 4; Console.Write(p + " "))

                p = f.Concat(p.GroupBy(c => c).SelectMany(g =>
                    new int[(n = g.Count()) / 9].Select(_ => "9" + g.Key).Concat(new[] { n % 9 + "" + g.Key }
                )));
            Console.ReadKey();
        }
    }
}

在此处尝试（编译后将输入类型输入到底框中，然后按ENTER键）

果冻，27个字节

L,Ḣ
D©®i$ÞŒgs9$€Ç€€FḌµ4µÐ¡Ḋ

在线尝试！

连续的€s无法嵌套，因为链不能嵌套。

带有单独链接的嵌套：27个字节。

打印而不是累积：27个字节。

说明

L,Ḣ                     - helper function, does the look-and-say. Input is a list of digits
 ,                      - return 2-tuple of:
L                       -   length of input
  Ḣ                     -   first element of input

D©®i$ÞŒgs9$€Ç€€FḌµ4µÐ¡Ḋ - main link, takes input as integer
                 µ4µÐ¡  - repeat 4 times, saving the results of each iteration:
D                       -   convert integer to list of digits
 ©                      -   save into register, for later use
  ®i$Þ                  -   sort list's elements by first occurrence in list
      Œg                -   group runs of equal elements
        s9$€            -   split each run into sets which are at most 9 elements long
            Ç€€         -   do the look-and-say with helper function
               FḌ       -   flatten and convert back into integer for next iteration
                      Ḋ - remove the first element from the list since it includes the
                           initial element

PHP，141字节

for($a=$argn;$i++<4;$a=$o,print$a._,$o="")foreach(array_count_values(str_split($a))as$n=>$c)$o.=str_repeat("9$n",$c/9^0).($c%9?($c%9).$n:"");

在线尝试！