Zadanie jest proste. Napisz tłumacza języka * .

Oto większy link do wiki.

Istnieją tylko trzy prawidłowe * programy:

• * Drukuje „Hello World”
•  *  Drukuje liczbę losową z przedziału od 0 do 2 147 483 647
• *+* Działa wiecznie.

Trzeci przypadek musi być nieskończoną pętlą zgodnie ze specyfikacjami w tym pytaniu

Wejście:

• Dane wejściowe można pobierać dowolną akceptowalną metodą wprowadzania danych, stosując nasze standardowe reguły we / wy
• Zawsze będzie to jeden z powyższych programów

Wynik:

• Pierwszy przypadek powinien zostać wydrukowany dokładnie Hello World, z lub bez znaku końca linii.
• W drugim przypadku, jeśli maksymalna liczba całkowita twojego języka jest mniejsza niż 2 147 483 647, użyj maksymalnej liczby całkowitej twojego języka
• Pierwszy i drugi przypadek mogą być drukowane na dowolnym akceptowalnym wyjściu według naszych standardowych reguł I / O.
• Trzeci przypadek nie powinien dać żadnego wyniku.

Punktacja:

Ponieważ jest to golf kodowy , wygrywa najkrótsza odpowiedź w bajtach.

* , 0 bajtów

Ponieważ * nie ma możliwości odczytu danych wejściowych, domyślne reguły pozwalają określić, że dane wejściowe należy podać, łącząc je z programem .

(... myślę. Istnieje warunek „co najmniej dwa razy więcej głosów pozytywnych niż głosów negatywnych” , którego nie mam do zweryfikowania przez przedstawiciela).

R , 69 bajtów

switch(scan(,""),"*"="Hello, World!"," * "=sample(2^31,1)-1,repeat{})

Wypróbuj online!

switchpróbuje dopasować nazwane argumenty, a jeśli nie ma dopasowania, wybiera pierwszy nienazwany po pierwszym, którym w tym przypadku jest nieskończona pętla repeat{}.

Galaretka ,  21  20 bajtów

ḊOSØ%HX’¤“½,⁾ẇṭ»¹Ḃ¿?

Monadyczny link akceptujący listę znaków.

Wypróbuj online!

vL’... działa również (patrz poniżej).

W jaki sposób?

ḊOSØ%HX’¤“½,⁾ẇṭ»¹Ḃ¿? - Link: list of characters   e.g.: "*"        or  " * "    or  "*+*"
Ḋ                    - dequeue                          ""             "* "         "+*"
 O                   - to ordinals                      []             [42,32]      [43,42]
  S                  - sum                              0              74           85
                   ? - if...
                  ¿  - ...if-condition: while...
                 Ḃ   -    ...while-condition: modulo 2  0              0            1
                ¹    -    ...while-true-do: identity                                85
                     -                                  0              74           (looping)
        ¤            - ...then: nilad followed by link(s) as a nilad:
   Ø%                -    literal 2^32                                 2^32
     H               -    half                                         2^31
      X              -    random integer in [1,n]                      RND[1,2^31]
       ’             -    decrement                                    RND[0,2^31)
         “½,⁾ẇṭ»     - ...else: dictionary words        "Hello World"

Alternatywny

vL’... - Link: list of characters                 e.g.: "*"        or  " * "    or  "*+*"
 L     - length                                         1              3            3
v      - evaluate (left) as Jelly code with input (right)
       -                                                1^1            3^3          (3^3+3)^3
       -                                                1              27           27000
  ’    - decrement                                      0              26           26999
   ... - continue as above                              "Hello World"  RND[0,2^31)  (looping)

C (gcc) , 66 63 bajtów

Dzięki attinat za -3 bajty.

Muszę tylko sprawdzić drugi znak: jeśli ustawiony jest LSB, to jest to +( a więc program to „ *+*”) i program się zapętla. Następnie, jeśli jest NUL, program był „ *” i wyświetla się Hello World; w przeciwnym razie wyświetla losową wartość („  * ”, jedyna pozostała opcja.)

f(char*s){for(s++;*s&1;);printf(*s?"%d":"Hello World",rand());}

Wypróbuj online!

Python 2 , 103 93 89 87 bajtów

I w połączeniu z moją wcześniejszą odpowiedź Chas Browns męska odpowiedź i coś kilka bajtów krótszy.

Liczba losowa będzie wynosić od 0 do 2 ** 31-1 włącznie.

from random import*
i=input()
while'*'<i:1
print["Hello World",randrange(2**31)][i<'!']

Wypróbuj online!

Poprzednie wersje:

103 bajty

from random import*
exec['print"Hello World"','while 1:1','print randint(0,2**31-1)'][cmp(input(),'*')]

93 bajty

from random import*
i=cmp(input(),'*')
while i>0:1
print["Hello World",randint(0,2**31-1)][i]

Keg , -lp, -ir 30 26 25 24 20 19 bajtów

!1=[_“H%c¡“| =[~.|{

-1 bajt za pomocą flag

Wypróbuj online!

Historia odpowiedzi

?!1=[_“H%c¡“| =[~.|{

Wypróbuj online!

Skrócony Hello Worlddo ciągu słownika

!1=[_Hello World| =[~.|{

Wypróbuj online!

Nigdy nie przestałem się dziwić potędze Keg. Kredyty dla użytkownika EdgyNerd dla innego zapisanego bajtu.

Poprzednie wersje

_!0=[Hello World|\*=[~.|{

Wypróbuj online!

Kredyt dla użytkownika A__ za zapisany dodatkowy bajt.

Stara wersja

?!1=[_Hello World| =[__~|{

Zasadniczo pobiera program wejściowy i:

• Sprawdza, czy długość wejściowa wynosi 1, jeśli to prawda, wypisuje „Hello World”
• Sprawdza, czy ostatni znak jest spacją, i drukuje losową liczbę
• W przeciwnym razie działa nieskończona pętla

Następnie niejawnie wydrukuj stos.

?                               #Get input from the user
 !1=                            #Compare the stack's length to 1
    [_Hello World           #Push "Hello, World!" to the stack
                     | =        #See if top item is a space
                        [__~|{  #If so, generate a random number, otherwise, infinite loop.

4 bajty zapisane ze względu na fakt, że witaj świecie, nie potrzebujesz interpunkcji.

Wypróbuj online! Stara wersja

Wypróbuj online! Nowa wersja

Befunge-93 , 54 bajty

~"*"-_~1+#^_"dlroW olleH">:#,_@.%*2**:*::*88:*`0:?1#+<

Wypróbuj online!

Adnotacja:

~"*"-                      _                ~1+                   #^_        "dlroW olleH">:#,_    @      .%*2**:*::*88:   *`0:             ?1#+<
Compare first      If equal, go right       Compare second       If equal,        Output          Exit    Modulo by 2^31   If less than      Add 1
character to       Otherwise, go left       character to       loop forever   "Hello World"                 and output     0, multiply     a random amount
'*'                and wrap around          -1 (EOF)                                                                         by 0            of times

Losowość nie jest jednolita. Przy każdym wzroście istnieje 50% szans na zatrzymanie przyrostu.

Japt , 22/25 bajtów

Pierwsze rozwiązanie dotyczy oryginalnej specyfikacji, która miała *<space>jako drugi program, a drugie dotyczy zaktualizowanej specyfikacji, która arbitralnie ją zmieniła <space>*</space>, dzięki EoI za sugerowaną „poprawkę”.

Oba generują błąd przepełnienia po wejściu w nieskończoną pętlę trzeciego programu, ale teoretycznie przy wystarczającej pamięci (którą możemy założyć na potrzeby golfa kodowego ) działałby wiecznie.

Å?¢?ß:2pHÉ ö:`HÁM Wld

Wypróbuj program 1
Wypróbuj program 2
Wypróbuj program 3

Å?UÎ>S?ß:2pHÉ ö:`HÁM Wld

Wypróbuj program 1
Wypróbuj program 2
Wypróbuj program 3

JavaScript (ES7), 66 bajtów

s=>s[1]?s<'!'?Math.random()*2**31|0:eval(`for(;;);`):'Hello World'

Wypróbuj online! (Witaj świecie)

Wypróbuj online! (Liczba losowa)

Wypróbuj online! (nieskończona pętla)

Galaretka , 23 21 bajtów

OS¹Ḃ¿ịØ%HX’;““½,⁾ẇṭ»¤

Wypróbuj online!

Łącze monadyczne, które przyjmuje pojedynczy argument i zwraca Hello World, losową 31-bitową liczbę całkowitą lub nieskończoną pętlę zgodnie ze specyfikacją.

Wszystkie opcje: * * *+*

Wyjaśnienie

O                     | Convert to codepoints
 S                    | Sum
  ¹Ḃ¿                 | Loop the identity function while odd 
     ị              ¤ | Index into the following as a nilad:
      Ø%              | - 2 ** 32
        H             | - Halved
         X            | - Random integer in the range 1..2**31
          ’           | - Decrease by 1 
           ;          | - Concatenated to:
            ““½,⁾ẇṭ»  |   - "", "Hello World"

Java (JDK) , 83 bajty

s->{for(s=s.intern();s=="*+*";);return"*"==s?"Hello World":(-1>>>1)*Math.random();}

Wypróbuj online!

Python 2 , 91 89 88 bajtów

from random import*
def f(p):
 while'*'<p:p
 print['Hello World',getrandbits(31)][p<'!']

Wypróbuj online!

2 bajty dzięki Jonathanowi Allanowi ; 1 bajt dzięki dla ShadowRanger .

PowerShell, 60 , 56 bajtów

switch($args){*{'Hello World'}' * '{random}*+*{for(){}}}

Dość wersja niemy, jedyny golfa technika tutaj jest pominięcie Get-w Get-Random.

UPD. Zmniejszony do 56 bajtów poprzez usunięcie cudzysłowów, dzięki Veskah !

• Wypróbuj online! (Witaj świecie)
• Wypróbuj online! (Liczba losowa)
• Wypróbuj online! (nieskończona pętla)

Perl 5 -p , 43 39 bajtów

$_=/ /?0|rand~0:/\+/?redo:"Hello World"

Wypróbuj online!

C # (interaktywny kompilator Visual C #) , 71 bajtów

s=>{for(;s=="*+*";);return"*"==s?"Hello World":new Random().Next()+"";}

Wypróbuj online!

Ruby -n , 47 bajtów

puts~/ /?rand(1<<31):~/\+/?loop{}:"Hello World"

Wypróbuj online!

Wolfram Language (Mathematica) , 65 bajtów

#/.{"*"->"Hello World"," * "->RandomInteger[2^31-1],_:>0~Do~∞}&

Wypróbuj online!

Węgiel drzewny , 30 bajtów

Ｗ№θ*Ｆ⁼θ*≔Hello Worldθ∨θＩ‽Ｘ²¦³¹

Wypróbuj online! Link jest do pełnej wersji kodu. Nadużywa domyślnego formatu wejściowego Charcoal, który dzieli się na spacje, jeśli jest tylko jedna linia, a zatem wprowadzanie liczb losowych w rzeczywistości wygląda jak trzy wejścia. Wyjaśnienie:

Ｗ№θ*

Powtórz, gdy pierwsze wejście zawiera *.

Ｆ⁼θ*

Jeśli pierwsze wejście jest *tylko ...

≔Hello Worldθ

... następnie zamień na Hello World, powodując zakończenie pętli. *+*nie zostanie zastąpiony, co spowoduje nieskończoną pętlę.

∨θ

Jeśli pierwsze wejście nie jest puste, wyślij je.

Ｉ‽Ｘ²¦³¹

Ale jeśli jest pusty, wypisz losową liczbę całkowitą w żądanym zakresie.

Dodaj ++ , 78 bajtów

z:"Hello World"
`y
xR2147483647
x:?
a:"*"
b:" * "
c:"*+*"
Ix=a,Oz
Ix=b,O
Wx=c,

Wypróbuj online!

Wyjaśnienie

z:"Hello World"	; Set z = "Hello World"
`y		; Set y as the active variable
xR2147483647	; Set y to a random number between 0 and 2147483647
x:?		; Set x to the input
a:"*"		; Set a = "*"
b:" * "		; Set b = " * "
c:"*+*"		; Set c = "*+*"
Ix=a,		; If x == a then...
	Oz	;	...output z
Ix=b,		; If x == b then...
	O	;	...output y
Wx=c,		; While x == c then...
		;	...do nothing

Brachylog , 26 23 bajtów

l₃∈&hṢ∧2^₃₁-₁ṙw∨Ḥ⊇ᶠ³⁶tw

Wypróbuj online!

Pobiera program jako ciąg znaków przez zmienną wejściową i ignoruje zmienną wyjściową. Mocno wykorzystuje gwarancję, że dane wejściowe są zawsze tylko jednym z trzech poprawnych programów: każde wejście o długości trzy będzie zachowywać się tak samo, jak " * "i "*+*"zależnie od tego, czy pierwszy znak jest spacją, a każde inne dane wejściowe będą się zachowywać "*".

l₃                         The input has length 3
  ∈                        and is an element of something,
   &h                      and the input's first element
     Ṣ                     is a space
  ∈                        (if not, try some other thing it's an element of),
      ∧2^₃₁-₁              so take 2,147,483,647 and
             ṙw            print a random number between 0 and it inclusive.
               ∨           If the input's length isn't 3,
                Ḥ⊇ᶠ³⁶tw    print the 36th subsequence of "Hello, World!".

PHP , 51 bajtów

for(;'*'<$l=$argn[1];);echo$l?rand():'Hello World';

Wypróbuj online! (Witaj świecie)

Wypróbuj online! (Liczba losowa)

Wypróbuj online! (Nieskończona pętla)

Zajmuje drugie charakter wejścia, które mogą być '', '*'albo '+'. W przypadku, '+'gdy '*'<'+'będzie to prawdą, a pętla będzie nieskończona, w przeciwnym razie po pętli zostanie wyświetlony „Hello World” lub liczba losowa. rand()Automatycznie generuje liczbę między 0 a getrandmax()które zastosowania zdefiniowanych RAND_MAXw standardzie biblioteki C i domyślnie 2147483647na większość platform / środowisk, włącznie TIO.

05AB1E , 21 bajtów

'*KgDi[ë<ižIL<Ω딟™‚ï

Wypróbuj online. (UWAGA: losowe budowanie jest dość wolne z dużymi listami, więc może upłynąć trochę czasu, zanim wynik zostanie podany).

Wyjaśnienie:

'*K           '# Remove all "*" from the (implicit) input
   g           # Get the length of what's remain (either 0, 1, or 2)
    D          # Duplicate this length
     i         # If the length is exactly 1:
      [        #  Start an infinite loop
     ë<i       # Else-if the length is 2:
        žI     #  Push builtin 2147483648
          L    #  Create a list in the range [1,2147483648]
           <   #  Decrease each by 1 to make the range [0,2147483647]
            Ω  #  Pop and push a random value from the list
               #  (after which the top of the stack is output implicitly as result)
     ë         # Else:
      ”Ÿ™‚ï    #  Push dictionary string "Hello World"
               #  (after which the top of the stack is output implicitly as result)

Zobacz moją wskazówkę 05AB1E (sekcja Jak korzystać ze słownika? ), Aby zrozumieć, dlaczego tak ”Ÿ™‚ïjest "Hello World".

Pyth , 32 bajty

It/Jw\*#;?tlJOhC*4\ÿ"Hello World

Wypróbuj online!

Objaśnienie (Python-ish)

I                                   # if 
  /Jw\*                             #    (J:=input()).count("*"))
 t                                  #                             - 1:
       #;                           #     try: while True: pass;except: break;
         ?                          # if (ternary)
           lJ                       #    len(J):
             O                      #     randInt(0,                    )
               C                    #                int(     , 256)
                *4\ÿ                #                    4*"ÿ"
              h                     #                                + 1
                    "Hello World    # else: (implicitly) print "Hello World"

APL (Dyalog Unicode) , 39 bajtów ^SBCS

Anonimowy przedrostek lambda.

{'+'∊⍵:∇⍵⋄' '∊⍵:⌊2E31×?0⋄'Hello World'}

Wypróbuj online!

{ „dfn”; ⍵jest argument:

 '+'∊⍵: jeśli plus jest członkiem argumentu:

  ∇⍵ ogon powraca na argument

 ' '∊⍵ jeśli spacja jest członkiem argumentu:

  ?0 random float (0–1)

  2E31× skaluj do (0–2³¹)

  ⌊ piętro

 'Hello World' w przeciwnym razie zwróci ciąg

Commodore BASIC (VIC-20, C64, TheC64Mini itp.) - 170 tokenizuje bajty BASIC

 0a%=32767:goS9:b$=leF(b$,len(b$)-1):ifb$="*"tH?"hello world
 1ifb$=" * "tH?int(rN(ti)*a%)
 2ifb$="*+*"tHfOi=.to1:i=.:nE
 3end
 9b$="":fOi=.to1:geta$:i=-(a$=cH(13)):b$=b$+a$:?a$;:nE:reT

Myślę, że aby to zrobić dokładniej, będę musiał zagłębić się w dziwny świat języka asemblera 6502, ale to pierwszy szkic.

Po pierwsze, INPUTsłowo kluczowe w Commodore BASIC ignoruje białe spacje, więc podprogram w linii 9jest szybkim i brudnym sposobem akceptowania pozycji klawiatury, w tym spacji.

Drugi punkt, liczby całkowite Commodore BASIC mają zakres 16-bitowych znaków, więc od -32768 do +32767 źródła - więc zachowałem liczbę losową wygenerowaną na 0 - 32767 włącznie

Strzyżyk ,143 135 bajtów

Nie jestem dobrym golfistą ... RNG generuje tę samą wartość za każdym razem, ponieważ jest generatorem liczb pseudolosowych.

Fn.new{|a|
import"random"for Random
if(a=="*+*"){
while(1){}
}else System.write(a[0]==" "?Random.new(9).int((1<<31)-1):"Hello World")
}

Wypróbuj online!

JavaScript, 63 bajty, brak nieskończonej rekurencji

s=>s[1]?Math.random()*2**31|eval("while(s>'!');"):'Hello World'

zła sieć, więc brak linku TIO