Tâche

La tâche consiste à écrire un programme qui génère un entier positif cohérent mais sinon arbitraire $x$ (donc strictement supérieur à 0). Voici le hic: lorsque la source est répétée $N$ fois (le code est ajouté / concaténé $N-1$ à lui-même), le programme doit avoir un $\dfrac{1}{N}$ probabilité de sortie de $N\cdot x$ et la probabilité restante de $\dfrac{N-1}{N}$ de sortieinchangé. $x$

Exemple

Supposons que votre source initiale est XYZet produit l'entier 3. Alors:

Pour : devrait produire avec une probabilité de (50% du temps) et avec une probabilité de également (50 % du temps). $N=2$ XYZXYZ $3$ $\frac{1}{2}$ $2\cdot 3=6$ $\frac{1}{2}$
Pour : devrait produire avec une probabilité de $N=3$ XYZXYZXYZ $3$ $\frac{2}{3}$ (66,666% du temps) et $3\cdot 3=9$ avec une probabilité de $\frac{1}{3}$ (33,333% du temps)
Pour $N=4$ : XYZXYZXYZXYZdevrait produire $3$ avec une probabilité de $\frac{3}{4}$ (75% du temps) et $4\cdot 3=12$ avec une probabilité de $\frac{1}{4}$ (25% du temps)

etc....

Règles

Vous devez créer un programme complet . La sortie doit être imprimée sur STDOUT.
Votre programme devrait, en théorie, produire chaque valeur possible avec les probabilités indiquées ci-dessus, mais une légère déviation par rapport à cela en raison de l'implémentation de random est très bien (à condition que l'implémentation ne soit pas d'une distribution différente - vous ne pouvez pas utiliser un distribution normale pour économiser les octets ) .
Le programme devrait (encore une fois, en théorie) travail pour une valeur arbitrairement grande de $N$ , mais les limitations techniques en raison de la précision sont très bien pour les grandes $N$ .
La sortie doit être en base 10 (la sortie dans toute autre base ou en notation scientifique est interdite). Les espaces de fin / de début et les zéros de début sont autorisés.
La source initiale doit (bien sûr) avoir au moins 1 octet de long. Vous ne pouvez pas assumer une nouvelle ligne entre les copies de votre source. Le programme ne doit pas prendre d'entrée (ou avoir une entrée vide non utilisée).
Il s'agit de code-golf , donc le score d'une réponse est la longueur de la source (d'origine) en octets, un score plus bas étant meilleur.

_{^{Remarque: Ce défi est une version (beaucoup) plus difficile de celui-ci .}}

code-golf random source-layout

— M. Xcoder
source

Le programme peut-il lire son code source?

— mon pronom est monicareinstate

3

@someone Oui, c'est autorisé.

— M. Xcoder

16

R , 66 35 octets

-29 octets grâce à digEmAll .

-2 octets grâce à Giuseppe .

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

Essayez-le en ligne!

Vérifiez la distribution pour N = 4.

La clé est l'affectation vers la droite ->. Lorsque le code est multiplié $N$ fois, les premiers $N-1$ appels à sampleseront attribués à A, et seul le dernier appel sera imprimé.

Solution originale et plus alambiquée:

R , 66 octets

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

Essayez-le en ligne!

Essayez-le en ligne (répété 3 fois)!

Utilise deux astuces: 1) appeler la fonction principale d'intérêt ?, afin que nous puissions l'appeler sans terminer le programme avec un crochet, et 2) utiliser des variables Tet TT, avec un code qui commence par Tet se termine par ?T.

Fest le compteur d'itérations. ?est redéfini comme une fonction qui prend un argument booléen: si l'entrée de ?est TRUE(ou T), il effectue l'échantillonnage aléatoire requis; si l'entrée est FALSE(ou 0), elle ne fait rien. La valeur de TTest définie comme 0, ce qui ?Tfait l'échantillonnage mais ?TTne fait rien.

Lorsque la source est répétée, cela ressemble à ceci:

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

donc l'appel du milieu ?TTne produit rien, mais l'appel final ?Tgénère le résultat aléatoire.

— Robin Ryder
source

5

Je ne pense pas que j'aie jamais vu ->utilisé dans le golf de code dans une situation où <-il ne pourrait pas être; C'est trop cool!!

— Giuseppe

PS Je vais donner une prime à un moment donné.

— Giuseppe

2

Absolument génial!

— digEmAll

Cela devrait aussi fonctionner, je pense (en empruntant l'idée +0 à python)

— digEmAll

@digEmAll Beaucoup plus soigné, merci!

— Robin Ryder

11

Python 3 , 81 79 octets

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

Essayez-le en ligne!

-1 octet grâce à @Nishioka

Il s'agit d'une solution Python 3 qui n'accède pas directement à la source du programme. Faire cela en Python 3 est plus difficile que Python 2 car les instructions d'impression normales se terminent par une parenthèse fermante, il n'y a donc pas beaucoup de choix pour changer son comportement dans le bloc suivant de la source initiale. Il serait intéressant de voir des solutions plus créatives dans Python 3.

— Joel
source

-1 octet:+0 if[]else 1

— Nishioka

@Nishioka Merci. Mis à jour.

— Joel

11

Bash , 31 octets

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

Essayez-le en ligne!

trap ... 0exécutera le code contenu à la sortie. Les traps répétés écraseront les anciens. Le non cité $[arithmetic expansion]est exécuté chaque fois qu'un nouveau piège est défini.

Zsh peut enregistrer un octet avec <<<:

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

— GammaFunction
source

6

Gelée , 7 octets

‘ɼḷXỊ®*

Essayez-le en ligne!

— Erik le Outgolfer
source

4

05AB1E , 7 octets

¾Å1¼¾ªΩ

Essayez-le en ligne!

— Grimmy
source

4

Python 3 , 78 76 75 octets

En utilisant la même astuce que dans le lien qui a été publié, voici une Python (avec x = 1).

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

Essayez-le en ligne!

-2 octets merci à M. Xcoder pour sa (n-1)formule ~-nqui a une priorité supérieure à *
-1 octet grâce à Nishioka

— Pâris Douady
source

1

Cela me semble correct! import random;n=len(*open(__file__))//76;print(1+~-n*(random.random()<1/n))#devrait fonctionner pour -2 octets

— M. Xcoder

1

Je n'avais jamais vu cette façon de faire n-1! J'aime ça, merci :)

— Pâris Douady

1

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

— Nishioka

Un autre octet -1 mais avec une approche un peu différente: tio.run/##K6gsycjPM/7/…

— Nishioka

oui je le fais à cause du random()<1/n;-)

— Pâris Douady

4

Dyalog APL, 25 24 23 22 21 octets

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

Essayez-le en ligne!

— dzaima
source

3

Gaia , 17 15 14 13 octets

Øgl13÷:(1w&+ṛ

Essayez-le en ligne!

J'ai remarqué au hasard le comportement d' Øghier en parcourant les documents, ce qui m'a énormément aidé.

— Giuseppe
source

3

Perl 5, 28 26 octets

-2 octets grâce à @Grimy

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

TIO

— Nahuel Fouilleul
source

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

— Grimmy

merci, belle variation

— Nahuel Fouilleul

3

Rubis , 40 octets

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

Essayez-le en ligne!

Essayez-le en ligne (copié 3 fois)!

Un port rubis de cette réponse Python .

Rubis , 38 octets

2 octets enregistrés en lisant le fichier:

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

Essayez-le en ligne!

— Eric Duminil
source

2

Enchantements runiques , 31 octets

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

Essayez-le en ligne!

Utilise la même structure que cette réponse pour compter combien de fois la source a été dupliquée:

Juste au lieu de sortir le nième nombre dans une liste, nous utilisons cette valeur pour générer aléatoirement un nombre, si le résultat n'est pas 0, imprimer 1, sinon imprimer ce nombre.

— Draco18s ne fait plus confiance à SE
source

2

Japt , 9 8 octets

(°Tö)ÎªT

Testez-le | Doublé | Triplé
Vérifier la distribution de 10000 exécutions après 10 répétitions

(°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

Original, 13 11 10 9 octets

Notez l'espace de fin.

NoÎp°T ö

Testez-le | Doublé | Triplé
Vérifier la distribution de 10000 exécutions après 10 répétitions

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

— Hirsute
source

2

JavaScript ( shell JavaScript 71 ), 78 octets

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

Pas de lien tio, spidermonkey sur tio est trop vieux ...

Firefox (Spidermonkey) considère le commentaire comme faisant partie de la fonction f. En conséquence, (''+f).lengthserab+79n où b <78, et (n + 1) sont les temps de code source répétés.

Ce buggy (? _{^{Je ne suis pas sûr. Je préférerais que ce soit un bug de spécification JavaScript plutôt que n'importe quel interprète}} ) a été soumis à BMO par quelqu'un d'autre juste après la publication de cette réponse: https://bugzilla.mozilla.org/ show_bug.cgi? id = 1579792 . (Ni le fil bmo ni le tweet ne sont postés par moi.)

— tsh
source

Qu'est-ce que c'est (async x=>x)()? Pourquoi est-ce asynchrone?

— Tomáš Zato - Reinstate Monica

@ TomášZato C'est littéralement asynchroneux. Ainsi, le rappel x=>f(...)sera invoqué une fois la fonction fdéfinie.

— tsh

1

C # (Visual C # Interactive Compiler) , 133 114 112 octets

C'est la première (et j'espère la dernière) fois que j'utilise des directives de préprocesseur 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++;

Essayez-le en ligne!

— mon pronom est monicareinstate
source

1

Fusain , 12 octets

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

Essayez-le en ligne! Basé sur ma réponse à la question liée. Sorties navec probabilité ¹/ₙ, sinon 1. Explication:

⎚               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
source

Je multiplie la source, vous multipliez (probablement) la sortie!

Tâche

Exemple

Règles

R , 66 35 octets

R , 66 octets

Python 3 , 81 79 octets

Bash , 31 octets

Gelée , 7 octets

05AB1E , 7 octets

Python 3 , 78 76 75 octets

Dyalog APL, 25 24 23 22 21 octets

Gaia , 17 15 14 13 octets

Perl 5, 28 26 octets

Rubis , 40 octets

Rubis , 38 octets

Enchantements runiques , 31 octets

Japt , 9 8 octets

Original, 13 11 10 9 octets

JavaScript ( shell JavaScript 71 ), 78 octets

C # (Visual C # Interactive Compiler) , 133 114 112 octets

Fusain , 12 octets