ランレングスエンコーディングを使用してテキストを短くする（または短くする）

入力：

heeeello
うーん

出力：

1h4e2l1o
1w4o1r1l1d

• stdinから行を読み取ります。
• stdoutに出力します。
• Stderrはもちろん破棄されます。
• 非表示のテストケースがあると仮定します（出力の埋め込みなし）
• ASCIIとしての入出力
• すべての言語が受け入れられます

Perl： 46 →36または27文字

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

すべての@ardnewはtr///c、分割する代わりに、演算子を使用して一致した文字列の文字数を数えるという考えを思いついた。

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

Degolfed：

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
}

使用法：

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

またはSTDIN経由

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

プリント

1h4e2l1o

Stax、7 バイト

ûèB☼å°╤

実行してデバッグしますst staxlang.xyz！

解凍（8バイト）と説明：

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バイト、1行でのみ機能します。

∩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

staxlang.xyzで実行してデバッグしてください！

おそらく合法ではありません。このプログラムは、各ペアを独自の行に出力します。少し大ざっぱ。

その出力形式が違法な場合は、6バイトを指定します。

╡δô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

staxlang.xyzで実行してデバッグしてください！

言語の作成者は再帰的に指摘します。uncons-right（N）は、Eとを]独自に処理するため、これをアンパックした6バイトに短縮できます。ただし、この短いプログラムは、パックしても短くならないことがよくあります。これは一例です。まだ6バイト：|RFNpp編集：主な回答を更新する必要がありました。このフォームは私が使用したものです。

J、35 31文字

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

使用法：

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

Brachylog、11バイト

ḅ⟨{lṫ}ch⟩ᵐc

オンラインでお試しください！

（出力が本当に標準出力でなければならない場合wは、最後に1バイトを追加します。）

          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バイト

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

オンラインでお試しください！

モバイルでは、説明に従ってください...

Python 3反復、115 99 97バイト

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)

オンラインでお試しください！

Pythonの3再帰、136の 130 129バイト

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()))

オンラインでお試しください！

反復的なアプローチはかなり成功しているようですが、再帰的なバージョンには改善の余地がたくさんあります。

05AB1E、9 バイト

|εÅγs.ιJ,

オンラインでお試しください。

または代わりに：

|εÅγøí˜J,

オンラインでお試しください。

説明：

|          # 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

Wolfram言語（Mathematica）、98バイト

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

オンラインでお試しください！

より柔軟なI / Oフォーマットにより、このソリューションは54バイトに削減されます。

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

オンラインでお試しください！

バッシュ：104文字

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

サンプルの実行：

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

次のように実行します。

zsh script.zsh < infile

脱ゴルフ

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←⍞

バーレスク（17B）

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

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

古い/代替およびより長いバージョン：

{= [{^^ 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文字

私は、RSの作成したので、これは本当にカウントされません方法をこれが掲載された後...しかし、それはとにかく楽しかったです！

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

ここでお試しください！

Retina、12バイト

(.)\1*
$.0$1

オンラインでお試しください。

説明：

同じキャラクターの1つ以上の一部を取得し、キャプチャグループ1のキャラクターをキャプチャします。

(.)\1*

これを、キャプチャグループ1のキャラクターと連結した、全体の一致の長さに置き換えます。

$.0$1

Ruby、42バイト

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

オンラインでお試しください！

Python 3、84バイト

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())

オンラインでお試しください！

説明

文字列の最初の文字と2番目の文字が等しいかどうかを確認します。ある場合は、カウンターを1増やします。そうでない場合は、カウンターと最初の項目を印刷し、カウンターを1にリセットします。どちらの場合も、最初の文字を削除して関数を再帰的に呼び出します。

文字列の終わりに達したときにエラーを発生させます。

Python 3.8（プレリリース）、70バイト

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

オンラインでお試しください！

Python 3相当（77バイト）

説明

文字列の先頭からすべての繰り返し文字を取り除きます。次に、元の文字列とストリップされた文字列の長さの差（1.）を含む文字列を返します。（2.）元の文字列の最初の文字。（3.）ストリップされた文字列に適用された再帰関数の結果。空の文字列が検出されると、再帰が終了します。

[スカラ（シェル）]、150バイト

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})

オンラインでお試しください！

ここで、純粋なラムダのゴルフを解除しました（103バイト）：

  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
  }

ジュリア1.1、94の 84 81バイト

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

オンラインでお試しください！

CJam、2バイト

e`

e`は、ランレングスエンコーディングの組み込みです。CJamの暗黙の出力は配列の角かっこを無視するため、次のようになり[[1 'h] [2 'e]]ます。"1h2e"

オンラインでお試しください！

Zsh、70バイト

オンラインでお試しください！

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

これは、以前のzsh回答（tioリンク）のはるかにゴルフバージョンです。おそらく、反復の代わりにstring => array変換を使用してより多くのゴ​​ルフをすることができます。