Compito

Il compito è scrivere un programma che produca un intero positivo coerente ma altrimenti arbitrario $x$ (quindi strettamente maggiore di 0). Ecco il trucco: quando la sorgente viene ripetuta $N$ volte (il codice viene aggiunto / concatenato $N-1$ a se stesso), il programma dovrebbe avere un $\dfrac{1}{N}$ probabilità di produrre $N\cdot x$ e probabilità rimanente di $\dfrac{N-1}{N}$ dell'output $x$ invariato.

Esempio

Supponiamo che la tua fonte iniziale sia XYZe produca il numero intero 3. Poi:

For $N=2$ : XYZXYZ should output $3$ with a probability of $\frac{1}{2}$ (50% of the time) and $2\cdot 3=6$ with a probability of $\frac{1}{2}$ as well (50% of the time).
For $N=3$ : XYZXYZXYZ should output $3$ with a probability of $\frac{2}{3}$ (66.666% of the time) and $3\cdot 3=9$ with a probability of $\frac{1}{3}$ (33.333% of the time)
For $N=4$ : XYZXYZXYZXYZ should output $3$ with a probability of $\frac{3}{4}$ (75% delle volte) e $4\cdot 3=12$ con una probabilità di $\frac{1}{4}$ (25% delle volte)

e così via....

Regole

È necessario creare un programma completo . L'output deve essere stampato su STDOUT.
Il tuo programma dovrebbe, in teoria, produrre ogni possibile valore con le probabilità sopra indicate, ma una leggera deviazione da questo dovuta all'implementazione di random va bene (a condizione che l'implementazione non abbia una distribuzione diversa - non puoi usare un distribuzione normale per salvare byte ) .
Il programma dovrebbe (di nuovo, in teoria) funzionare per un valore arbitrariamente grande di $N$ , ma i limiti tecnici dovuti alla precisione vanno bene per $N$ grande .
L'output deve essere nella base 10 (è vietata l'uscita in qualsiasi altra base o con notazione scientifica). Sono ammessi spazi finali / iniziali e zero iniziali.
La sorgente iniziale deve (ovviamente) essere lunga almeno 1 byte. Si può non assumere una nuova linea tra le copie del vostro sorgente. Il programma non dovrebbe accettare input (o avere input vuoti inutilizzati).
Si tratta di code-golf , quindi il punteggio di una risposta è la lunghezza della sorgente (originale) in byte, con un punteggio più basso migliore.

_{^{Nota: questa sfida è una versione (molto) più dura di questa .}}

code-golf random source-layout

— Mr. Xcoder
fonte

Il programma può leggere il suo codice sorgente?

— mio pronome è monicareinstate il

3

@someone Sì, è permesso.

— Mr. Xcoder,

16

R , 66 35 byte

-29 byte grazie a digEmAll .

-2 byte grazie a Giuseppe .

+0->A
x=!0:F
F=F+1
sample(F*x+!x,1)

Provalo online!

Controlla la distribuzione per N = 4.

La chiave è il compito a destra ->. Quando il codice viene moltiplicato $N$ volte, verranno assegnate le prime chiamate $N-1$ sample aA e verrà stampata solo l'ultima chiamata.

Soluzione originale e più contorta:

R , 66 byte

T->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?T

Provalo online!

Provalo online (ripetuto 3 volte)!

Utilizza due trucchi: 1) chiama la funzione principale di interesse ?, in modo che possiamo chiamarla senza terminare il programma con una parentesi, e 2) usa le variabili Te TT, con il codice che inizia con Te termina con?T .

Fè il contatore di iterazioni. ?viene ridefinito come una funzione che accetta un argomento booleano: se l'input di ?è TRUE(o T), esegue il campionamento casuale richiesto; se l'input è FALSE(o 0), non fa nulla. Il valore di TTè definito come 0, quindi ?Tfa il campionamento ma ?TTnon fa nulla.

Quando la fonte viene ripetuta, si presenta così:

T->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?TT->TT
F=F+1
TT=0
`?`=function(x)if(x)sample(c(1,F),1,,c(1,F-1))
?T

quindi la chiamata centrale ?TTnon emette altro che la chiamata finale ?Tproduce il risultato casuale.

— Robin Ryder
fonte

5

Non credo di aver mai visto ->usato nel code golf in una situazione in cui <-non potrebbe essere; questo è veramente forte!!

— Giuseppe,

PS A questo punto darò una taglia.

— Giuseppe,

2

Assolutamente fantastico!

— digEmAll

Anche questo dovrebbe funzionare (penso prendendo in prestito +0 idea da Python)

— digEmAll

@digEmAll Molto più ordinato, grazie!

— Robin Ryder,

11

Python 3 , 81 79 byte

+0if[]else 1
from random import*
try:n+=1
except:n=1
print([1,n][random()*n<1])

Provalo online!

-1 byte grazie a @Nishioka

Questa è una soluzione Python 3 che non accede direttamente alla sorgente del programma. Fare questo in Python 3 è più impegnativo di Python 2 perché le normali istruzioni di stampa terminano con una parentesi di chiusura, quindi non ci sono molte scelte per cambiarne il comportamento nel blocco successivo della sorgente iniziale. Sarebbe interessante vedere soluzioni più creative in Python 3.

— Joel
fonte

-1 byte:+0 if[]else 1

— Nishioka

@Nishioka Grazie. Aggiornato.

— Joel

11

bash , 31 byte

trap echo\ $[RANDOM%++n?1:n] 0;

Provalo online!

trap ... 0eseguirà il codice contenuto all'uscita. I messaggi ripetuti trapsovrascriveranno quelli vecchi. Il non quotato$[arithmetic expansion] viene eseguito ogni volta che viene impostata una nuova trap.

Zsh può salvare un byte con <<<:

trap "<<<$[RANDOM%++n?1:n]" 0;

— GammaFunction
fonte

6

Gelatina , 7 byte

‘ɼḷXỊ®*

Provalo online!

— Erik the Outgolfer
fonte

4

05AB1E , 7 byte

¾Å1¼¾ªΩ

Provalo online!

— Grimmy
fonte

4

Python 3 , 78 76 75 byte

Usando lo stesso trucco del link che è stato pubblicato, eccone uno Python (con x = 1).

from random import*;n=len(*open(__file__))//75;print(1+~-n*(random()<1/n))#

Provalo online!

-2 byte grazie a Mr. Xcoder per la sua (n-1)formula con la ~-nquale ha una precedenza superiore a *
-1 byte grazie a Nishioka

— Pâris Douady
fonte

1

Mi sembra buono! import random;n=len(*open(__file__))//76;print(1+~-n*(random.random()<1/n))#dovrebbe funzionare per -2 byte

— Mr. Xcoder

1

Non avevo mai visto questo modo di fare n-1! Mi piace, grazie :)

— Pâris Douady,

1

-1 byte: tio.run/##K6gsycjPM/7/…

— Nishioka

Un altro -1 byte ma con un approccio un po 'diverso: tio.run/##K6gsycjPM/7/…

— Nishioka

si lo faccio per via del random()<1/n;-)

— Pâris Douady,

4

Dyalog APL, 25 24 23 22 21 byte

0{×⍺:1+⍵⋄⎕←1⌈⍵×1=?⍵}1

Provalo online!

— dzaima
fonte

3

Gaia , 17 15 14 13 byte

Øgl13÷:(1w&+ṛ

Provalo online!

Ho notato casualmente il comportamento di Øgieri mentre guardavo i documenti, il che ha aiutato immensamente.

— Giuseppe
fonte

3

Perl 5, 28 26 byte

-2 byte grazie a @Grimy

1 if!++$x;say 1<rand$x||$x

TIO

— Nahuel Fouilleul
fonte

26:1 if!++$x;say 1<rand$x||$x

— Grimmy

grazie, bella variazione

— Nahuel Fouilleul,

3

Rubino , 40 byte

1
n||=@x=0
n+=1
puts 1>rand(n)?n:1 if @x

Provalo online!

Provalo online (copiato 3 volte)!

Una porta ruby di questa risposta Python .

Rubino , 38 byte

2 byte salvati leggendo il file:

n=File.size($0)/38;puts 1>rand(n)?n:1#

Provalo online!

— Eric Duminil
fonte

2

Incantesimi runici , 31 byte

UwR'10<;$\
I+:'RA0)?/1$;
1
l;
y

Provalo online!

Utilizza la stessa struttura di questa risposta per contare quante volte la fonte è stata duplicata:

Invece di indicare l'ennesimo numero in un elenco, usiamo quel valore per generare casualmente un numero, se il risultato non è 0, stampa 1, altrimenti stampa quel numero.

— Draco18s non si fida più di SE
fonte

2

Japt , 9 8 byte

(°Tö)ÎªT

Provalo | Raddoppiato | Triplicato
Verificare la distribuzione di 10000 esecuzioni dopo 10 ripetizioni

(°Tö)ÎªT
(            :Prevent the operator that follows from being implicitly applied to the first input variable, U
 °T          :Increment T (initially 0) by 1
   ö         :Random element in the range [0,T)
    )        :Closing the parentheses here instead of after the T saves a byte as there would need to be a space here to close the random method
     Î       :Sign - 0 (falsey) or 1 (truthy)
      ªT     :Logical OR with current value of T

Originale, 13 11 10 9 byte

Nota lo spazio finale.

NoÎp°T ö

Provalo | Raddoppiato | Triplicato
Verificare la distribuzione di 10000 esecuzioni dopo 10 ripetizioni

NoÎp°T ö 
N             :Initially, the (empty) array of inputs
 o            :Replace the last element with
  Î           :  Its sign (always 1)
   p          :Push
    °T        :  T (initially 0) incremented
       ö      :Random element of N

— ispido
fonte

2

JavaScript ( JavaScript shell 71 ), 78 byte

(async x=>x)().then(x=>f((''+f).length/78));f=x=>print(1-~x*Math.random()|0)//

Nessun collegamento tio, spidermonkey su tio è troppo vecchio ...

Firefox (Spidermonkey) considera il commento come parte della funzione f. Di conseguenza, (''+f).lengthsarà b+79ndove b <78 e (n + 1) sono i tempi di ripetizione del codice sorgente.

Questo comportamento buggy (? _{^{Non sono sicuro. Preferirei che si tratti di un bug di specifica JavaScript piuttosto che di qualsiasi interprete}} ) era stato inviato a BMO da qualcun altro subito dopo aver pubblicato questa risposta: https://bugzilla.mozilla.org/ show_bug.cgi? id = 1579792 . (Né il thread bmo né il tweet sono pubblicati da me.)

— tsh
fonte

Cosa c'è con il (async x=>x)()? Perché è asincrono?

— Tomáš Zato - Ripristina Monica il

@ TomášZato È letteralmente asyncsincero. Quindi il callback x=>f(...)verrà richiamato dopo aver fdefinito la funzione .

— TSH

1

C # (compilatore interattivo Visual C #) , 133 114 112 byte

Questa è la prima (e si spera ultima) volta in cui abbia mai usato le direttive del preprocessore C #.

#if!I
#define I
static int i;
class p{~p()=>Console.Write(new Random().Next(i)<1?i:1);}p s=new p();
#endif
i++;

Provalo online!

— il mio pronome è monicareinstate
fonte

1

Carbone , 12 byte

⎚Ｉ⎇‽Ｌ⊞Ｏυω¹Ｌυ

Provalo online! Sulla base della mia risposta alla domanda collegata. Uscite ncon probabilità ¹/ₙ, altrimenti 1. Spiegazione:

⎚               Remove output from previous iterations
       υ        Initially empty list
        ω       Empty string
     ⊞Ｏ         Push
    Ｌ           Length
   ‽            Random integer [0..length)
  ⎇             Ternary
         ¹      If nonzero then literal 1
          Ｌυ    If zero then the new length
 Ｉ              Cast to string for implicit print

— Neil
fonte

Moltiplico la fonte, tu (probabilmente) moltiplichi l'output!

Compito

Esempio

Regole

R , 66 35 byte

R , 66 byte

Python 3 , 81 79 byte

bash , 31 byte

Gelatina , 7 byte

05AB1E , 7 byte

Python 3 , 78 76 75 byte

Dyalog APL, 25 24 23 22 21 byte

Gaia , 17 15 14 13 byte

Perl 5, 28 26 byte

Rubino , 40 byte

Rubino , 38 byte

Incantesimi runici , 31 byte

Japt , 9 8 byte

Originale, 13 11 10 9 byte

JavaScript ( JavaScript shell 71 ), 78 byte

C # (compilatore interattivo Visual C #) , 133 114 112 byte

Carbone , 12 byte