При заданном числе достаточно просто nсоздать диапазон от 0до n-1. Фактически, многие языки предоставляют эту операцию как встроенную.

Следующая программа CJam читает целое число, а затем распечатывает такой диапазон ( попробуйте онлайн! ):

ri,

Обратите внимание, что он печатает числа без разделителя.

Соревнование

Ваша задача - полностью изменить этот процесс. Вы должны написать программу, которая, учитывая строку, представляющую диапазон, возвращает число, используемое для создания этого диапазона.

Характеристики

• Числа даны без разделителя.
• Вы можете предположить, что строка образует допустимый диапазон.
• Вы можете использовать индексацию на основе 0 или 1 для своего диапазона.
• Вы можете предположить, что правильный вывод никогда не превысит 32 767 (поэтому допустимый ввод никогда не будет иметь длину больше 15 275).
• Вы можете предположить, что правильный вывод всегда будет положительным (поэтому вам не нужно обрабатывать 0 или отрицательный результат).

Это код-гольф , поэтому выигрывает самый короткий конкурирующий ответ (измеряемый в байтах).

Тестовые случаи

0 индексированные:

0123 -> 4
0 -> 1
0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 -> 101

1-индексированный:

1234 -> 4
1 -> 1
123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100 -> 100

Пролог (SWI) , 91 80 байт

0 индексированные.

X*L:-atom_length(X,L),
     between(0,L,Y),
     numlist(0,Y,B),
     atomic_list_concat(B,X)
     ;L=0.

Новые строки добавлены для удобства чтения.

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

Шелуха , 5 байт

LCmLN

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

Только буквы!

Принимает ввод в виде строки, результат индексируется 1.

объяснение

LCmLN
  mLN    get the list of lengths of all positive naturals
 C       cut the input into slices of those lengths
L        get the length of the resulting list

05AB1E , 7 6 байтов

1-индексироваться.

āηJsk>

Попробуйте онлайн! или как тестовый набор

объяснение

ā        # push range [1 ... len(input)]
 η       # compute prefixes of the range
  J      # join each prefix to a string
   sk    # get index of the input in the list of prefixes
     >   # increment

Java 8, 66 59 байт

s->{int r=0;for(String c="";!c.equals(s);c+=r++);return r;}

0 индексированные

-7 байт благодаря @ PunPun1000 .

У меня такое чувство, что это можно сократить, только проверив длину входных данных, поскольку мы можем предположить, что входные данные всегда действительны. Все еще выясняю это. Невозможно понять это, и это, вероятно, будет стоить слишком много байтов в Java, чтобы быть полезным в любом случае (то же самое относится к возврату подстроки конца 1-индексированного ввода).

Объяснение:

Попробуй это здесь.

s->{                 // Method with String parameter and integer return-type
  int r=0;           //  Result-integer
  for(String c="";   //  Check-String
      !c.equals(s);  //  Loop as long as the sum-String doesn't equal the input-String
    c+=r++           //   Append the number to the the Check-String,
                     //   and increase the Result-integer by 1
  );                 //  End of loop
  return r;          //  Return the result-integer
}                    // End of method

Брахилог , 9 7 байт

⟦kṫᵐc,Ẹ

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

0 индексированные.

объяснение

Здесь мы передаем входные данные через переменную Output и получаем доступ к результату через переменную Input.

⟦          The result is the input to a range…
 k         …with the last element removed…
  ṫᵐ       …which when all elements are casted to string…
    c      …and are then concatenated results in the input string
     ,Ẹ    (Append the empty string, this is necessary for it to work in the case where the 
             input is the empty string)

Ly , 29 байт

iys&p>0<11[ppl>s1+<lfspSylL]>

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

Не могу поверить, что это сработало так же хорошо, как и ...

Japt , 8 байт

Начинаем разбираться с методами функций в Japt.

0 индексированные. Может принимать входные данные в виде строки, целого числа или массива, содержащего 0 или 1 элемент.

_o ´U}a

Попробуй это

объяснение

Неявный ввод строки U.

_     }a

Получите первое целое число, >=0которое возвращает true, когда передано через функцию, которая ...

o

Генерирует массив целых чисел от 01 до текущего целого числа ...

¬

Присоединяет это к строке ...

¥U

Проверяет эту строку на равенство с U.

Неявный вывод результирующего целого числа.

Альтернатива, 8 байт

ÊÇo ¬ÃbU

Попробуй это

Древесный уголь , 13 байт

Ｉ⌕Ｅ⁺ψθ⪫ＥκＩλωθ

Попробуйте онлайн! Ссылка на подробную версию кода. Объяснение:

          λ     Inner map variable (μ inner map index also works)
         Ｉ      Cast to string
        κ       Outer map index
       Ｅ        Map over implicit range
      ⪫    ω    Join result
     θ          Input string
   ⁺ψ           Plus an extra character
  Ｅ             Map over each character
 ⌕          θ   Find the index of the original string
Ｉ               Cast from integer to string
                Implicit print

Haskell, 40 37 байт

f s=[n|n<-[0..],(show=<<[0..n])>s]!!0

Функция, которая меняет диапазоны с нуля.

Спасибо Laikoni за сохранение 3 байта!

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

Сетчатка , 30 байт

+1`(\d+?)(?!\D)(?<!\1.+)
$0;
;

Рекурсивно добавляет точку с запятой после каждого числа, а затем подсчитывает количество точек с запятой

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

JavaScript (ES6), 32 31 байт

Сохранено 1 байт благодаря Challenger5

f=(s,r=n='')=>r<s?f(s,r+n++):+n

Контрольные примеры

f=(s,r=n='')=>r<s?f(s,r+n++):+n

console.log(f('0123'))
console.log(f('0'))
console.log(f(''))
console.log(f('0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100'))

Mathematica, 46 байтов

Array[""<>ToString/@Range@#&,2^15]~Position~#&

1-индексированных

вход

[ "12345678910"]

Рубин , 51 50 46 байтов

->n{(0..4e4).map{|x|(1..x).to_a.join}.index n}

(Это моя первая программа на Ruby, так что дальше будет легко играть в гольф)

-4 байта благодаря @Nnnes

Python 2 , 43 байта

f=lambda s,i=1,r='':r<s and-~f(s,i+1,r+`i`)

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

Python 2 , 43 байта

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

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

Python , 46 байт

lambda s:s[-sum(i*'0'in s for i in range(5)):]

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

Другая стратегия. Принимает количество символов с конца, равное длине наибольшей серии 0s в s.

Python , 46 байт

f=lambda s,c=0:c*'0'in s and f(s,c+1)or s[-c:]

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

Рекурсивная версия вышеперечисленного.

R , 47 байт

n=nchar(scan(,""));which(cumsum(nchar(1:n))==n)

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

1-индексированных

APL (Дьялог) , 17 11 байтов

-6 байт благодаря ngn .

{,\⍕¨⍳≢⍵}⍳⊂

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

⍳⊂ найти ɩ NDEX всего аргумента в

{… } Результат этой анонимной функции:

 ≢ длина аргумента

 ⍳ ɩntegers до этого

 ⍕¨ форматировать (stringify) каждый

 ,\ совокупное объединение тех

Perl 5 , 19 байт

18-байтовый код + 1 для -p.

$i++while s/$i\B//

Использует индексирование на основе 1. -7 байт благодаря @ nwellnhof «S гораздо лучше подход!

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

объяснение

$\это специальная переменная, которая printредактируется автоматически после каждого оператора, поэтому, используя ее для хранения нашего номера, нам не нужно обновлять $_(которая автоматически печатается как часть функциональности -pфлага), чтобы содержать желаемый результат. Затем, пока ввод начинается с $\, удалите его и redoпрограмму, которая снова увеличивает $\и заменяет ее. Когда он больше не находит число в начале строки, мы закончили! Наконец, уменьшаем, $\чтобы у нас был последний номер в диапазоне.

Python 2 , 46 байт

0 индексированные

l=lambda x,z="",y=0:z<x and l(x,z+`y`,y+1)or y

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

CJam , 16 байтов

r0({)_,s2$=!}g\;

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

Альтернатива 16 байтов

r:V;0({)_,sV=!}g

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

CJam , 13 байтов

q:Q,),{,sQ=}#

Так много запятых ...

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

объяснение

q:Q            Read the input and store it in Q
   ,           Get its length
    ),         Get the range 0..n
      {,sQ=}#  Find the index of the first number in the range to satisfy this block:
       ,        Get the range 0..(number)-1
        s       Stringify it
         Q=     Check if it equals the input

Perl 6 ,  30 28  27 байтов

{first :k,*eq$_,[\~] '',0...*}

Попробуй это

{[\~]('',0...*).first($_):k}

Попробуй это

{first :k,$_,[\~] '',0...*}

Попробуй это

Expanded:

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

  first       # find the first one
  :k,         # return the index into the Seq instead of what matched
  $_          # that matches the input

  # from the following

  [\~]        # triangle reduce using &infix:«~» (string concatenation)

              # a Seq
    '',       #   that starts with an empty Str
    0         #   then a 0
    ...       #   generate values
    *         #   indefinitely
}

'',0...*производит бесконечную последовательность значений '', 0, 1, 2, 3...

[\~] '',0...* производит бесконечную последовательность всех возможных входов

""
"0"
"01"
"012"
"0123"
...

Обратите внимание, что этот код никогда не остановится, если вы введете неверный ввод.

Pyth , 11 10 байт

1-индексироваться.

fqQ|jkSTk0

Попробуй здесь

Если пустую строку можно игнорировать, ее можно сократить до 6 байт :

fqQjkS

-1 байт благодаря @Mnemonic

CJam, 14 12 11 байтов

q,_){,s,}%#

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

q,   e# Get length of input string
_)   e# Duplicate length, increment by 1
{    e# Generate array by mapping [0,1,2,...,length] using the following function: 
,    e# Generate range [0,x] (x is the int we're mapping)
s    e# Convert range to string (e.g [0,1,2,3] => "0123"
,    e# Get the length of that string
}%   e# Map the int to the length of it's range string
#    e# Return the index of the length of the input string in the generated array

Дивиль , 42 38 байт

s=>"".{var r=0;while($0!=s)$0++=r++;r}

Тот же алгоритм, что и в этом ответе Java , за исключением того, что (ab) использует некоторые синтаксические особенности Dyvil.

Объяснение:

s=>          // starts a lambda expression with one parameter
"".{         // begins a brace access expression, the value before the '.'
             // is available within the braces as a variable named '$0'
var r=0;     // variable with inferred type int
while($0!=s) // while the accumulator $0 does not (structurally) equal s
$0++=r++     // concatenate $0 and the String representation of r,
             // then store the result in $0 and increment r by 1
;            // end of while
r}           // return r as the result of the lambda

• Сохраненные 4байты с использованием выражения доступа скобки вместо переменной для аккумулятора

MATL , 14 байтов

`@q:VXzGX=~}@q

1-индексироваться.

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

объяснение

`       % Do...while
  @     %   Push iteration index (1-based), k
  q     %   Subtract 1: gives k-1
  :     %   Range: [1 2 ... k-1]. Will be empty for k=1
  V     %   Convert to string
  Xz    %   Remove spaces
  G     %   Push input
  X=    %   Are the two strings equal?
  ~     %   Negate. This is the loop condition. If true: next iteration
}       % Finally (execute at the end of the loop)
  @     %   Push k
  q     %   Subtract 1: gives k-1. This is the solution
        % End (implicit). Display (implicit)

C # , 72 байта

Данные

• Входные данные String i Массив int для расшифровки
• Выходные данные Int32 Число, используемое для создания массива

Golfed

(string i)=>{int c,p=c=0;for(;p<i.Length;c++)p+=(c+"").Length;return c;}

Ungolfed

( string i ) => {
    int
        c,
        p = c = 0;

    for( ; p < i.Length; c++ )
        p += ( c + "" ).Length;

    return c;
}

Ungolfed читаемый

// Takes the string with the int array
( string i ) => {
    int
        c,         // Counter, it will count how many ints the array has.
        p = c = 0; // Padding, it will help jumping from int to int on the string.

    // Start counting. If 'i' is empty, the 'c' will be 0.
    for( ; p < i.Length; c++ )

        // Increase the number of digits with the length of 'c'.
        p += ( c + "" ).Length;

    // Return the counter.
    return c;
}

Полный код

using System;
using System.Collections.Generic;
using System.Linq;
using System.Text;
using System.Threading.Tasks;

namespace TestBench {
    public static class Program {
        private static Func<String, Int32> f = ( string i ) => {
            int
                c,
                p = c = 0;

            for( ; p < i.Length; c++ )
                p += ( c + "" ).Length;

            return c;
        };

        static void Main( string[] args ) {
            List<String>
                testCases = new List<String>() {
                    "0123",
                    "0",
                    "",
                    "0123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100",
                };

            foreach(String testCase in testCases) {
                Console.WriteLine($" Input: {testCase}\nOutput: {f(testCase)}\n");
            }

            Console.ReadLine();
        }
    }
}

релизы

• v1.0 - 72 bytes- Исходное решение.

Заметки

• Никто

SOGL V0.12 , 11 10 9 байтов

1-индексироваться.

I∫HΔ∑=?f←

Попробуй здесь!

Объяснение:

I∫         repeat input+1 times
  HΔ         create a range from 1 to the 0-indexed iteration, inclusive
    ∑        join it
     =?      if it's equal to the input
       f←      exit, pushing the 0-indexed counter

..или 7 байт без пустого регистра

∫Δ∑=?F←

Попробуй здесь!

Ацето , 27 25 байт

1 основанный индекс.

;L[¥
`=]z
MLdI<
r!`;   p

Мы rчитаем ввод и Mзачаровываем его (и Lснова непосредственно добавляем), затем отрицаем его ( !; приводя к истинному значению только для пустой строки). Если это значение truey ( `), мы переходим к концу ( ;), где pнабираем неявный ноль.

В противном случае мы увеличиваем текущее значение стека (изначально ноль), дублируем его и помещаем одну копию в стек справа, а также перемещаемся туда ( Id]). Затем мы создаем убывающий диапазон ( z), объединяем стек как строку ( ¥) и снова перемещаем значение (и нас) в исходный стек ( [). Мы Lприсваиваем значение, которое мы запомнили ранее (вход), и сравниваем его с этой строкой. Если равно, мы снова прыгаем до конца, где печатаем текущее значение счетчика ( =`;).

Иначе, много пустого пространства пройдено до тех пор, пока кривая Гильберта в конечном итоге не достигнет точки, <которая Iснова ставит IP на вершину , увеличивая счетчик и снова тестируя.

С накоплением , 23 байта

{!0$#+[::>''#`n=]until}

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

По сути, увеличивается 0до тех пор , пока диапазон от 0числа не будет выглядеть как вход, сначала проверяя равенство.

Желе , 8 байт

JVṾẎ$$Ƥi

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