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

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

правила :

1. Ваша программа должна принимать один положительный целочисленный параметр для общей длины строки рулетки
2. Для каждой непрерывной цепочки цифр в выходных данных эти цифры должны точно указывать длину выходных данных - включительно !
   1. Длина измеряется от начала строки до конца каждого числа
3. В строку должно быть включено как можно большее число чисел
4. Избегайте двусмысленности. Разделители / разделители могут использоваться, чтобы избежать наложения чисел, т.е.12 говорит двенадцать, а не один, два.
5. Строка всегда должна точно указывать общую длину в конце, без конечных разделителей.
6. Возможно, вам понадобится несколько разделителей, чтобы сохранить точность длины, например, вот пример строки с рулеткой длиной 4: 1--4

Непредставительные / исчерпывающие примеры:

• рулетка длиной 1: 1
• Строка рулетка длиной 2: -2
• рулетка длиной 3: 1-3
• рулетка длиной 4 1--4или-2-4 (обе длины отчета как можно чаще, т. е. дважды, и заканчиваются правильной общей длиной)
• Строка рулетка длиной 10: 1-3-5-7-10
• строка рулетки длиной 11: 1-3-5-7--11или 1-3-5--8-11или 1-3--6-8-11или 1--4-6-8-11или -2-4-6-8-11(все имеют как можно больше чисел длины и заканчиваются общей длиной строки)

Python, 50 48 47 46 байт

f=lambda x:x*"1"if x<2else f(x-len(`-x`))+`-x`

объяснение

Довольно простое рекурсивное лямбда-решение

Наши базовые случаи равны 1 и 0, которые покрываются "1"*xиначе, мы получаем строку -xс `-x`и добавляем результат вызова функции на len(`-x`)less.

Mathematica, 67 57 байт

Спасибо Мартину Эндеру за удаление 10 байт!

""["1"][[#]]/._@__:>#0[#-1-IntegerLength@#]<>ToString@-#&

Безымянная функция, принимающая неотрицательный целочисленный аргумент и возвращающая строку. Довольно очевидный рекурсивный алгоритм: убедитесь, что строка заканчивается вводимым числом, которому предшествует a "-", и затем снова вызовите функцию, используя #0.

Но при реализации этого алгоритма можно получить удовольствие от игры в гольф. ""["1"][[#]]обозначает #аргумент th выражения ""["1"]: 0 ""-й аргумент является заголовком "1", а 1-й аргумент является видимым , что обеспечивает базовые случаи рекурсии. Если #превышает 1, то ""["1"][[#]]выдает сообщение об ошибке и остается как неоцененная функция. Но тогда /._@__:>есть правило, которое принимает любую неоцененную функцию и преобразует ее в следующее выражение, которое является рекурсивным вызовом исходной функции.

Исходное представление:

If[#<2,""["1"][[#]],#0[#-1-IntegerLength@#]<>"-"<>IntegerString@#]&

JavaScript (ES6), 49 байт

f=(n,s='',t=''+-n)=>n>1?f(n-t.length,t+s):n?n+s:s

<input type=number oninput=o.value=f(this.value)><br><textarea id=o></textarea>

Pyth, 23 байта

L?<b2*"1"b+y-bl+""_bs_b

Откровенно украл рекурсивное решение из ответа Волшебника Пшеницы . Кроме того, я считаю, что это не игра в гольф должным образом.

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

Perl 6 , 43 байта

{[R~](-$_,{$_+.comb}...^*>-1).&{S/^\-1/1/}}

Объяснение:

{                                         }  # A lambda.
                    ...                      # Generate a sequence...
      -$_                                    #   starting from the negated lambda argument,
         ,{        }                         #   continuing iteratively using the formula:
           $_+.comb                          #     Last element plus length of last element.
                        *>-1                 #   until we hit 0 or higher,
                       ^                         end-point not inclusive.
 [R~](                      )                # Reverse and concatenate the number sequence.
                             .&{         }   # Apply to this the transformation:
                                S/^\-1/1/    #   Remove the sign from a leading "-1".

Так, например, для ввода 10 он генерирует последовательность (-10, -7, -5, -3, -1), и из этой строки -1-3-5-7-10, и из этой конечной строки 1-3-5-7-10.

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