Пытаясь сыграть несколько моих ответов в гольфе, мне нужно было написать большие целые числа, используя как можно меньше символов.

Теперь я знаю лучший способ сделать это: я заставлю тебя писать эту программу.

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

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

счет

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

Запись с наибольшим счетом выигрывает.

Python 3 → CJam, (163 ¹²² - 1) · 255/162 + 1 ≈ 1,213 · 10 ²⁷⁰

import sys
n = int(input())
for b in range(163, 1, -1):
    s = []
    m = n
    while m:
        m, r = divmod(m - 93, b)
        if m < 0:
            break
        s.append(r + 93)
    else:
        sys.stdout.buffer.write(b'"%s"%db' % (bytes(s[::-1]), b))
        break
else:
    sys.stdout.buffer.write(b'%d' % n)

Оказывается, что каждое целое число от 1023 до (163 ¹²² - 1) · 255/162 может быть представлено по меньшей мере одним способом с помощью преобразования b ≤ 163 из строки длиной не более 122 символов с кодами от 93 до b + 92, вместо обычных от 0 до b - 1. Это позволяет избежать проблемных символов 34 (двойная кавычка) и 92 (обратная косая черта) без какого-либо дополнительного выходного кода.

Пиф, 252 ¹¹¹ ≈ 3.593 × 10 ²⁶⁶

Js[
"ixL-rC1`H``N"
N
s@L-rC1`H``NjQ252
N
"252")$import sys$$sys.stdout.buffer.write(J.encode('iso-8859-1'))$

Пришлось использовать немного синтаксиса Python, потому что Pyth не printможет печатать в iso-8859-1.

Число кодируется в базе 252 и представляет каждую цифру в этой базе как символ ISO-8859-1. Символы \и "должны были бы убежать, и поэтому не используются. Символ `не используется, потому что игра в гольф ... И кроме того, нулевой байт также не используется, компилятор Pyth запрещает это.

Вывод - это программа с объемом служебной информации 17 байтов:

ixL-rC1`H``N""252

Вот пример использования с наибольшим возможным числом:

объяснение

выходной программы.

ixL-rC1`H``N""252
    rC1`H          create the range of chars: ['\x01', '\x02', ..., '{}']
         ``N       creates a string containing the 3 chars " ' \
   -               remove strings which consists of these 3 chars
 xL         ""     determine the index of each char in "" (encoded number)
i             252  convert from base 253 to base 10

CJam, 254 ¹⁰⁹ ≈ 1,34 x 10 ²⁶²

q~254b{_33>+_91>+c}%`"{_'[>-_'!>-}%254b"

Я кодирую число в базе 254 и представляю каждую цифру в этой базе как символ ISO 8859-1, пропуская "и \. Выходные данные имеют ^{служебную} нагрузку 19 байтов ""{_'[>-_'!>-}%254b, поэтому я могу представить все, что меньше 254 ^128-19 , или явно

13392914970384089616967895168962602841770234460440231501234736723328784159136966979592516521814270581662903357791625539571324435618053333498444654631269141250284088221909534717492397543057152353603090337012149759082408143603558512232742912453092885969482645766144

В качестве примера, 6153501будет закодирован как

"abc"{_'[>-_'!>-}%254b

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

Perl, 10 ²¹⁶

print"print unpack'h*',q{",(pack'h*',<>),"}"

Также базовая кодировка 100, немного более элегантная. Выход для 12345678будет:

print unpack'h*',q{!Ce‡}

Делиметры {и }соответствуют шестнадцатеричным значениямb7 и d7соответственно, которые не могут появиться во входных данных, и, следовательно, не должны быть экранированы.

Имеется 20 байтов служебных данных, оставляя 108 для кодирования, достигая максимального значения 10 ²¹⁶ -1.

Perl, 10 ²⁰⁶

print"ord=~print\$' for'",(map chr"1$_",<>=~/.{1,2}/g),"'=~/.|/g"

Простая базовая кодировка 100. Вывод для 12345678будет выглядеть так:

ord=~print$' for'p†œ²'=~/.|/g

Имеется 25 байтов служебных данных, оставляя 103 для кодирования, достигая максимального значения 10 ²⁰⁶ -1.

Common Lisp, 36 ¹¹⁴ - 1 ~ 2,62 × 10 ¹¹⁷

(lambda(x)(format t"(lambda()#36r~36r)"x))

Наибольшее число:

2621109035105672045109358354048170185329363187071886946329003212335230440027818091139599929524823562064749950789402494298276879873503833622348138409040138018400021944463278473215

Просто используйте базу 36. Для самого большого ввода 128-байтовый длинный вывод:

(lambda()#36rzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz)

CJam, 233 ¹¹⁴ ≈ 7.561⋅10 ²⁶⁹

ri233b{Kms/m]_34=+c}%s`"{iKms*}%233b"

Программа вывода "…"{iKms*}%233bдекодирует 8-битные символы строки в базовые 233 цифры с n ↦ ⌊ n ⋅ sin 20⌋ = ⌊ n ⋅ 0,913⌋. Это преобразование оказывается сюръективным, не требуя ввода критических кодовых точек 34 (двойная кавычка) и 92 (обратная косая черта).