Görev

Pozitif bir tam sayı alacak bir program yazın (girdi olarak). Daha sonra 0, her bir tamsayıyı a'ya ekleyerek sayılacaktır String, ancakString giriş değerinden küçük edecektir.

Bir seri tamsayı maksimum değeri ait tam oluşturulmuş tamsayı olarak tanımlanır String. "Tam olarak biçimlendirilmiş" ile, tamsayı eksik bir basamağa sahip olmamalıdır (uzunluğunun kısıtlaması Stringkarşılandığında oluşur).

Programın çıktısı , ilgili pozitif girişi için serileştirilmiş tamsayı olmalıdır .

kurallar

• Bu kod golf, yani en kısa cevap (bayt cinsinden) kazanır!
• Girdi her zaman pozitif olacaktır.
• Çıktı, taban-10'da (ondalık) bir tamsayı olmalıdır.
• Program 0 dizinli olmalıdır.

Örnek Giriş | Çıktı

   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)

Not (lar)

• Herhangi bir sorunuz varsa (veya daha fazla örnek vermemi istiyorsanız) lütfen yorum yapın!
• İlham: /programming/45034478/how-do--calculate-the-maximum-serialized-integers-in-1024-length-limit

JavaScript (ES6), 40 37 bayt

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

Düzenleme: @Arnauld yardımı ile 3 bayt kaydedildi.

05AB1E , 10 7 bayt

Jonathan'ın Jelly cevabındaki önekleri kullanma fikri

LηJ€g›O

Çevrimiçi deneyin!

açıklama

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 bayt

@ Officialaimm'in cevabından özyinelemeli lambda limanı .

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

Çevrimiçi deneyin!

Japt , 13 bayt

1n@P±X l >U}a

Çevrimiçi test edin!

açıklama

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 bayt

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

Çevrimiçi deneyin!

Haskell , 55 53 50 bayt

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

Çevrimiçi deneyin!

Kullanımı (1024#"") 0

Python 2 , 60 59 58 bayt

• 2 bayt için @Felipe teşekkürler

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

Çevrimiçi deneyin!

Jöle ,  11 10  9 bayt

RD;\L€<⁸S

Pozitif bir tamsayı alan ve negatif olmayan bir tamsayı döndüren monadik bir bağlantı.

Çevrimiçi deneyin!

Nasıl?

düzenleme ...

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 bayt

tf<Q=+d

Çevrimiçi deneyin. Test odası.

Perl 6 , 36 bayt

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

Çevrimiçi deneyin!

• 0 ...^ {...}sıfırdan parantez içindeki kod bloğunun true değerinden birinden daha azına kadar olan sayı dizisidir. (... düzeltme işareti olmadan blok doğru döndürülen ilk sayıyı döndürür.)
• [~] 0 .. $^a sayıların birleştirilmesi 0 geçerli sayıya kadar bir araya getirilmesidir$^a (kod bloğunun parametresi) .
• .combbirleştirilmiş dizgideki tüm karakterlerin (rakamların) listesidir. Sayı olarak yorumlandığında, dizenin uzunluğunu değerlendirir. .charsdoğrudan dizenin uzunluğunu değerlendirdiğinden, burada kullanmak daha doğal olurdu, ancak ad bir karakter daha uzundur.
• $_ üst düzey işlevin bağımsız değişkenidir.
• [*-1] oluşturulan listenin son öğesini seçer.

QBIC , 34 bayt

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

açıklama

{           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 bayt

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

Çevrimiçi deneyin!

J, 26 bayt

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

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

Çevrimiçi deneyin!

WendyScript , 42 bayt

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

f(1024) // returns 377

Çevrimiçi deneyin!

Ungolfed:

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

PHP, 41 bayt

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

Çevrimiçi deneyin .

Java 8, 64 bayt

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

Veya aynı bayt sayısına sahip hafif alternatifler:

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

Açıklama:

Burada deneyin.

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

Ruby , 39 bayt

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

Çevrimiçi deneyin!

Ruby, 44 bayt

Kevin Cruijssen'in JAVA yanıtından esinlenildi. -G B sayesinde 4 bayt.

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

Perl 5 , 31 + 1 ( -p) = 32 bayt

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

Çevrimiçi deneyin!