Napisz program, który gra w rosyjską ruletkę!

Jeśli program zostanie uruchomiony,

• powinna istnieć szansa, że ​​5 na 6 zakończy się normalnie po wydrukowaniu „Przeżyłem!”
• powinna wystąpić szansa 1 na 6 awarii programu. (błąd segmentacji itp.)

Brak danych wejściowych i inne wyjścia nie są dozwolone.

Losowość musi być sprawiedliwa: musi mieć jednolity rozkład prawdopodobieństwa. Oznacza to, że niezainicjowana zmienna (lub RNG bez nasion) MOD 6 nie będzie wystarczający.

Jeśli rozwiązanie działa tylko z jednym dedykowanym systemem operacyjnym / platformą, otrzymasz 6 bajtów kary do wyniku.

_{Najkrótszy kod wygrywa, nie wcześniej niż 10 dni po pierwszej ważnej odpowiedzi.}

05AB1E , 13 12 bajtów

6LΩiFë“IЖd!

-1 bajt dzięki @Emigna .

W rzeczywistości 05AB1E nie powinno być w ogóle w stanie popełnić błędu, ale ponieważ nowa wersja 05AB1E nadal ma pewne problemy w porównaniu do starszej wersji, mogę to wykorzystać, aby wyeliminować błąd w tym wyzwaniu.

Wypróbuj online.

Wyjaśnienie:

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)

Zobacz moją wskazówkę 05AB1E (sekcja Jak korzystać ze słownika? ), Aby zrozumieć, dlaczego tak “IЖd!jest "I survived!".

PHP 38 bajtów

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

Umieszczenie +przed łańcuchem nieliczbowym spowoduje ocenę 0. Powinien rand(0,5)zwrócić 5, $s[rand(0,5)]będzie pusty ciąg (ponieważ $sma tylko pięć znaków), a następnie $$s[rand(0,5)]będzie niezainicjowaną zmienną. Próba wykonania inwersji zostanie zatrzymana w przypadku nieobsługiwanego typu argumentu. Każda inna wartość 0-4powróci s, a ponieważ $sjest zdefiniowana, przeżyjesz.

Uwaga: od wersji PHP 4.2.0 generator liczb losowych jest inicjowany automatycznie .

R 30

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

Raz na sześć wyśle ​​błąd: Error: object 'Z' not found

Ruby, 24–28

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

Około co 6 razy pojawia się ZeroDivisionError

Istnieje nawet krótsza wersja z 24 znakami (dzięki ugoren i histocrat):

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

Jeśli nie akceptujesz danych "wyjściowych, potrzebuję jeszcze 3 znaków. Pierwsza opcja ( puts) dodaje nową linię, druga ( $><<) nie wprowadza nowej linii:

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

W SO jest pytanie o liczbę losową w rubinie . Ziarno z srandjest automatycznie wywoływane, przy czym ziarno jest z bieżącego czasu, jeśli nie zostało jeszcze wywołane. (patrz komentarz Julianów )

Primo wpadł na pomysł dodatkowej premii za rozwiązania, które nie polegają na dzieleniu przez zero .

Moje pierwsze rozwiązanie można skrócić (28 znaków) za pomocą 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

Drukuje się DOMAIN ERRORjako błąd wynikający z podziału przez zero.

Najkrótsze rozwiązanie bez dzielenia przez zero, które mogłem wymyślić, to 23 znaki.

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

Rzuca INDEX ERROR

Wypróbuj tutaj

Czcionka APL tutaj

Python, 96

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

Jeśli randrange(5)zwróci 0, to Python ulegnie awarii z powodu błędu segmentacji.

vba, 27

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

używane w bezpośrednim oknie.
W przypadku awarii

pojawia się okno błędu z informacją:

Befunge - 48 znaków

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

Jedyną losowością Befunge jest ?operator, który wysyła cię w jednym z czterech możliwych kierunków ( 1/4szansa). Blokując jeden lub dwa kierunki, masz 1/3lub masz 1/2szansę, a łącząc je, masz 1/6szansę wyjść z programu „żywy”.

Program ulega awarii, wykonując dzielenie przez zero. Myślę, że to zależy od implementacji, co się wydarzy (w Wikipedii napisano, że program powinien zapytać o pożądaną odpowiedź), ale befungee.py ulega awarii lub kończy się gniewnie:

$ 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

Błąd domain errorpodczas próby uwzględnienia 0.

C, 67 65 62 znaków

rand()%8nie traci uczciwości. Podział ulega awarii dla t=0, daje true dla 1 i 2 (ponów), daje false dla 3..7 (przeżył).
EDYCJA: Poprzednia wersja używała zmiennej tymczasowej, która okazała się całkowicie niepotrzebna. 2/(rand()%8)realizuje oba potrzebne warunki.

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

Uznanie dla Sean Cheshire za niepotrzebne wezwanie obsady

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

Uznanie osobiste przesłanie od Seana Cheshire za sugestię zmiany sufitu na podłogę.

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

Death Err Msg: Msg 8134, poziom 16, stan 1, wiersz 3 Napotkano błąd dzielenia przez zero.

JavaScript, 42

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

Bitowy lub dolny wynik mnożenia, a zatem wartość między 0 a 5 wyników. 0 zostaje domyślnie przypisane do fałszu, więc w 5 z 6 przypadków alert pojawia się w szóstym przypadku, do którego bodwołuje się określony , powodując awarię procesu.

Używając zwykłej metody dzielenia przez zero:

Wersja Perla 5.8

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

Wersja Perla 5.10

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

W przypadku awarii zostaną wyświetlone:

Illegal division by zero at -e line 1.

Korzystanie z funkcji bless, która jest używana do tworzenia obiektów w perlu.

Wersja Perla 5.8

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

Wersja Perla 5.10

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

W przypadku awarii zostaną wyświetlone:

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

GolfScript, 21 znaków

,6rand/;'I survived!'

Podobnie jak większość odpowiedzi, ta ma jedną na sześć szans na awarię z ZeroDivisionError. Najkrótsze rozwiązanie, którym udało mi się zarządzać bez dzielenia przez zero, to 23 znaki:

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

który ma 1/6 szansy na awarię undefined method `+' for nil:NilClass (NoMethodError).

(Ps. Podczas opracowywania tego, znalazłem błąd, który może być błędem w interpretatorze GolfScript: kod podobny 0,1>wydaje się zostawiać nilwartość na stosie, co później spowoduje awarię programu, jeśli spróbujesz zrobić cokolwiek z tą wartością, z wyjątkiem pop-up i odrzuć to ;. Niestety fakt, że muszę jakoś użyć tej wartości, aby wywołać awarię, oznacza, że ​​nawet wykorzystanie tego błędu nie pomogło mi uzyskać poniżej 23 znaków.)

Python, 70 znaków

Z inspiracją z odpowiedzi grc.

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

randrange (5) zwraca wartość z zakresu od 0 do 5.
Jeśli zwraca 0, Python ulega awarii podczas próby wykonania (ute) ciągu kodu zawierającego 9 ^ 5 zestawów nawiasów.

PHP - 30 bajtów

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

Wymaga PHP 5.4+ dla składni krótkiej tablicy, niepoprawny pomysł operatora bezwstydnie skradziony z @primo.

Jak wspomniano, rand()jest automatycznie wysiewany przy pierwszym użyciu .

Befunge, 38

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

Całkiem proste. Rozbijanie odbywa się poprzez pchanie 1s na stosie, aż się przepełni. Podjąłem kilka prób wycięcia tych 11 przecinków i zastąpienia ich bardziej wydajną pętlą do drukowania wszystkiego, ale nie mogłem uzyskać mniej niż 11 znaków.

Pamiętaj, że liczenie postaci w Befunge jest trochę trudne ... Na przykład w trzeciej linii jest tylko jedna postać, ale liczę tam dodatkową, ponieważ wykonanie może odbywać się przez to miejsce.

CMD Shell (Win XP lub nowszy), 40 +6

Robię to tylko dlatego, że DOS nie jest czymś, o czym należy myśleć w golfie kodowym, a białe znaki są ważne

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

W przypadku awarii zostanie wydrukowany

Błąd dzielenia przez zero.

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

Wiadomość o błędzie śmierci:

Błąd w ifelse (! Is.na (1 / sample (c (NA, 1: 5), 1)), „I Survived!”,): Brak argumentu „no”, brak wartości domyślnej

Emacs-Lisp, 42 znaki

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

JavaScript, 40 znaków

W Javascript sztuczka dzielenia przez zero nawet nie działa: zwraca po prostu Infinity. Dlatego odwołanie do nieistniejącej zmiennej:

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

Nie takie krótkie, choć zabawne :)

PowerShell, 40 znaków

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

W przypadku niepowodzenia: „Próbowano podzielić przez zero”.

TI-BASIC (TI-84 + / SE), 36 bajtów

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

Brak danych wejściowych, jak określa wyzwanie.
Wyjście jest I survived!pomyślne, w DIVIDE BY 0przeciwnym razie błąd.

Ekran DIVIDE BY 0błędu wygląda następująco:

ERR:DIVIDE BY 0
1:Quit
2:Goto

Wybranie jednej z opcji (i powrót do ekranu głównego, jeśli 2jest zaznaczone) pojawia się Errorpo wywołaniu programu.

Przykłady:

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

Wyjaśnienie:

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"

Uwagi:

• TI-BASIC jest językiem tokenizowanym. Liczba bajtów nie jest równa liczbie znaków.

• Małe litery mają po dwa bajty .

  • Małe litery można włączyć za pomocą tego programu do montażu.

• startTmrjest poleceniem tylko w kalkulatorach TI-84 + i TI-84 + SE. Wspomniane kalkulatory mają różne systemy operacyjne.

Python, 53 bajty

Oto krótki 53-bajtowy program spoza zakresu indeksu 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!":"");}}

Błąd z błędem „Array poza granicami”. Udało się ogolić kilka znaków przy użyciu anonimowego obiektu losowego (bez importu).

Groovy, 39

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

Wybiera losową liczbę od 0 do 5 włącznie. Jeśli 0, zgłasza wyjątek dzielenia przez zero.

Python (56), Haskell (77)

Występuje awaria z błędem indeksu, gdy wygenerowana liczba wynosi 1:

z losowego importu *
drukuj [„Przeżyłem!”] [1 / randint (1,7)]

Rozwiązanie Haskell ma ten sam pomysł:

import System.Random
main = putStrLn. ([„I survival!”] !!). div 1 = << randomRIO (1,6)

Python, 59 55 53, 65 59 56

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

ZeroDivisionErrorprzy ord(os.urandom(1))%6wartości 0

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

IndexErrorprzy ord(os.urandom(1))%6ocenie do 5

VBA - 39/46

Nie podoba mi się wynik liczbowy Seana Cheshire'a (choć nadal jest to dobra odpowiedź, technicznie nie No input, and no other outputs are allowed.odpowiada specyfikacji ...), a ponadto używa /0, więc oto moje alternatywy:

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

To rozwiązuje problem Run-time error '5': Invalid procedurepodczas próby osiągnięcia znaku 0 (VBA jest indeksowaniem opartym na 1).

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

To rozwiązuje problem Run-time error '13': Type mismatchprzy zastosowaniu przełącznika ujemnego do łańcucha.

Japt v1.4.5, 16 bajtów

6ö
ªí
`I s¨viv!

Spróbuj

-1 bajt dzięki @Shaggy!

Zgłasza się, TypeError: U.í is not a functiongdy przypadkowa liczba w zakresie [0,6)to 0.