Chuỗi "Nhìn và nói" hoặc "Nói những gì bạn thấy" là một chuỗi các số trong đó mỗi số mô tả cuối cùng.

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)

và trên và trên ... https://oeis.org/A005150

Dù sao, đây là một thử thách golf mã thông thường (chiến thắng số byte ít nhất) để tạo ra một chương trình có hai đối số, một số ban đầu và số lần lặp. Ví dụ: nếu bạn cắm "1" và "2" thì kết quả sẽ là "21". Nếu bạn cắm "2" và "4", kết quả sẽ là "132112". Chúc vui vẻ!

Bình thường, 10 8 byte

-2 byte bởi @FryAmTheEggman

ussrG8Qz

Giải trình:

            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

Hãy thử nó ở đây .

CJam, 8 byte

q~{se`}*

Định dạng đầu vào là số đầu tiên đầu tiên, lần lặp thứ hai, cách nhau bởi một số khoảng trắng.

Kiểm tra nó ở đây.

Giải trình

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.
}*

Mảng cũng được làm phẳng trước khi được in nên kết quả chỉ là số bắt buộc.

JavaScript, 57 byte

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

Đệ quy hoạt động tốt cho vấn đề này. Tham số đầu tiên là số ban đầu dưới dạng chuỗi và thứ hai là số lần lặp.

MATL , 9 byte

:"Y'wvX:!

Đầu vào là: số lần lặp, số ban đầu.

Hãy thử trực tuyến!

:      % 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 byte

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

Ung dung & giải thích

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
}

Perl 6, 63 byte

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

Điều này ngắn như tôi có thể có được bây giờ, có thể có một số cờ khó khăn có thể làm giảm nó, tôi không chắc chắn

Ruby, 63 byte

Một chương trình đầy đủ, vì câu hỏi dường như yêu cầu điều đó. Đưa đầu vào làm đối số dòng lệnh.

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

^{Không, gsub!không thể được sử dụng, vì các chuỗi trong $*bị đóng băng: /}

Võng mạc , 46 45 27 byte

Martin đã làm rất nhiều để giúp chơi golf này.

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

Dùng thử trực tuyến

Đưa đầu vào theo định dạng:

<start><count>

<start> là số ban đầu.

<count> là đơn nhất, tất cả các dấu gạch dưới và là bao nhiêu lần lặp được thực hiện.

Lặp lại đơn, 20 16 byte:

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

Haskell , 62 byte

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

Hãy thử trực tuyến!

JavaScript ES6, 71 byte

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

Đưa đầu vào dưới dạng một chuỗi và một số.

Perl 5, 50 byte

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

Các đối số theo thứ tự ngược lại (số lần lặp sau đó là hạt giống). Thí dụ:

> 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 byte (Không cạnh tranh)

Đã sửa do nhận xét của Emigna, xem bên dưới / chỉnh sửa.

F.¡vygyÙJ

Hãy thử trực tuyến!

R , 61 57 byte

-4 cảm ơn @JayCe, ngay khi tôi chắc chắn rằng nó không thể được thực hiện đơn giản hơn nữa!

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

Hãy thử trực tuyến!

Toán học, 81 73 byte

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

Jelly , 6 byte (không cạnh tranh)

ŒrUFµ¡

Hãy thử trực tuyến!

           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 byte

Çα▲ì4↔┌j█♀

Chạy và gỡ lỗi trực tuyến!

Đã dành quá nhiều byte trên định dạng IO thích hợp ...

Giải trình

Sử dụng phiên bản giải nén để giải thích.

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

Phần thiết yếu là D|R{rm:f(8 byte).

Nếu đầu vào đầu tiên có thể được lấy dưới dạng một mảng các chữ số, toàn bộ chương trình có thể được viết bằng 9 byte: Chạy và gỡ lỗi trực tuyến!

Python 3, 138 byte

Tôi đã sử dụng một cách tiếp cận đệ quy.

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)

Hàm chấp nhận hai số nguyên avà bnhư được mô tả.

Tôi ngạc nhiên về sự tuyệt vời của các mục ở đây! Có lẽ ai đó cũng sẽ đi cùng với một phương thức Python tốt hơn.

Perl, 38 + 2 byte

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

Yêu cầu -pcờ:

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

Đầu vào là một chuỗi nhiều dòng:

input number
numbers of iterations

Nếu tất cả các bước cũng được yêu cầu thì chúng ta có thể thay đổi nó thành các bước sau, đó là 44 + 2 byte:

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

Giá treo , 11

i:At,{n,A}j

Làm thế nào nó hoạt động:

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 byte

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

In ra tất cả các bước. T/Tcó kết thúc chương trình khi T bằng 0.

APL (Dyalog Classic) , 22 byte

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

Hãy thử trực tuyến!

Võng mạc , 27 byte

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

Hãy thử trực tuyến!

K (ngn / k) , 30 byte

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

Hãy thử trực tuyến!

Python 3.6, 100 98 93 byte

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

Hãy thử trực tuyến!

Lưu ý điều này tạo ra lambda lấy một chuỗi và một số nguyên và trả về một chuỗi. Thí dụ:f('1', 5) == '312211'

Tìm tất cả các ký tự lặp lại ( ((.)\2*)regex), tạo một chuỗi f ngoài chiều dài của chúng và chính ký tự đó ( r'{len("\1")}\2'), sau đó đánh giá nó. Sử dụng đệ quy trên bộ đếm ( n and ...f(s,n-1)... or s) để tránh phải xác định hàm đúng và vòng lặp.