Найти сериализованное целое число

16

задача

Напишите программу, которая будет принимать (в качестве входных данных) положительное целое число. Затем он будет отсчитывать от 0, добавляя каждое целое число к a String, только продолжая, если длина Stringменьше значения ввода.

Сериализованное целое число определяются как полностью сформированное целое с максимальным значением , принадлежащим к String. В «полностью сформированном» целое число не должно иметь пропущенных цифр (что может произойти, если соблюдается ограничение длины String).

Выходные данные программы должны быть сериализованным целым числом для соответствующего положительного входа.

правила

  • Это код гольф, поэтому самый короткий ответ (в байтах) выигрывает!
  • Вход всегда будет положительным.
  • Выходные данные должны быть целыми числами в десятичной системе счисления.
  • Программа должна быть 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)

Примечания)

code-golf string integer Джейкоб Г.
источник
6
Предлагаемый тестовый пример:11
Род
@Rod добавил это, надеюсь, это облегчает понимание!
Джейкоб Дж
Добавление кавычек в строку в примерах может помочь понять, что это строка.
Исаак
Таким образом, первые N-1цифры константы Champernowne , с 0префиксом?
Mego

Ответы:

8

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
Развернуть фрагмент

Редактировать: 3 байта сохранены с помощью @Arnauld.

Нил
источник
5

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
ETHproductions
источник
4

Желе ,  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)
Джонатан Аллан
источник
4

Pyth, 8 7 байтов

tf<Q=+d

Попробуйте онлайн. Тестирование.

PurkkaKoodari
источник
Я люблю это! Использование нарезки в качестве сравнения блестяще.
Исаак
@isaacg Это одна из приятных возможностей Pyth для игры в гольф. Идея пришла мне в голову, когда я увидел ответ Нейла (индексация вместо нарезки, но та же идея). < num seqбыло также очень полезно.
PurkkaKoodari
3

Perl 6 , 36 байт

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

Попробуйте онлайн!

  • 0 ...^ {...}последовательность чисел от нуля до единицы, меньшая числа, для которого блок кода в фигурных скобках возвращает значение true. (... без каретки вернуло бы первое число, для которого блок вернул true.)
  • [~] 0 .. $^aявляется объединением чисел от 0текущего номера $^a(параметр до кодового блока).
  • .combсписок всех символов (цифр) в объединенной строке Интерпретируется как число, оно оценивается по длине строки. .charsбыло бы более естественно использовать здесь, так как он оценивает непосредственно до длины строки, но имя на один символ длиннее.
  • $_ является аргументом функции верхнего уровня.
  • [*-1] выбирает последний элемент сгенерированного списка.
Шон
источник
2

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
steenbergh
источник
2

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
Eelvex
источник
0

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
Кевин Круйссен
источник
0

Рубин, 44 байта

Вдохновленный ответом JAVA Кевина Круйссена. -4 байта благодаря G B.

->n{i,t=0,'';t+="#{i+=1}"while t.size<n;i-1}
показать имя
источник
(i + = 1; t + = i.to_s) - это то же самое, что и t + = "# {i + = 1}", только на 4 байта длиннее
GB
И если вы сделаете это, вам больше не нужна переменная t, вы можете вычесть размер из n, а затем сравнить с 0.
GB