任务

编写一个将（作为输入）正整数的程序。然后，它将从开始计数0，将每个整数附加到String，仅在的长度String小于输入值时才继续。

甲序列整数被定义为具有最大值属于完全形成的整数String。通过“完全形成”，该整数应没有丢失的数字（如果满足的长度约束，则将出现此数字String）。

程序的输出应为其相应的正输入的序列化整数。

规则

• 这是代码高尔夫球，所以最短的答案（以字节为单位）获胜！
• 输入将始终为正。
• 输出必须是以10为底的整数（十进制）。
• 该程序必须为0索引。

输入示例| 输出量

   5 | 4   (0 1 2 3 4              - Length of 5)
  11 | 9   (0 1 2 3 4 5 6 7 8 9 1  - Length of 11)
  12 | 10  (0 1 2 3 4 5 6 7 8 9 10 - Length of 12)
1024 | 377 (0 1 2 3 4 5 6 7 8 ...  - Length of 1024)

笔记）

• 如果您有任何疑问（或希望我提供更多示例），请发表评论！
• 灵感：https : //stackoverflow.com/questions/45034478/how-do-i-calculate-the-maximum-serialized-integers-in-1024-length-limit

JavaScript（ES6），40 37字节

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

<input type=number min=1 value=1 oninput=o.textContent=f(this.value)><pre id=o>0

编辑：在@Arnauld的帮助下保存了3个字节。

05AB1E，10 7字节

使用乔纳森的果冻答案中的前缀的想法

LηJ€g›O

在线尝试！

说明

L         # range [1 ... input]
 η        # prefixes
  J       # join each to string
   €g     # get length of each string
     ›    # input is greater than string length
      O   # sum

Python 2，55个字节

@officialaimm的答案中的递归lambda端口。

f=lambda k,s='',i=1:k>len(s+`i`)and f(k,s+`i`,i+1)or~-i

在线尝试！

Japt，13个字节

1n@P±X l >U}a

在线测试！

说明

1n@ P± X l >U}a
1nX{P+=X l >U}a
                   Implicit: U = input integer, P = empty string
  X{         }a    Return the first integer X in [0, 1, 2, ...] that returns a truthy value:
    P+=X             Append X to P.
         l >U        Return P.length > U.
                   This returns the first integer that can't fit into the U-char string.
1n                 Subtract 1 from the result.
                   Implicit: output result of last expression

PHP，56字节

for(;$argn>$l=strlen($r);)$r.=+$i++;echo$i-1-($argn<$l);

在线尝试！

Haskell，55 53 50字节

(n#x)a|l<-a++show x=last$x-1:[n#l$x+1|length l<=n]

在线尝试！

用法是 (1024#"") 0

Python 2中，60个59 58字节

• 感谢@Felipe 2个字节

i,j,k='',1,input()
while len(i+`j`)<k:i+=`j`;j+=1
print~-j

在线尝试！

果冻， 11 10  9 字节

RD;\L€<⁸S

单链链接，采用正整数并返回非负整数。

在线尝试！

怎么样？

编辑中...

RD;\L€<⁸S - link: number n
R         - range -> [1,2,...10,11,...,n-1]
 D        - convert to decimal (vectorises) -> [[1],[2],...,[1,0],[1,1],...D(n-1)]
   \      - cumulative reduce by:
  ;       -   concatenation -> prefixes i.e.: [[1],[1,2],...,[1,2,...,1,0],[1,2,...,1,0,1,1],[1,2,...,1,0,1,1,...Flattened(D(n))]]
    L€    - length of €ach -> [1,2,3,...,11,13,...,length([1,2,...,1,0,1,1,...Flattened(D(n))])]
       ⁸  - chain's left argument, n
      <   - less than? (vectorises)
        S - sum (yields the number of prefixes that are less than or equal in length to n)
          -   Note: `0` is excluded from the range and all the prefixes, but including
          -         it would mean comparing to n+1 AND decrementing at the end (for a
          -         total cost of a byte)

Pyth，8个 7字节

tf<Q=+d

在线尝试。 测试套件。

Perl 6，36个字节

{(0...^{([~] 0..$^a).comb>$_})[*-1]}

在线尝试！

• 0 ...^ {...}是从零到小于括号中代码块返回true的数字的数字序列。（...如果没有插入符号，则将返回该块返回true的第一个数字。）
• [~] 0 .. $^a是数字0到当前数字$^a（代码块的参数）的串联。
• .comb是串联字符串中所有字符（数字）的列表。解释为数字，它计算字符串的长度。 .chars在这里使用它会更自然，因为它直接计算字符串的长度，但是名称长一个字符。
• $_ 是顶级函数的参数。
• [*-1] 选择生成列表的最后一个元素。

QBIC，34个字节

{A=!p$~_lB+A|>:|_xp-1|\B=B+A]p=p+1

说明

{           DO infinitely
A=!p$       Set A$ to p cast to num
            Note that p starts out as 0.
~      >:   IF the input number is exceeded by
 _l   |     the length of
   B+A      A$ and B$ combined
_xp-1|      THEN QUIT, printing the last int successfully added to B$
            The _X operator quits, (possibly) printing something if followed by a-zA-Z
            _x is slightly different, it prints the expression between the operator _x and |
\B=B+A      ELSE add A$ to B$
]           END IF
p=p+1       Raise p, and rerun

Python 2，44字节

f=lambda k,i=0:-2*(k<0)or-~f(k-len(`i`),i+1)

在线尝试！

J，26个字节

(>i:1:)([:+/\[:>.10^.1+i.)

((>i:1:)([:+/\[:>.10^.1+i.))"0 ] 5 11 12 1024 2000 20000 100000 1000000
4 9 10 377 702 5276 22221 185184

R，43个字节

n=scan();sum(cumsum(floor(log10(1:n))+1)<n)

在线尝试！

WendyScript，42个字节

<<f=>(x){<<n=""#i:0->x{n+=i?n.size>=x/>i}}

f(1024) // returns 377

在线尝试！

取消高尔夫：

let f => (x) {
  let n = ""
  for i : 0->x { 
    n+=i
    if n.size >= x 
    ret i
  }
  ret
}

PHP，41字节

while(strlen($s.=+$i++)<=$argn);echo$i-2;

在线尝试。

Java 8，64字节

n->{int i=0;for(String t="0";;t+=++i)if(t.length()>n)return~-i;}

或具有相同字节数的轻微替代方案：

n->{int i=0;for(String t="";;t+=i++)if(t.length()>n)return i-2;}
n->{int i=-1;for(String t="";;t+=++i)if(t.length()>n)return~-i;}

说明：

在这里尝试。

n->{                  // Method with integer as both parameter and return-type
  int i=0;            //  Integer `i`, starting at 0
  for(String t="0";   //  String, starting at "0"
      ;               //  Loop indefinitely
       t+=++i)        //    After every iteration: append the String with `i+1`
                      //    by first increasing `i` by 1 with `++i`
    if(t.length()>n)  //   If the length of the String is larger than the input:
      return~-i;      //    Return `i-1`
                      //  End of loop (implicit / single-line body)
}                     // End of method

红宝石，39个字节

->n{~-(0..n).find{|x|0>n-="#{x}"=~/$/}}

在线尝试！

Ruby，44个字节

受到Kevin Cruijssen的JAVA答案的启发。-G 4个字节。

->n{i,t=0,'';t+="#{i+=1}"while t.size<n;i-1}

Perl 5，31 +1（-p）= 32字节

$".=++$\while$_>=length$"}{$\--

在线尝试！