Rút ngắn (hoặc không) văn bản bằng cách sử dụng mã hóa thời lượng chạy

Đầu vào:

heeeello
thế giới

Đầu ra:

1h4e2l1o
1w4o1r1l1d

• Đọc các dòng từ stdin.
• In ra thiết bị xuất chuẩn.
• Stderr tất nhiên là bị loại bỏ.
• Giả sử có các testcase ẩn (không nhúng đầu ra)
• Đầu vào / đầu ra dưới dạng ASCII
• Mọi ngôn ngữ đều được chấp nhận

Perl: 46 → 36 hoặc 27 ký tự

perl -pe's|((.)\2*)|@x=split//,$1;@x.$x[0]|eg'

Tất cả mưa đá @ardnew đã nảy ra ý tưởng sử dụng tr///ctoán tử để đếm số lượng ký tự trong chuỗi khớp thay vì chia tách:

perl -pe's|((.)\2*)|$1=~y///c.$2|eg'

Bị thoái hóa:

while(defined($_ = <>)) {
  $_ =~ s{((.)\2*)}           # match 1 or more consecutive identical non-newlines
         {
           ($1 =~ y///c )     # count the number of characters in $1
           .                  # and concatenate it
           $2                 # with the first matched character
         }eg;                 # execute substitution, match "global"
  print $_;                   # print the modified line
}

Sử dụng:

$ perl -pe's|((.)\2*)|$1=~y///c.$2|eg' infile

hoặc thông qua STDIN

$ perl -pe's|((.)\2*)|$1=~y///c.$2|eg'
heeeello

in

1h4e2l1o

Stax , 7 byte

ûèB☼å°╤

Chạy và gỡ lỗi nó st staxlang.xyz!

Giải nén (8 byte) và giải thích:

m|RFNppz
m           For each line of input:
 |R           Run-length encode: "heeeello" -> [[104,1],[101,4],[108,2],[111,1]]
   F          For each pair:
    N           Uncons-left: [104,1] -> push [104]; push 1
     ppz        Pop and print. Pop and print. Push "".
              Implicit print (always an empty string) with a newline

5 byte, chỉ hoạt động trên một dòng duy nhất:

∩l↨me
|RmEp]    Unpacked
|R        Run-length encode: "heeeello" -> [[104,1],[101,4],[108,2],[111,1]]
  m       Map block over input:
   E        Explode array: [104,1] -> push 104, push 1
    p       Pop and print with no newline
     ]      Make a one-element list: 104 -> [104] (which is "h")
            Implicit print with newline

Chạy và gỡ lỗi nó tại staxlang.xyz!

Có lẽ không hợp pháp. Chương trình này in mỗi cặp trên một dòng của riêng mình. Một chút sơ sài.

Nếu định dạng đầu ra đó là bất hợp pháp, tôi cung cấp cho bạn 6 byte :

╡δôZ→╬
|RFEp]p    Unpacked
  F        For each item in array, execute block:
      p      Pop and print with no newline
             No implicit print in for-each block, so no extra newlines

Chạy và gỡ lỗi nó tại staxlang.xyz!

Trình tạo đệ quy của ngôn ngữ chỉ ra rằng uncons-right ( N) có thể rút ngắn điều này xuống còn sáu byte được giải nén, vì nó tự xử lý Evà chính ]nó. Tuy nhiên, các chương trình này thường không ngắn hơn khi được đóng gói và đây là ví dụ. Vẫn còn sáu byte: |RFNppChỉnh sửa: Phải cập nhật câu trả lời chính của tôi; hình thức này là những gì tôi đã sử dụng.

J, 35 31 ký tự

,(](":@#,{.);.1~1,2~:/\])1!:1[1

Sử dụng:

   ,(](":@#,{.);.1~1,2~:/\])1!:1[1
heeeello
1h4e2l1o
   ,(](":@#,{.);.1~1,2~:/\])1!:1[1
woooorld
1w4o1r1l1d

Brachylog , 11 byte

ḅ⟨{lṫ}ch⟩ᵐc

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

(Nếu đầu ra thực sự phải ở trên thiết bị xuất chuẩn, hãy thêm một byte cho wcuối.)

          c    The output is the concatenation of
 ⟨    c ⟩ᵐ     the concatenated pairs of
  {lṫ}         length converted to a string
       h       and first element
ḅ        ᵐ     for every run in the input.

K (oK) , 28 byte

{,/($#:'c),'*:'c:(&~=':x)_x}

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

Trên điện thoại di động, giải thích để làm theo ...

Lặp lại Python 3 , 115 99 97 byte

while 1:
 a=b='';k=0
 for c in input():e=a!=c;b+=(str(k)+a)*e;k+=1-k*e;a=c
 print(b[1:]+str(k)+a)

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

Python 3 đệ quy, 136 130 129 byte

f=lambda r,c,s,k=1:s and(c==s[0]and f(r,c,s[1:],k+1)or f(r+str(k)+c,s[0],s[1:]))or r[1:]+str(k)+c
while 1:print(f('','',input()))

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

Cách tiếp cận lặp lại có vẻ khá thành công, trong khi phiên bản đệ quy có nhiều chỗ để cải tiến.

05AB1E , 9 byte

|εÅγs.ιJ,

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

Hay cách khác:

|εÅγøí˜J,

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

Giải trình:

|          # Read all lines of input as list
 ε         # For-each over the lines:
  Åγ       #  Run-length encode, pushing the list of characters and lengths separately
    s      #  Swap so the characters at at the top and lengths below it
     .ι    #  Interleave the two lists
       J   #  Join the list of characters and lengths together to a single string
        ,  #  And output it with trailing newline

|εÅγ       # Same as above
    ø      #  Zip/transpose; creating pairs of [character, length]
     í     #  Reverse each pair to [length, character]
      ˜    #  Deep flatten the pairs to a single list
       J,  #  Join them together to a single string, and output it with trailing newline

Ngôn ngữ Wolfram (Mathicala) , 98 byte

Print[""<>StringCases[#,s:x_..:>ToString@StringLength@s<>x]]&/@StringSplit[$ScriptInputString,"
"]

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

Định dạng I / O linh hoạt hơn làm giảm giải pháp này xuống còn 54 byte :

""<>StringCases[#,s:x_..:>ToString@StringLength@s<>x]&

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

Bash: 104 ký tự

while read s;do e=;while [[ $s ]];do c=${s:0:1};n=${s##+($c)};e+=$[${#s}-${#n}]$c;s=$n;done;echo $e;done

Chạy mẫu:

bash-4.2$ while read s;do e=;while [[ $s ]];do c=${s:0:1};n=${s##+($c)};e+=$[${#s}-${#n}]$c;s=$n;done;echo $e;done <<END
heeeello
woooorld
END
1h4e2l1o
1w4o1r1l1d

Zsh, 117

while read s;do n=1;for i in {1..$#s};do if [[ $s[i] != $s[i+1] ]];then echo -n $n$s[i];n=0;fi;((n++));done;echo;done

Chạy nó như thế này:

zsh script.zsh < infile

Bỏ chơi gôn

while read s; do                      # while stdin has more
  n=1                                 # repeat counter
  for i in {1..$#s}; do               # for each character
    if [[ $s[i] != $s[i+1] ]]; then   # same as next one?
      echo -n $n$s[i]                 # print if no
      n=0
    fi
    ((n++))
  done
  echo                                # newline between words
done

APL (24)

,↑{(⍕⍴⍵),⊃⍵}¨B⊂⍨B≠¯1⌽B←⍞

Burlesque (17B)

{=[{J[-jL[Q}\m}WL

{=[{^^[~\/L[Sh}\m}WL

Phiên bản cũ hơn / thay thế và dài hơn:

{= [{^^ L [Sh \ / -] Sh. +} M [\ [} WL
{= [{^^ L [Sh \ / -] [-. +} M [\ [} WL
{= [{^^ L [Sh \ / - ~. +} M [\ [} WL
{= [{^^ L [Sh \ / -]. +} \ M} WL
{= [{^^ L [Sh \ / [~. +} \ M} WL
{= [{^^ L [Sh \ / [~ _ +} \ m} WL
{= [{^^ L [Sh \ / fc. +} \ M} WL
{= [{^^ L [Sh \ / - ~. +} \ M} WL
{= [{^^ L [Sh \ / -] \ /} \ m} WL

rs , 19 ký tự

Điều này không thực sự đếm vì tôi đã tạo rs cách sau này đã được đăng ... nhưng đó là niềm vui anyway!

(.)(\1*)/(^^\1\2)\1

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

Võng mạc , 12 byte

(.)\1*
$.0$1

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

Giải trình:

Nhận một phần của 1 hoặc nhiều nhân vật giống nhau, bắt nhân vật trong nhóm bắt giữ 1.

(.)\1*

Thay thế nó bằng độ dài của tổng số trận đấu, được ẩn với ký tự từ nhóm chụp 1:

$.0$1

Ruby , 42 byte

->s{s.gsub(/(.)\1*/){|m|"#{m.size}"+m[0]}}

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

Python 3 , 84 byte

def f(s,c=1):i,*j=s;b=j[:1]==[i];print(end='%s%s'%(c,i)*(b^1));f(j,1+b*c)
f(input())

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

Giải trình

Kiểm tra xem các ký tự đầu tiên và thứ hai của chuỗi có bằng nhau không. Nếu có, hãy tăng bộ đếm lên 1. Nếu không, hãy in bộ đếm và mục đầu tiên và đặt lại bộ đếm thành 1. Trong cả hai trường hợp, hàm được gọi đệ quy với ký tự đầu tiên bị xóa.

Tăng lỗi khi kết thúc chuỗi.

Python 3,8 (tiền phát hành) , 70 byte

f=lambda s:'%s%s'%(len(s)-len(t:=s.lstrip(p:=s[0])),p)+f(t)if s else''

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

Python 3 tương đương (77 byte)

Giải trình

Loại bỏ tất cả các ký tự lặp lại từ đầu chuỗi. Sau đó, nó trả về một chuỗi chứa (1.) sự khác biệt về độ dài giữa chuỗi gốc và chuỗi bị tước; (2.) ký tự đầu tiên của chuỗi gốc; (3.) kết quả của hàm đệ quy được áp dụng cho chuỗi bị tước. Đệ quy kết thúc khi gặp một chuỗi rỗng.

[Scala (shell)], 150 byte

scala.io.Source.stdin.getLines.foreach(s=>println{val(x,y,z)=s.tail.foldLeft(("",s.head,1)){case((a,b,c),d)=>if(b==d)(a,b,c+1)else(a+c+b,d,1)};x+z+y})

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

Ở đây, Lambda de-golfed thuần túy (103 byte):

  s => {
    val (x,y,z) = s.tail.foldLeft(("", s.head, 1)) {
      case ((a, b, c), d) =>
        if (b == d)
          (a, b, c + 1)
        else
          (a + c + b, d, 1)
    }
    x+z+y
  }

Julia 1.1 , 94 84 81 byte

foldl(((n,l),c)->(c==l||print(n,l);((c==l&&n)+1,c)),readline()*'\n',init=("",""))

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

CJam , 2 byte

e`

e`là một tích hợp để mã hóa chiều dài chạy. Đầu ra ngầm của CJam bỏ qua dấu ngoặc và do đó biến [[1 'h] [2 'e]]thành"1h2e"

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

Zsh, 70 byte

thử trực tuyến!

for ((n=1;i++<#w;n++))[[ $w[i] != $w[i+1] ]]&&printf $n$w[i]&&n=0
echo

Đây là một phiên bản golfer hơn nhiều của câu trả lời zsh trước đó ( liên kết tio ). Có thể được đánh gôn nhiều hơn bằng cách sử dụng chuỗi => chuyển đổi mảng thay vì lặp.