¡Escribe un programa que juegue a la ruleta rusa!

Si se inicia el programa,

• debería haber una probabilidad de 5 en 6 de que termine normalmente después de imprimir "¡Sobreviví!"
• debería haber una probabilidad de 1 en 6 de que el programa se bloquee. (falla de segmentación, etc.)

No hay entrada y no se permiten otras salidas.

La aleatoriedad debe ser justa: debe tener una distribución de probabilidad uniforme. Esto significa que una variable no inicializada (o un RNG sin semilla) MOD 6 no será suficiente.

Si la solución funciona con un solo sistema operativo / plataforma dedicado, recibirá una penalización de 6 bytes por puntaje.

_{El código más corto gana, no antes de 10 días después de la primera respuesta válida.}

05AB1E , 13 12 bytes

6LΩiFë“IЖd!

-1 byte gracias a @Emigna .

05AB1E en realidad no debería ser capaz de error en absoluto, pero dado que la nueva versión de 05AB1E todavía tiene algunos problemas en comparación con la versión heredada, puedo aprovechar eso para equivocarme en este desafío.

Pruébalo en línea.

Explicación:

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)

Ver este consejo 05AB1E mío (sección Cómo usar el diccionario? ) Para entender por qué “IЖd!es "I survived!".

PHP 38 bytes

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

Colocando +antes de una cadena no numérica se evaluará a 0. Debería rand(0,5)volver 5, $s[rand(0,5)]será la cadena vacía (ya que $stiene solo cinco caracteres de longitud), y posteriormente $$s[rand(0,5)]será una variable no inicializada. Intentar realizar la inversión se detendrá en Tipo de operando no compatible. Cualquier otro valor 0-4volverá sy, como $sestá definido, sobrevivirá.

Nota: a partir de la versión 4.2.0 de php, el generador de números aleatorios se siembra automáticamente .

R 30

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

Una vez de cada seis, arrojará un error: Error: object 'Z' not found

Rubí, 24-28

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

Aproximadamente cada 6 veces, hay un ZeroDivisionError

Incluso hay una versión más corta con 24 caracteres (Gracias a ugoren e histocrat):

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

Si no acepta el "en la salida, entonces necesito 3 caracteres más. La primera opción ( puts) agrega una nueva línea, la segunda ( $><<) no hace nueva línea:

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

Hay una pregunta sobre el número aleatorio en rubí en SO . La semilla con srandse llama automáticamente con la semilla desde la hora actual si aún no se ha llamado. (ver comentario de Julians )

Primo tuvo la idea de un bono extra para aquellas soluciones que no dependen de la división por cero .

Mi primera solución puede acortarse (28 caracteres) con 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

Imprime DOMAIN ERRORcomo el error, debido a la división por cero.

La solución de no división por cero más corta que se me ocurrió es de 23 caracteres.

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

Arroja un INDEX ERROR

Pruébalo aquí

APL Font aquí

Python, 96

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

Si randrange(5)devuelve 0, Python se bloqueará debido a un error de segmentación.

vba, 27

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

utilizado en ventana inmediata.
En caso de fallo,

aparece una ventana de error que indica:

Befunge - 48 caracteres

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

La única aleatoriedad de Befunge es el ?operador, que te envía en una de las cuatro direcciones posibles ( 1/4posibilidad). Al bloquear una o dos direcciones, usted tiene 1/3o 1/2casualidad, y mediante la combinación de éstos, se obtiene 1/6la oportunidad de salir del programa "vivo".

El programa se bloquea al hacer una división por cero. Supongo que es específico de la implementación lo que sucederá (en Wikipedia dice que el programa debería pedir la respuesta deseada), pero befungee.py se bloquea o sale enojado:

$ 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

Fallando con domain erroral tratar de factorizar 0.

C, 67 65 62 caracteres

rand()%8No pierde la justicia. La división se bloquea para t=0, da verdadero para 1 y 2 (reintento), da falso para 3..7 (sobrevivido).
EDITAR: La versión anterior utilizaba una variable temporal, que terminó siendo completamente innecesaria. 2/(rand()%8)implementa ambas condiciones necesarias.

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!'

Crédito Sean Cheshire por llamar al elenco como innecesario

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

Acredite el mensaje personal de Sean Cheshire por la sugerencia de cambiar el techo al piso.

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

Mensaje de error de muerte: Mensaje 8134, Nivel 16, Estado 1, Línea 3 Divide por cero error encontrado.

Javascript, 42

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

El bit a bit o pisos el resultado de la multiplicación, por lo tanto, un valor entre 0 y 5 resultados. 0 se convierte implícitamente en falso, por lo que en 5 de 6 casos la alerta aparece en el sexto caso un ciertob se hace referencia a , lo que bloquea el proceso.

Usando el método habitual de dividir por cero:

Perl 5.8 Versión

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

Versión Perl 5.10

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

En caso de falla, estos mostrarán:

Illegal division by zero at -e line 1.

Usando la función de bendición que se usa para crear objetos en perl.

Perl 5.8 Versión

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

Versión Perl 5.10

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

En caso de falla, estos mostrarán:

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

GolfScript, 21 caracteres

,6rand/;'I survived!'

Como la mayoría de las respuestas, esta tiene una posibilidad entre seis de estrellarse con ZeroDivisionError. La solución más corta que podría administrar sin usar la división por cero es 23 caracteres:

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

que tiene una probabilidad de 1/6 de chocar con undefined method `+' for nil:NilClass (NoMethodError) .

(Ps. Mientras desarrollaba esto, encontré lo que podría ser un error en el intérprete de GolfScript: el código 0,1>parece dejar un nilvalor en la pila, que luego bloqueará el programa si intenta hacer algo con ese valor, excepto abrirlo y deséchelo ;. Desafortunadamente, el hecho de que necesito usar el valor de alguna manera para provocar un bloqueo significa que incluso explotar este error no me ayudó a obtener menos de 23 caracteres).

Python, 70 caracteres

Con inspiración de la respuesta de grc.

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

randrange (5) devuelve un valor entre 0 y 5.
Si devuelve un 0, Python se bloquea al intentar ejecutar (utear ) una cadena de código que contiene 9 ^ 5 conjuntos de paréntesis.

PHP - 30 bytes

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

Requiere PHP 5.4+ para la sintaxis de matriz corta, idea de operador inválida robada descaradamente de @primo.

Como se indicó, rand()se siembra automáticamente en el primer uso .

Befunge, 38

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

Muy claro. El bloqueo se realiza presionando 1s en la pila hasta que se desborde. Hice algunos intentos de recortar esas 11 comas y reemplazarlas con un bucle más eficiente para imprimir todo, pero no pude obtener menos de 11 caracteres.

Tenga en cuenta que contar personajes en Befunge es un poco complicado ... Por ejemplo, solo hay un personaje en la tercera línea, pero estoy contando uno adicional allí ya que la ejecución podría viajar a través de esa ubicación.

CMD Shell (Win XP o posterior), 40 +6

Solo estoy haciendo esto porque DOS no es algo que deba pensarse para el golf de código, y el espacio en blanco es importante

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

En caso de falla, imprimirá

Dividir por cero error.

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!',)

Mensaje de error de muerte:

Error en ifelse (! Is.na (1 / sample (c (NA, 1: 5), 1)), "I Survived!",): Falta el argumento "no", sin valor predeterminado

Emacs-Lisp, 42 caracteres

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

Javascript, 40 caracteres

En Javascript, el truco de dividir por cero ni siquiera funciona: solo devuelve Infinity. Por lo tanto, haciendo referencia a una variable no existente:

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

No tan corto, aunque divertido :)

PowerShell, 40 caracteres

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

En caso de falla: "Intentó dividir por cero".

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

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

No hay entrada, como especifica el desafío.
La salida es I survived!si tiene éxito, un DIVIDE BY 0error de lo contrario.

La DIVIDE BY 0pantalla de error tiene el siguiente aspecto:

ERR:DIVIDE BY 0
1:Quit
2:Goto

Seleccionando cualquiera de las opciones (y volviendo a la pantalla de inicio si 2 está seleccionado) se muestraError después de la llamada del programa.

Ejemplos:

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

Explicación:

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"

Notas:

• TI-BASIC es un lenguaje tokenizado. El recuento de bytes no es igual al recuento de caracteres.

• Las letras minúsculas son de dos bytes cada una.

  • Se pueden habilitar letras minúsculas usando este programa de ensamblaje.

• startTmres un comando solo en las calculadoras TI-84 + y TI-84 + SE. Dichas calculadoras tienen diferentes sistemas operativos.

Python, 53 bytes

Aquí hay un breve programa de índice fuera de rango de 53 bytes de 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!":"");}}

Falla con el error "Array fuera de límites". Se las arregló para afeitar algunos caracteres mediante el uso de objetos aleatorios anónimos (sin importaciones)

Groovy, 39

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

Selecciona un número aleatorio entre 0 y 5 inclusive. Si es 0, lanza una excepción dividir por cero.

Pitón (56), Haskell (77)

Esto se bloquea con un IndexError cuando el número generado es 1:

de importación aleatoria *
print ['Sobreviví!'] [1 / randint (1,7)]

La solución de Haskell tiene la misma idea:

Importar System.Random
main = putStrLn. (["¡Sobreviví!"] !!). div 1 = << randomRIO (1,6)

Python, 59 55 53, 65 59 56

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

ZeroDivisionErrorcuando se ord(os.urandom(1))%6evalúa a 0

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

IndexErrorcuando se ord(os.urandom(1))%6evalúa a 5

VBA - 39/46

No me encanta la salida numérica de Sean Cheshire (aunque sigue siendo una buena respuesta, técnicamente falla No input, and no other outputs are allowed.la especificación ...), además de que la usa /0, así que aquí están mis alternativas:

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

Esto se resuelve a Run-time error '5': Invalid procedurecuando se intenta alcanzar el carácter 0 (VBA es indexación basada en 1).

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

Esto se resuelve en a Run-time error '13': Type mismatchcuando se aplica un interruptor negativo a una cadena.

Japt v1.4.5, 16 bytes

6ö
ªí
`I s¨viv!

Intentalo

-1 byte gracias a @Shaggy!

Emite TypeError: U.í is not a functioncuando un número aleatorio en el rango [0,6)es 0.