Mentre cercavo di giocare a golf con molte delle mie risposte, ho dovuto scrivere numeri interi grandi nel minor numero di caratteri possibile.

Ora so che il modo migliore per farlo: sarò sempre si di scrivere questo programma.

La sfida

• Scrivi un programma che quando viene dato un numero intero positivo, genera un programma che lo stampa su stdout o equivalente.
• I programmi di output non devono essere nella stessa lingua del creatore.
• L'output deve essere al massimo di 128 byte.
• È possibile accettare input da stdin o equivalenti (non input di funzione)
• È possibile generare il programma risultante su stdout o equivalente.
• L'output numerico deve essere in decimale (base 10)

punteggio

Il tuo punteggio è uguale al numero intero positivo più piccolo che il tuo programma non può codificare.

Vince la voce con il punteggio più alto.

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)

Si scopre che ogni numero intero compreso tra 1023 e (163 ¹²² - 1) · 255/162 può essere rappresentato in almeno un modo da una conversione di base b ≤ 163 da una stringa di massimo 122 caratteri con i codici da 93 a b + 92, anziché i soliti da 0 a b - 1. Questo evita i caratteri problematici 34 (virgoletta doppia) e 92 (barra rovesciata) senza alcun codice di output aggiuntivo.

Pyth, 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'))$

Ho dovuto usare un po 'di sintassi di Python, perché Pyth printnon può stampare iso-8859-1.

Il numero viene codificato nella base 252 e rappresenta ogni cifra in quella base come un carattere iso-8859-1. I caratteri \e "avrebbero bisogno di scappare, e quindi non vengono utilizzati. Il carattere `non viene utilizzato perché il golf ... E inoltre il byte null non viene utilizzato, il compilatore Pyth lo proibisce.

L'output è un programma con un sovraccarico di 17 byte:

ixL-rC1`H``N""252

Ecco un esempio di utilizzo con il maggior numero possibile:

Spiegazione

del programma di output.

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"

Sto codificando il numero nella base 254 e rappresento ogni cifra in quella base come un carattere ISO 8859-1, saltando "e \. L'output ha un overhead di 19 byte, ""{_'[>-_'!>-}%254bquindi posso rappresentare tutto meno di 254 ^128-19 , o esplicitamente

13392914970384089616967895168962602841770234460440231501234736723328784159136966979592516521814270581662903357791625539571324435618053333498444654631269141250284088221909534717492397543057152353603090337012149759082408143603558512232742912453092885969482645766144

Ad esempio, 6153501sarebbe codificato come

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

Ecco un programma di prova che stampa il numero intero codificato, quindi stampa la sua lunghezza e quindi lo esegue immediatamente per mostrare la sua validità (questo evita il problema di dover copiare i caratteri non stampabili in un nuovo programma, che non sempre funziona con l'interprete online).

Perl, 10 ²¹⁶

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

Basata anche sulla codifica 100, leggermente più elegante. L'output per 12345678sarebbe:

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

I delimitatori {e }corrispondono ai valori esadecimali b7e d7rispettivamente, che non possono essere visualizzati in ingresso, e quindi non devono essere sfuggito.

Esistono 20 byte di sovraccarico, lasciando 108 per la codifica, raggiungendo un valore massimo di 10 ²¹⁶ -1.

Perl, 10 ²⁰⁶

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

Codifica base 100 semplice. L'output per 12345678sarebbe simile al seguente:

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

Esistono 25 byte di sovraccarico, lasciando 103 per la codifica, raggiungendo un valore massimo di 10 ²⁰⁶ -1.

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

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

Il numero più grande è:

2621109035105672045109358354048170185329363187071886946329003212335230440027818091139599929524823562064749950789402494298276879873503833622348138409040138018400021944463278473215

Usa semplicemente la base 36. Per l'input più grande, l'output lungo 128 byte è:

(lambda()#36rzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzzz)

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

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

Il programma di output "…"{iKms*}%233bdecodifica i caratteri a 8 bit di una stringa in base a 233 cifre con n ↦ ⌊ n ⋅ sin 20⌋ = ⌊ n ⋅ 0,913⌋. Questa trasformazione sembra essere suriettiva senza richiedere i punti critici di codifica 34 (virgoletta doppia) e 92 (barra rovesciata) come input.