Напишите программу, в которую играет русская рулетка!

Если программа запущена,

• там должно быть 5 из 6 шансов, что он закончится нормально после печати "Я выжил!"
• вероятность сбоя программы должна составлять 1 к 6. (ошибка сегментации и т. д.)

Нет входа, и никакие другие выходы не допускаются.

Случайность должна быть справедливой: она должна иметь равномерное распределение вероятностей. Это означает, что неинициализированной переменной (или ГСЧ без начального числа) MOD 6 будет недостаточно.

Если решение работает только с одной выделенной операционной системой / платформой, вы получите штраф в 6 байт на счет.

_{Самый короткий код выигрывает не раньше, чем через 10 дней после первого правильного ответа.}

05AB1E , 13 12 байт

6LΩiFë“IЖd!

-1 байт благодаря @Emigna .

На самом деле 05AB1E вообще не должен иметь ошибки, но, поскольку новая версия 05AB1E по-прежнему имеет некоторые проблемы по сравнению с унаследованной версией, я могу воспользоваться этим в своих интересах, чтобы ошибиться в этой задаче.

Попробуйте онлайн.

Объяснение:

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)

Посмотрите эту подсказку 05AB1E (раздел Как пользоваться словарем? ), Чтобы понять, почему “IЖd!это так "I survived!".

PHP 38 байт

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

Размещение +перед нечисловой строкой будет иметь значение 0. Должен rand(0,5)возвращаться 5, $s[rand(0,5)]будет пустой строкой (так как $sдлиной всего пять символов) и впоследствии $$s[rand(0,5)]будет неинициализированной переменной. Попытка принять инверсию остановится на неподдерживаемом типе операнда. Любое другое значение, 0-4вернется s, а поскольку $sопределено, вы выживете.

Примечание. Начиная с версии php 4.2.0, генератор случайных чисел заполняется автоматически .

R 30

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

Один раз из шести он выдаст ошибку: Error: object 'Z' not found

Руби, 24-28

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

Приблизительно каждые 6 раз, есть ZeroDivisionError

Существует даже более короткая версия с 24 символами (спасибо Угорену и гистократу):

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

Если вы не принимаете "в выводе, то мне нужно еще 3 символа. Первая опция ( puts) добавляет новую строку, вторая ( $><<) не делает новую строку:

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

Есть вопрос про случайное число в ruby ​​у SO . Семя с srandавтоматически вызывается семенем с текущего времени, если оно еще не было вызвано. (см. комментарий юлианцев )

У Primo была идея дополнительного бонуса к тем решениям, которые не основаны на делении на ноль .

Мое первое решение может быть сокращено (до 28 символов) undefined local variable or method ``a' for main:Object (NameError)

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

Dyalog APL - 25 22 21 20 персонажей

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

Печатает DOMAIN ERRORкак ошибку, из-за деления на ноль.

Самое короткое решение без деления на ноль - 23 символа.

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

Это бросает INDEX ERROR

Попробуй здесь

APL шрифт здесь

Питон, 96

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

Если randrange(5)вернет 0, то python потерпит крах из-за ошибки сегментации.

vba, 27

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

используется в непосредственном окне.
При ошибке

появляется окно с сообщением об ошибке:

Befunge - 48 символов

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

Единственная случайность Befunge - это ?оператор, который отправляет вас в одном из четырех возможных направлений ( 1/4шанс). Блокируя одно или два направления, у вас есть 1/3или 1/2шанс, и, комбинируя их, вы получаете 1/6шанс выйти из программы «живым».

Программа вылетает при делении на ноль. Я предполагаю, что это будет зависеть от реализации (в Википедии написано, что программа должна запросить желаемый ответ), но befungee.py вроде вылетает или гневно завершается:

$ 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

Сбой domain errorпри попытке факторизовать 0.

C 67 65 62 символа

rand()%8не теряет справедливости Деление падает для t=0, дает истину для 1 и 2 (повтор), дает ложь для 3,7 (выжил).
РЕДАКТИРОВАТЬ: предыдущая версия использовала временную переменную, которая в конечном итоге совершенно не нужна. 2/(rand()%8)реализует оба необходимых условия.

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

Благодарим Шона Чешира за то, что он объявил актеров ненужными

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

Кредитное личное сообщение от Шона Чешира за предложение сменить потолок на этаж.

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

Сообщение об ошибке смерти: сообщение 8134, уровень 16, состояние 1, строка 3: ошибка деления на ноль.

Javascript, 42

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

Поразрядное или минимальное значение результата умножения дает значение от 0 до 5. 0 неявно преобразуется в false, поэтому в 5 из 6 случаев предупреждение появляется в 6-м случае, когда на определенную bссылку ссылаются, что приводит к сбою процесса.

Используя обычный метод деления на ноль:

Версия Perl 5.8

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

Версия Perl 5.10

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

При сбое они будут отображать:

Illegal division by zero at -e line 1.

Использование функции благословения, которая используется для создания объектов в Perl.

Версия Perl 5.8

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

Версия Perl 5.10

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

При сбое они будут отображать:

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

GolfScript, 21 символ

,6rand/;'I survived!'

Как и большинство ответов, у этого есть один из шести шансов на сбой с ZeroDivisionError. Самое короткое решение, которое я мог бы обойтись без деления на ноль, это 23 символа:

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

с вероятностью 1/6 столкновения с undefined method `+' for nil:NilClass (NoMethodError).

(Ps. При разработке этого я обнаружил, что может быть ошибка в интерпретаторе GolfScript: похоже, что подобный код 0,1>оставляет nilзначение в стеке, что позже приведет к сбою программы, если вы попытаетесь что-то сделать с этим значением, кроме как вытащить его и выбросить его с собой ;. К сожалению, тот факт, что мне нужно каким-то образом использовать значение, чтобы вызвать сбой, означает, что даже использование этой ошибки не помогло мне получить значение ниже 23 символов.)

Python, 70 символов

С вдохновением от ответа GRC.

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

randrange (5) возвращает значение от 0 до 5.
Если он возвращает 0, Python падает при попытке выполнить (использовать) строку кода, содержащую 9 ^ 5 наборов скобок.

PHP - 30 байт

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

Требуется PHP 5.4+ для синтаксиса короткого массива, недопустимая идея оператора, бесстыдно украденная у @primo.

Как указано, rand()автоматически высевается при первом использовании .

Befunge, 38

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

Довольно просто. Сбой выполняется путем нажатия 1 на стек, пока он не переполнится. Я предпринял несколько попыток вырезать эти 11 запятых и заменить их более эффективным циклом для печати всего, но не смог получить его до 11 символов.

Обратите внимание, что подсчет символов в Befunge немного сложен ... Например, в третьей строке есть только один символ, но я рассчитываю дополнительный, так как выполнение может проходить через это место.

CMD Shell (Win XP или более поздняя версия), 40 +6

Я делаю это только потому, что DOS - это не то, о чем следует думать в коде гольф, а пробелы важны

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

При неудаче он напечатает

Разделите на ноль ошибок.

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

Сообщение об ошибке смерти:

Ошибка в ifelse (! Is.na (1 / sample (c (NA, 1: 5), 1)), «Я выжил!»,): Аргумент «no» отсутствует, значение по умолчанию отсутствует

Emacs-Lisp, 42 символа

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

Javascript, 40 символов

В Javascript трюк деления на ноль даже не работает: он просто возвращает бесконечность. Следовательно, ссылаясь на несуществующую переменную:

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

Не так коротко, хотя весело :)

PowerShell, 40 символов

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

При неудаче: «Попытка делить на ноль».

TI-BASIC (TI-84 + / SE), 36 байтов

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

Вход не указан, как указано в задаче.
Вывод в I survived!случае успеха, в DIVIDE BY 0противном случае ошибка.

На DIVIDE BY 0экране ошибки выглядит следующим образом :

ERR:DIVIDE BY 0
1:Quit
2:Goto

Выбор любого из параметров (и возврат к начальному экрану, если 2выбран) отображается Errorпосле вызова программы.

Примеры:

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

Объяснение:

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"

Заметки:

• TI-BASIC - это токенизированный язык. Количество байтов не равно количеству символов.

• Строчные буквы по два байта каждая.

  • Строчные буквы могут быть включены с помощью этой программы сборки.

• startTmrэто команда только на калькуляторах TI-84 + и TI-84 + SE. Указанные калькуляторы имеют разные операционные системы.

Python, 53 байта

Вот короткий 53-байтовый индекс Python вне программы:

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

Ява, 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!":"");}}

Сбой с ошибкой «Массив вне границ». Удалось сбрить несколько символов с помощью анонимного случайного объекта (без импорта).

Groovy, 39

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

Выбирает случайное число от 0 до 5 включительно. Если 0, исключение делится на ноль.

Python (56), Haskell (77)

Это приводит к ошибке IndexError, когда сгенерированное число равно 1:

от случайного импорта *
печать ['Я выжил!'] [1 / randint (1,7)]

Решение Haskell имеет ту же идею:

импорт System.Random
main = putStrLn. (["Я выжил!"] !!). div 1 = << randomRIO (1,6)

Python, 59 55 53, 65 59 56

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

ZeroDivisionErrorкогда ord(os.urandom(1))%6оценивается в 0

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

IndexErrorкогда ord(os.urandom(1))%6оценивается до 5

VBA - 39/46

Я не люблю числовой вывод Шона Чешира (хотя все же хороший ответ, он технически не No input, and no other outputs are allowed.соответствует спецификации ...), плюс он использует /0, так что вот мои альтернативы:

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

Это разрешается до a Run-time error '5': Invalid procedureпри попытке достичь символа 0 (VBA - индексирование на основе 1).

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

Это разрешается Run-time error '13': Type mismatchпри применении отрицательного переключателя к строке.

Japt v1.4.5, 16 байт

6ö
ªí
`I s¨viv!

Попытайся

-1 байт благодаря @Shaggy!

Выдает , TypeError: U.í is not a functionкогда случайное число в диапазоне [0,6)находится 0.