Écrivez un programme qui joue à la roulette russe!

Si le programme démarre,

• il devrait y avoir 5 chances sur 6 de se terminer normalement après avoir imprimé "J'ai survécu!"
• il devrait y avoir 1 chance sur 6 que le programme plante. (défaut de segmentation, etc.)

Aucune entrée et aucune autre sortie ne sont autorisées.

Le caractère aléatoire doit être juste: il doit avoir une distribution de probabilité uniforme. Cela signifie qu'une variable non initialisée (ou un RNG sans graine) MOD 6 ne sera pas suffisante.

Si la solution fonctionne avec un seul système d'exploitation / plateforme dédié, vous recevrez une pénalité de 6 octets au score.

_{Le code le plus court gagne, au plus tard 10 jours après la première réponse valide.}

05AB1E , 13 12 octets

6LΩiFë“IЖd!

-1 octet grâce à @Emigna .

05AB1E ne devrait pas du tout pouvoir faire d'erreur, mais comme la nouvelle version de 05AB1E a toujours des problèmes par rapport à la version héritée, je peux profiter de cela pour me tromper pour ce défi.

Essayez-le en ligne.

Explication:

6L          # Create the list [1,2,3,4,5,6]
  Ω         # Get a random choice from this list
   i        # If it is 1:
    F       #  Do a ranged loop, which currently results in a "(RuntimeError) Could not
            #  convert  to integer." error when no argument is given
   ë        # Else:
    “IЖd!  #  Push dictionary string "I survived!" (which is output implicitly as result)

Voir cette astuce de la mine de 05AB1E (section Comment utiliser le dictionnaire? ) Pour comprendre pourquoi “IЖd!est "I survived!".

PHP 38 octets

<?~$$s[rand(+$s=sssss,5)]?>I survived!

Placer un +avant une chaîne non numérique sera évalué à 0. Doit rand(0,5)revenir 5, $s[rand(0,5)]sera la chaîne vide (car $sne fait que cinq caractères), et $$s[rand(0,5)]sera par la suite une variable non initialisée. Tenter de prendre l'inversion s'arrêtera sur le type d'opérande non pris en charge. Toute autre valeur, 0-4reviendra s, et parce qu'elle $sest définie, vous survivrez.

Remarque: à partir de la version 4.2.0 de php, le générateur de nombres aléatoires est initialisé automatiquement .

R 30

"I survived!"[6*runif(1)<5||Z]

Une fois sur six, il générera une erreur: Error: object 'Z' not found

Rubis, 24-28

p rand(6)<5?"I survived!":1/0

Environ 6 fois, il y a un ZeroDivisionError

Il existe même une version plus courte avec 24 caractères (Merci à ugoren et histocrat):

6/rand(6);p"I survived!"

Si vous n'acceptez pas "la sortie, j'ai besoin de 3 caractères supplémentaires. La première option ( puts) ajoute une nouvelle ligne, la seconde ( $><<) ne fait aucune nouvelle ligne:

6/rand(6);puts"I survived!"
6/rand(6);$><<"I survived!"

Il y a une question sur le nombre aléatoire en rubis chez SO . La graine avec srandest automatiquement appelée avec la graine de l'heure actuelle si elle n'a pas déjà été appelée. (voir le commentaire des Julians )

Primo a eu l'idée d'un bonus supplémentaire pour les solutions qui ne reposent pas sur une division par zéro .

Ma première solution peut être raccourcie (28 caractères) avec un undefined local variable or method ``a' for main:Object (NameError)

p rand(6)<5?"I survived!":a

Dyalog APL - 25 22 21 20 Charachters

'I Survived!'⊣1÷6⊤?6

S'imprime en DOMAIN ERRORtant qu'erreur, en raison de la division par zéro.

La solution de non-division par zéro la plus courte que j'ai pu trouver est de 23 caractères.

('I Survived!'1)[~6⍷?6]

Il jette un INDEX ERROR

Essayez-le ici

Police APL ici

Python, 96

from ctypes import*
from random import*
randrange(5)or pointer(c_int())[9**9]
print'I survived!'

Si randrange(5)renvoie 0, alors python se bloquera en raison d'une erreur de segmentation.

vba, 27

?1/int(6*rnd),"I Survived!"

utilisé dans la fenêtre immédiate.
En cas d'échec, une fenêtre d'erreur indiquant:

apparaît

Befunge - 48 caractères

 v >91+"!devi"v
/?>?<v"I surv"<
 / / :
   :,_@#

Le seul hasard de Befunge est l' ?opérateur, qui vous envoie vous diriger dans l'une des quatre directions possibles ( 1/4chance). En bloquant une ou deux directions, vous avez 1/3une 1/2chance, et en les combinant, vous avez la 1/6chance de sortir du programme "vivant".

Le programme plante en effectuant une division par zéro. Je suppose que c'est l'implémentation qui va se passer (sur Wikipedia, il dit que le programme devrait demander la réponse souhaitée), mais befungee.py sorte de plantages, ou se termine avec colère:

$ for i in {1..6} ; do ./befungee.py roulette.befunge ; done
Error (1,2): integer division or modulo by zero
Error (3,2): integer division or modulo by zero
Error (1,2): integer division or modulo by zero
I survived!
Error (0,1): integer division or modulo by zero
I survived!

J, 18

'I survived!'[q:?6

Échec domain errorlors de la tentative de factorisation de 0.

C, 67 65 62 caractères

rand()%8ne perd pas l'équité. La division plante pour t=0, donne vrai pour 1 et 2 (réessayer), donne faux pour 3..7 (survécu).
EDIT: La version précédente utilisait une variable temporaire, qui s'est révélée complètement inutile. 2/(rand()%8)met en œuvre les deux conditions nécessaires.

main(){
        for(srand(time(0));2/(rand()%8););
        puts("I survived!");
}

T-SQL 56 44 40 + 6

 if 1/cast(ceiling(rand()*6)-1as int)<2print'I Survived!'

Credit Sean Cheshire pour avoir appelé les acteurs inutiles

 if 1/ceiling(rand()*6-1)<2print'I Survived!'

Message personnel de crédit de Sean Cheshire pour une suggestion de changer le plafond en plancher.

 if 1/floor(rand()*6)<1print'I Survived!'

Death Err Msg: Msg 8134, niveau 16, état 1, ligne 3 Diviser par zéro erreur rencontrée.

Javascript, 42

(Math.random()*6|0)?alert('i survived!'):b

Le bit ou les planchers le résultat de la multiplication donc une valeur entre 0 et 5 résultats. 0 est implicitement converti en faux, donc dans 5 des 6 cas, l'alerte apparaît dans le 6e cas, un certain best référencé, ce qui bloque le processus.

En utilisant la méthode habituelle de division par zéro:

Version Perl 5.8

1/(int rand 6)&&print "I survived!"

Version Perl 5.10

1/(int rand 6)&&say "I survived!"

En cas d'échec, ceux-ci afficheront:

Illegal division by zero at -e line 1.

Utiliser la fonction bless qui est utilisée pour créer des objets en perl.

Version Perl 5.8

print (int rand 6?"I survived!":bless me);

Version Perl 5.10

say (int rand 6?"I survived!":bless me);

En cas d'échec, ceux-ci afficheront:

Can't bless non-reference value at -e line 1.

GolfScript, 21 caractères

,6rand/;'I survived!'

Comme la plupart des réponses, celle-ci a une chance sur six de se bloquer avec une ZeroDivisionError. La solution la plus courte que j'ai pu gérer sans utiliser la division par zéro est de 23 caractères:

5,6rand=+;'I survived!'

qui a 1/6 de chance de s'écraser avec undefined method `+' for nil:NilClass (NoMethodError) .

(Ps. En développant cela, j'ai trouvé ce qui pourrait être un bogue dans l'interpréteur GolfScript: du code comme 0,1>semble laisser une nilvaleur sur la pile, ce qui bloquera plus tard le programme si vous essayez de faire quoi que ce soit avec cette valeur, sauf le sauter et le jeter avec ;. Malheureusement, le fait que je besoin d'utiliser la valeur d'une certaine manière à déclencher un moyen de collision que même exploiteuses ce bug ne m'a pas aidé descendre en dessous de 23 caractères.)

Python, 70 caractères

Avec l'inspiration de la réponse de grc.

from random import*
if randrange(5)<1:exec'()'*9**5
print'I survived!'

randrange (5) renvoie une valeur comprise entre 0 et 5.
S'il renvoie un 0, Python se bloque lors de la tentative d'exécution (ute) d'une chaîne de code contenant 9 ^ 5 jeux de parenthèses.

PHP - 30 octets

<?rand(0,5)?:~[]?>I survived!

Nécessite PHP 5.4+ pour la syntaxe de tableau court, idée d'opérateur invalide sans vergogne volée à @primo.

Comme indiqué, rand()est automatiquement semé lors de la première utilisation .

Befunge, 38

v>25*"!devivrus I",,,,,,,,,,,@
?^
v
?^
<1

Assez simple. Le crash se fait en poussant les 1 sur la pile jusqu'à ce qu'elle déborde. J'ai fait quelques tentatives pour couper ces 11 virgules et les remplacer par une boucle plus efficace pour tout imprimer, mais je n'ai pas pu obtenir moins de 11 caractères.

Notez que compter les personnages dans Befunge est un peu délicat ... Par exemple, il n'y a qu'un seul personnage sur la troisième ligne, mais j'en compte un supplémentaire car l'exécution pourrait voyager à travers cet emplacement.

Shell CMD (Win XP ou version ultérieure), 40 +6

Je ne fais que celui-ci parce que DOS n'est pas quelque chose qui devrait même être pensé pour le golf de code, et l'espace blanc est important

set/a1/(%RANDOM% %% 6)&&echo I Survived!

En cas d'échec, il s'imprime

Divisez par zéro erreur.

R, 50 44 42 36

ifelse(!is.na(sample(c(NA,1:5),1)),'I Survived!',)

ifelse(floor(runif(1,0,5))>0,'I Survived!',)

ifelse(floor(runif(1,0,5)),'I Survived!',)

ifelse(sample(0:5,1),'I Survived!',)

Message d'erreur de mort:

Erreur dans ifelse (! Is.na (1 / sample (c (NA, 1: 5), 1)), "I Survived!",): L'argument "no" est manquant, sans valeur par défaut

Emacs-Lisp, 42 caractères

(if (= (random 6) 5) 
    z (message "I survived!")
    )

Javascript, 40 caractères

En Javascript, l'astuce de division par zéro ne fonctionne même pas: elle renvoie simplement Infinity. Par conséquent, référencer une variable non existante:

alert(6*Math.random()|0?"I survived!":f)

Pas si court, mais amusant :)

PowerShell, 40 caractères

IF(6/(Get-Random -Max 6)){'I Survived!'}

En cas d'échec: "Tentative de division par zéro."

TI-BASIC (TI-84 + / SE), 36 octets

startTmr→rand:1/(1<randInt(1,6:"I survived!

Il n'y a aucune entrée, comme le défi le précise.
La sortie est I survived!réussie, DIVIDE BY 0sinon une erreur.

L' DIVIDE BY 0écran d'erreur ressemble à ceci:

ERR:DIVIDE BY 0
1:Quit
2:Goto

La sélection de l'une ou l'autre option (et le retour à l'écran d'accueil si 2sélectionné) afficheError après l'appel du programme.

Exemples:

prgmCDGFE
           Error
prgmCDGFE
I survived!
prgmCDGFE
I survived!
prgmCDGFE
           Error

Explication:

startTmr→rand:1/(1<randInt(1,6:"I survived!   ;full program

startTmr→rand                                 ;store the current time into "rand"
                                              ; this is necessary because "rand" is 0 after
                                              ; factory reset, the default state for TI-BASIC
                                              ; submissions
                   randInt(1,6                ;get a random integer in [1,6]
                 1<                           ;is greater than 1?  1 if true, 0 if false
              1/(                             ;divide 1 by the result
                                              ; throws "DIVIDE BY 0" error if result was
                                              ; false
                               "I survived!   ;leave this string in "Ans"
                                              ;implicitly print "Ans"

Remarques:

• TI-BASIC est un langage tokenisé. Le nombre d'octets n'est pas égal au nombre de caractères.

• Les lettres minuscules sont chacune deux octets .

  • Les lettres minuscules peuvent être activées à l'aide de ce programme d'assemblage.

• startTmrest une commande uniquement sur les calculatrices TI-84 + et TI-84 + SE. Ces calculatrices ont différents systèmes d'exploitation.

Python, 53 octets

Voici un court programme hors index de 53 octets en python:

import time
[0][time.time()%6<1]
print("I survived!")

Java, 149

public class R{public static void main(String[]s){int[]a={1,1,1,1,1};System.out.println(a[new java.util.Random().nextInt(7)]>0?"I survived!":"");}}

Fails with an "Array out of bounds" error. Managed to shave a few characters by using anonymous Random object (no imports).

Groovy, 39

1/new Random().next(6);print"I survived!"

Picks a random number between 0 and 5 inclusive. If 0, throws a divide by zero exception.

Python (56), Haskell (77)

This crashes with an IndexError when the generated number is 1:

from random import*
print['I survived!'][1/randint(1,7)]

The Haskell solution has the same idea:

import System.Random
main=putStrLn.(["I survived!"]!!).div 1=<<randomRIO(1,6)

Python, 59 55 53, 65 59 56

import os
1/(ord(os.urandom(1))%6)
print"I survived!"

ZeroDivisionError when ord(os.urandom(1))%6 evaluates to 0

import os
print(["I survived!"]*5)[ord(os.urandom(1))%6]

IndexError when ord(os.urandom(1))%6 evaluates to 5

VBA - 39/46

I don't love Sean Cheshire's numeric output (though still a good answer, it technically fails the No input, and no other outputs are allowed. from the spec...), plus he uses /0, so here are my alternatives:

?Mid("I Survived!",IIf(Int(6*Rnd),1,0))

This resolves to a Run-time error '5': Invalid procedure when trying to reach character 0 (VBA is 1-based indexing).

n="I Survived!":If Int(6*Rnd) Then ?n Else ?-n

This resolves to a Run-time error '13': Type mismatch when applying a negative switch to a string.

Japt v1.4.5, 16 bytes

6ö
ªí
`I s¨viv!

Try it

-1 byte thanks to @Shaggy!

Throws TypeError: U.í is not a function when a random number in the range [0,6) is 0.