チャレンジ：

s文字a- z、A- Z、0-の文字列を指定すると9、の長さsをそれ自体に追加し、長さの追加の文字をの全長の一部としてカウントしsます。

入力：

任意の長さの文字列（空にすることもできます）。

出力：

同じ文字列ですが、長さが末尾に追加されます。長さを表す文字も長さの一部としてカウントする必要があります。追加する有効な長さが複数ある場合は、可能な限り短いものを選択してください（例については、テストケースを参照してください）。

テストケース：

INPUT     -> OUTPUT       // Comment
aaa       -> aaa4
          -> 1            // Empty string
aaaaaaaa  -> aaaaaaaa9    // aaaaaaaa10 would also normally be valid, but violates using the smallest number rule mentioned above
aaaaaaaaa -> aaaaaaaaa11
a1        -> a13          // Input can contain numbers at the end of the string, you do not have to handle the fact that it looks like 13 rather than 3.

Longer test case(s):

aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa -> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa101
aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa -> aaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaaa102

ルール：

これはcode-golfなので、バイト単位の最短コードが優先されます。標準的な抜け穴は禁止されています。提出はプログラム全体または関数である場合があり、結果をstdoutに出力するか、関数から変数として返すことができます。

Pyth-7バイト

+Qfql+Q

こちらからオンラインでお試しください。

JavaScript（ES6）、32バイト

f=(s,n=0)=>(s+n)[n]?f(s,n+1):s+n

使い方

f = (s, n = 0) =>   // given a string 's' and starting with n = 0:
  (s + n)[n] ?      // if the Nth character of (s + n) exists:
    f(s, n + 1)     //   try again with n + 1
  :                 // else
    s + n           //   return s + n

から始めてN=0、元の入力文字列との10進表現を連結した文字列のN番目の文字（0ベース）をテストしNます。Nこのキャラクターがなくなるまで増分します。

例：

N =  0 : abcdefghi0
         ^
N =  1 : abcdefghi1
          ^
N =  2 : abcdefghi2
           ^
...
N =  8 : abcdefghi8
                 ^
N =  9 : abcdefghi9
                  ^
N = 10 : abcdefghi10
                   ^
N = 11 : abcdefghi11    -> success
                    ^

テストケース

f=(s,n=0)=>(s+n)[n]?f(s,n+1):s+n

console.log(f("aaa"));       // -> aaa4
console.log(f(""));          // -> 1
console.log(f("aaaaaaaa"));  // -> aaaaaaaa9
console.log(f("aaaaaaaaa")); // -> aaaaaaaaa11
console.log(f("a1"));        // -> a13

LaTeX、108/171

\newcounter{c}\def\s#1#2]{\stepcounter{c}\def\t{#2}\ifx\empty\t\arabic{c}\else#1\s#2]\fi}\def\q[#1]{\s#10]}

\q[] //1

JavaScript（ES6）、37バイト

f=(s,t=s,u=s+t.length)=>t==u?t:f(s,u)

<input oninput=o.textContent=f(this.value)><pre id=o>

C、67 65 61バイト

x;f(*v){printf("%d",(int)log10(x=-~printf(v))*-~(x%10>8)+x);}

ワンドボックス

Lua 5.2、32バイト

a=arg[1]print(a..#a+#(''..#a+1))

ここで、変数aは入力文字列です。

Pyke、8バイト（旧バージョン）

.f+liq)+

説明：

.f    )  -  first where (i++)
  +      -    input + i
   l     -    len(^)
    iq   -   ^ == i
       + - input + ^

ここで試してみてください！（新バージョン、9バイト）

パイソン2、54の 48 46バイト

シンプルなソリューション。再帰は短くなりました。

f=lambda s,n=0:f(s,n+1)if(s+`n`)[n:]else s+`n`

オンラインで試す

Haskell、46バイト

f s=[l|i<-[0..],l<-[s++show i],length l==i]!!0

使用例：f "aaaaaaaa"- > "aaaaaaaa9"。

0で始まるすべての数字を試して、適合する最初の数字を取得します。

Mathematica、57バイト

#<>ToString[(a=Length@#)+(i=IntegerLength)[a+i@a]~Max~1]&

入力として文字の配列を取り、文字列を返す名前のない関数。aが入力の長さである場合、入力に追加する数値は、の桁数だけではなくa、（a+の長さa）の桁数に加算されるという事実を使用します。残念ながら、特別な場合を除いて、空文字列の入力に対して正しい答えを出すことはできません。aa~Max~1

Brachylog、13バイト

l<L$@:?rc.lL,

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

説明

基本的に問題の説明。L入力に連結されたときにその連結の長さである値が見つかるまで、入力の長さより大きいすべての値を試行します。

l<L              length(Input) < L
  L$@            Convert L to a string
     :?rc.       The Output is the concatenation of the Input with L as string
         .lL,    The length of the Output is L itself

Brainfuck、258バイト

,>+<----------[++++++++++>+[>+<-],----------]<[<]>[.>]>>>++++++++++<<[->+>-[>+>>]>[+[-<+>]>+>>]<<<<<<]>>[-]>>>++++++++++<[->-[>+>>]>[+[-<+>]>+>>]<<<<<]>[-]>>[>++++++[-<++++++++>]<.<<+>+>[-]]<[<[->-<]++++++[->++++++++<]>.[-]]<<++++++[-<++++++++>]<.[-]<<[-<+>]

入力は改行（LF）で終了する必要があります。長さが256より小さい入力（LFを含む）でのみ機能します。

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

説明

# read first char and add one to cell #1
# the cell after the input will contain the length
,>+<
# subtract 10 to check for LF
----------
# while the input is not 10 (LF)
[
# restore the input to its original value
++++++++++
# add one to the length
>+
# cut and paste the length to the next cell, then read the input
[>+<-],
# subtract 10 to check for LF
----------
]
# for input abc, the tape here would be: a b c *0* 4
# rewind to the beginning of the input
<[<]>
# print the input string
[.>]>
# convert the length to ascii chars and output them
>>++++++++++<<[->+>-[>+>>]>[+[-<+>]>+>>]<<<<<<]>>[-]>>>++++++++++<[->-[>+>>]>[+[-
<+>]>+>>]<<<<<]>[-]>>[>++++++[-<++++++++>]<.<<+>+>[-]]<[<[->-<]++++++[->++++++++
<]>.[-]]<<++++++[-<++++++++>]<.[-]<<[-<+>]

注：このSO回答のコードを使用して、長さをASCII出力に変換しました。これがPPCGで受け入れられることを願っています。これは私の最初のCodegolf提出物であり、私の2番目のBFプログラムです。フィードバックを歓迎します。

網膜、22バイト

\G`
.
x
+r`\d*$
$._
x

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

ああ、入力に数字が表示されない場合、これはたった11バイトになります。

+r`\d*$
$._

ルビー、62 58 56バイト

s=gets.chomp;p s+"#{(s+"#{(s+"#{s.size}").size}").size}"

でテスト済みirb。

おそらくこれを行うためのより良い方法がありますが、これが最初に思いついたものでした。ゴルフの助けをいただければ幸いです。

編集：括弧の使用が多すぎることに気づきました。

Perl 6の、 46の  35バイト

{$_~(.chars,*.chars+.chars...{$^a==$^b})[*-1]}

{$_~(.chars,*.chars+.chars...*)[2]}

それを試してみてください

拡張：

{   # bare block lambda with implicit parameter ｢$_｣

  $_  # the input

  ~   # concatenated with

  (  # sequence generator

    .chars,  # the number of chars in ｢$_｣ (seed the generator)


    *\      # Whatever lambda input (represents previous value)
    .chars  # number of chars in that
    +       # plus
    .chars  # the number of chars in ｢$_｣


    ...     # keep doing that until

    *       # indefinitely

  )[2] # get the value at index 2 of the sequence
}

05AB1E、11バイト

[¹¾JDg¾Q#¼\

かなり簡単なブルートフォース：

            Implicit i = 0
[           while true
 ¹¾J        Concatenate input and i -> str
    Dg¾Q#   Break if length(str) == i
         ¼\ Else, i += 1

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

Python、39バイト

lambda a:eval('a+str(len('*3+'a))))))')

長い形式：

lambda a:a+str(len(a+str(len(a+str(len(a))))))

Python 2で繰り返し（41バイト）：

x=a=input();exec"x=a+`len(x)`;"*3;print x

x入力文字列として開始して、a変換をx -> a + str(len(x))3回適用します。常に固定小数点に到達するために3つのアプリケーションが必要な理由はまだわかりません。

PHP、42バイト

while(++$n<strlen($a=$argv[1].$n));echo$a;

で実行し-rます。OnlinePHPfunctionsでテストします。

bash、47バイト

 for((n=-1;${#s} != $n;));{ s=$1$[++n];};echo $s

これをスクリプトとして保存し、入力文字列を引数として渡します。

それはブルートフォース実装です。動作する番号が見つかるまで、各番号を順番に試します。

> <>（魚）35バイト

i:1+?!v:o
ln;v9l<  >
*9+>:&)?!^1l&a

入力をスタックに取り込み、9,99,999 ...の値に対して長さをチェックし、長さがスタック長に1を加算するよりも大きい場合。

Haskell、61 60バイト

e=length
l%n|s<-show$l+1,n>e s=s|m<-n+1=(l+1)%m
c s=s++e s%2

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

再帰的なソリューション。使用法：

Prelude> c "aaaaaaaaa"
"aaaaaaaaa11"

C＃、77バイト

n=>{int a=n.Length;int c=(a+1).ToString().Length-1;return(n+(n.Length+1+c));}

MATL、11バイト

`G@Vhtn@>]&

オンラインでお試しください！または、すべてのテストケースを確認します。

`      % Do...while
  G    %   Push input
  @    %   Push iteration index (1-based)
  V    %   Convert number to string
  h    %   Concatenate horizontally
  t    %   Duplicate
  n    %   Get length of concatenated string
  @    %   Push iteration index
  >    %   True if length of concatenated string exceeds iteration index
]      % End. Run next iteration if top of stack is true; else exit loop
&      % Specifiy that next function (implicit display) takes only one input
       % Implicitly display top of the stack. This is the concatenated string
       % that had a length equal to the iteration index

Ruby、51バイト（プログラム）

Ruby、49バイト（関数）

プログラム（最後の改行は必要ないため、スコア付けされません）：

x=gets.strip
i=0
i+=1 until(y=x+i.to_s).size==i
p y

機能（最後の改行がスコアリングされます）：

def f x
i=0
i+=1 until(y=x+i.to_s).size==i
y
end

ファクター、55バイト

公園を散歩します！質問を読んだ途端、これを頭の中で思いつきました。

[ dup length dup log10 ⌈ + >integer 10 >base append ]

Clojure、72バイト

(defn f([s](f s 1))([s n](if(=(count(str s n))n)(str s n)(f s(inc n)))))

R、49バイト

cat(a<-scan(,""),(t<-nchar(a))+nchar(t+1),sep='')

非常に簡単なソリューション。

Wolfram、56歳

#<>ToString@Nest[l+IntegerLength@#&,l=StringLength@#,2]&

l = StringLength[x]それがに追加さl + IntegerLength[l + IntegerLength[l]]れると仮定しxます。

ラビリンス、48 45 41バイト

)"   10/{:@!
.,;: _ { _ ;
   })"}) 10-9!@

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

@Martin Enderに感謝した4バイトを保存

ForceLang、83バイト

set s io.readln()
label 1
set n 1+n
set t s+n
if t.len=n
 io.write t
 exit()
goto 1