"보고 말하기"또는 "보이는 말"순서는 각각 마지막을 나타내는 일련의 숫자입니다.

1
11 (one one)
21 (two ones)
1211 (one two, one one)
111221 (one one, one two, two ones)
312211 (three ones, two twos, one one)

그리고 계속해서 ... https://oeis.org/A005150

어쨌든, 이것은 초기 코드와 반복 횟수의 두 가지 인수를 취하는 프로그램을 만들기위한 일반적인 코드 골프 도전 (최소 바이트 수 승리)입니다. 예를 들어 "1"과 "2"를 연결하면 결과는 "21"이됩니다. "2"와 "4"를 연결하면 결과는 "132112"가됩니다. 즐기세요!

Pyth, 10 8 바이트

@FryAmTheEggman에 의해 -2 바이트

ussrG8Qz

설명:

            Implicit: z=first line as string, Q=second line
u         the result of reducing lambda G:
  s s rG8   flattened run-length-encoded G
  Q       Q times
  z     starting with z

여기에서 시도 하십시오 .

CJam, 8 바이트

q~{se`}*

입력 형식은 공백으로 구분 된 첫 번째 숫자, 두 번째 반복입니다.

여기에서 테스트하십시오.

설명

q~   e# Read and evaluate input, dumping both numbers on the stack.
{    e# Run this block once for each iteration...
  s  e#   Convert to string... in the first iteration this just stringifies the input
     e#   number again. In subsequent iterations it flattens and then stringifies the
     e#   array we get from the run-length encoding.
  e` e#   Run-length encode.
}*

배열은 인쇄하기 전에 평평 해 지므로 결과는 필요한 숫자입니다.

자바 스크립트, 57 바이트

F=(a,b)=>b?F(a.replace(/(.)\1*/g,c=>c.length+c[0]),b-1):a

재귀는이 문제에 효과적입니다. 첫 번째 매개 변수는 문자열의 초기 숫자이고 두 번째 매개 변수는 반복 수입니다.

MATL , 9 바이트

:"Y'wvX:!

입력은 반복 횟수, 초기 번호입니다.

온라인으로 사용해보십시오!

:      % implicit input: number of iterations. Create vector with that size
"      % for loop
  Y'   %   RLE. Pushes two arrays: elements and numbers of repetitions.
       %   First time implicitly asks for input: initial number
  w    %   swap
  v    %   concatenate vertically
  X:   %   linearize to column array
  !    %   transpose to row array
       % implicitly end loop
       % implicitly display

R, 87 바이트

function(a,n){for(i in 1:n){r=rle(el(strsplit(a,"")));a=paste0(r$l,r$v,collapse="")};a}

Ungolfed & 설명

f=function(a,n){
    for(i in 1:n){                      # For 1...n
        r=rle(el(strsplit(a,"")))       # Run length encoding
        a=paste0(r$l,r$v,collapse="")   # concatenate length vector and values vector and collapse
    };
    a                                   # print final result
}

펄 6, 63 바이트

say (@*ARGS[0],*.trans(/(.)$0*/=>{$/.chars~$0})…*)[@*ARGS[1]]

이것은 지금 당장 얻을 수있는 한 짧습니다. 축소 할 수있는 까다로운 플래그가있을 수 있습니다. 확실하지 않습니다.

루비, 63 바이트

질문이 그것을 요구하는 것처럼 보이기 때문에 전체 프로그램. 입력을 명령 행 인수로 사용합니다.

i,n=$*
n.to_i.times{i=i.gsub(/(.)\1*/){"#{$&.size}#$1"}}
puts i

^{아니요, gsub!문자열 $*이 고정 되어 있으므로 사용할 수 없습니다 : /}

망막 , 46 45 27 바이트

마틴은 골프를 돕기 위해 많은 일을했습니다.

+`(\d)(\1?)*(?=.*_)_?
$#2$1

온라인으로 사용해보십시오

다음 형식으로 입력을받습니다.

<start><count>

<start> 초기 번호입니다.

<count> 단항, 모든 밑줄 및 반복 횟수입니다.

단일 반복, 20 16 바이트 :

(\d)(\1?)*
$#2$1

하스켈 , 62 바이트

import Data.List
0%y=y
x%y=do x<-group$(x-1)%y;[length x,x!!0]

온라인으로 사용해보십시오!

자바 스크립트 ES6, 71 바이트

(m,n)=>[...Array(n)].map(_=>m=m.replace(/(.)\1*/g,x=>x.length+x[0]))&&m

문자열과 숫자로 입력을받습니다.

펄 5, 50 바이트

$_=pop;for$i(1..pop){s/(.)\1*/length($&).$1/ge}say

인수는 역순입니다 (반복 횟수 및 시드). 예:

> perl -E'$_=pop;for$i(1..pop){s/(.)\1*/length($&).$1/ge}say' 4 2
132112
> perl -E'$_=pop;for$i(1..pop){s/(.)\1*/length($&).$1/ge}say' 0 2
2
> perl -E'$_=pop;for$i(1..pop){s/(.)\1*/length($&).$1/ge}say' 2 0
1110
> perl -E'$_=pop;for$i(1..pop){s/(.)\1*/length($&).$1/ge}say' 1 10
1110
> perl -E'$_=pop;for$i(1..pop){s/(.)\1*/length($&).$1/ge}say' 11 1
3113112221232112111312211312113211

05AB1E , 9 바이트 (비경쟁)

Emigna의 의견으로 수정되었습니다. 아래 / 편집을 참조하십시오.

F.¡vygyÙJ

온라인으로 사용해보십시오!

R , 61 57 바이트

@JayCe 덕분에 -4 덕분에 더 이상 간단하게 할 수 없다고 확신했을 때!

f=function(a,n)`if`(n,f(t(sapply(rle(c(a)),c)),n-1),c(a))

온라인으로 사용해보십시오!

수학, 81 73 바이트

FromDigits@Nest[Flatten[(Tally/@Split@#)~Reverse~3]&,IntegerDigits@#,#2]&

젤리 , 6 바이트 (비경쟁)

ŒrUFµ¡

온라인으로 사용해보십시오!

           Implicit input: first argument.
     µ¡    Do this to it <second argument> times:
Œr            Run-length encode into [value, times] pairs
  U           Flip them
   F          Flatten list

Stax , 10 바이트

Çα▲ì4↔┌j█♀

온라인으로 실행하고 디버그하십시오!

적절한 IO 형식으로 너무 많은 바이트를 소비했습니다 ...

설명

압축이 풀린 버전을 사용하여 설명합니다.

DE|R{rm:f$e
D              Do `2nd parameter` times
 E             Convert number to digits
                   Starting from the `1st parmeter`
  |R           Convert to [element, count] pairs for each run
    {rm        Revert each pair
       :f      Flatten the array
         $     Convert array to string of digits
          e    Convert string of digits to integer

필수 부분은 D|R{rm:f(8 바이트)입니다.

첫 번째 입력을 숫자 배열로 사용할 수 있으면 전체 프로그램을 9 바이트로 작성할 수 있습니다. 온라인으로 실행하고 디버그하십시오!

파이썬 3, 138 바이트

나는 재귀 접근법을 사용했다.

def g(a,b):
 if b<1:return a
 else:
  c,n=1,'';f,*a=str(a)+'_'
  for i in a:
   if i==f:c+=1
   else:n+=str(c)+f;f,c=i,1
  return g(n,b-1)

함수는 두개의 int를 받아 a와 b같이 설명했다.

여기의 항목이 얼마나 간결한 지 놀랍습니다! 어쩌면 누군가 더 나은 파이썬 방법을 사용할 수도 있습니다.

펄, 38 + 2 바이트

for$i(1..<>){s/(.)\1*/(length$&).$1/ge}

-p플래그가 필요합니다 :

$ perl -pe'for$i(1..<>){s/(.)\1*/(length$&).$1/ge}' <<< $'1\n5'
312211

입력은 여러 줄 문자열입니다.

input number
numbers of iterations

모든 단계가 필요한 경우 44 + 2 바이트 인 다음으로 변경할 수 있습니다.

$ perl -nE'for$i(1..<>){s/(.)\1*/(length$&).$1/ge,print}' <<< $'1\n5'
11
21
1211
111221
312211

철탑 , 11

i:At,{n,A}j

작동 방식 :

i      # Get input from command line.
:A     # Initialize A
  t    # Set A to the top of the stack.
,      # Pop the top of the stack.
{      # Start a for loop.
 n     # Run length encode the stack.
  ,    # Seperate command and iteration
   A   # Repeat A times.
    }  # End for loop.
j      # Join the stack with '' and print it and then exit. 

SmileBASIC, 100 98 바이트

DEF S N,T?N
WHILE""<N
C=C+1C$=SHIFT(N)IF C$!=(N+@L)[0]THEN O$=O$+STR$(C)+C$C=0
WEND
S O$,T-T/T
END

모든 단계를 인쇄합니다. T/TT가 0 일 때 프로그램을 종료합니다.

APL (Dyalog Classic) , 22 바이트

{∊(≢,⊃)¨⍵⊂⍨1,2≠/⍵}⍣⎕,⎕

온라인으로 사용해보십시오!

망막 , 27 바이트

~(`^
K`
$
+`(.)\1$*¶$$.&$$1

온라인으로 사용해보십시오!

K (ngn / k) , 30 바이트

{y{,/{(#x;*x)}'(&~=':x)_x}/,x}

온라인으로 사용해보십시오!

파이썬 3.6, 100 98 93 바이트

import re
f=lambda s,n:n and eval("f'"+re.sub(r'((.)\2*)',r'{len("\1")}\2',f(s,n-1))+"'")or s

온라인으로 사용해보십시오!

이것은 문자열과 정수를 취하는 람다를 생성하고 문자열을 반환합니다. 예:f('1', 5) == '312211'

모든 반복 문자 ( ((.)\2*)정규식)를 찾아 길이와 문자 자체 (f)에서 f- 문자열을 r'{len("\1")}\2'만든 다음 평가합니다. 카운터 ( n and ...f(s,n-1)... or s)에서 재귀 를 사용하여 적절한 기능과 루프를 정의하지 않아도됩니다.