Görev basit. Dil için bir tercüman yazın * .

İşte wiki'ye daha büyük bir bağlantı.

Yalnızca üç geçerli * program vardır:

• * "Merhaba Dünya"
•  *  0 ile 2.147.483.647 arasında rastgele bir sayı yazdırır
• *+* Sonsuza kadar çalışır.

Üçüncü durum, bu sorudaki spesifikasyonlara göre sonsuz bir döngü olmalıdır

Giriş:

• Giriş, standart I / O kurallarımızla kabul edilebilir herhangi bir giriş yöntemi ile alınabilir
• Her zaman yukarıdaki programlardan biri olacak

Çıktı:

• İlk kasa tam olarak Hello World, izleyen satır sonu olsun veya olmasın yazdırılmalıdır .
• İkinci durumda, dilinizin maksimum tam sayısı 2.147.483.647'den küçükse, dilinizin maksimum tamsayısını kullanın
• Birinci ve ikinci durumlar, standart I / O kurallarımızla kabul edilebilir herhangi bir çıktıya yazdırabilir.
• Üçüncü durum herhangi bir çıktı vermemelidir.

puanlama:

Bu kod golf olduğundan , bayt cinsinden en kısa cevap kazanır.

* , 0 bayt

* Girdiyi okuma yolu olmadığından, varsayılan kurallar girdinin programa birleştirilerek verilmesi gerektiğini belirtmeye izin verir .

(... Bence. Doğrulamak için temsilci olmadığım bir "en az iki kez upvotes kadar upvotes" durumu var).

R , 69 bayt

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

Çevrimiçi deneyin!

switchadlandırılmış bağımsız değişkenleri eşleştirmeye çalışır ve eşleşme yoksa, ilk addan sonra ilk adlandırılmamış olanı seçer, bu durumda sonsuz döngü olur repeat{}.

Jöle ,  21  20 bayt

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

Karakterlerin listesini kabul eden monadic bir bağlantı.

Çevrimiçi deneyin!

vL’... ayrıca çalışır (aşağıya bakınız).

Nasıl?

Ḋ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"

Alternatif

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 bayt

-3 baytlık attinat'a teşekkürler.

Sadece ikinci karakteri kontrol etmeliyim: LSB ayarlanmışsa, bu bir +(dolayısıyla program " *+*") ve program döngüler. Bundan sonra, eğer bir NUL" *" " programıydı ve görüntülüyoruz Hello World; aksi takdirde, rastgele bir değer görüntüler ("  * ", kalan diğer tek seçenek.)

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

Çevrimiçi deneyin!

Python 2 , 103 93 89 87 bayt

Ben Chas Browns en yaptığım önceki cevabı kombine cevap ve birkaç bayt kısa bir şey var.

Rastgele sayı 0 ile 2 ** 31-1 arasında olacaktır.

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

Çevrimiçi deneyin!

Önceki sürümler:

103 bayt

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

93 bayt

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

Fıçı , -lp, -ir 30 26 25 24 20 19 bayt

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

-1 bayt bayrak kullanma

Çevrimiçi deneyin!

Yanıt Geçmişi

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

Çevrimiçi deneyin!

Hello WorldSözlük dizesine kısaltılmış

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

Çevrimiçi deneyin!

Keg'in gücüne hayran kalmayı hiç bırakmadım. Başka bir bayt için EdgyNerd kullanıcısına kaydedilen krediler.

Önceki Sürümler

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

Çevrimiçi deneyin!

Kaydedilen ekstra bayt için A__ kullanıcısına kredi.

Eski versiyon

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

Temel olarak, giriş programını alır ve:

• Giriş uzunluğunun 1 olup olmadığını kontrol eder, doğruysa "Merhaba Dünya" yazdırır
• Son karakterin boşluk olup olmadığını kontrol eder ve rastgele bir sayı yazdırır
• Aksi takdirde sonsuz bir döngü çalıştırır

Sonra yığını örtük olarak yazdırın.

?                               #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.

Merhaba dünya, noktalama işaretlerine ihtiyaç duymadığı için 4 bayt kurtardı.

Çevrimiçi deneyin! Eski versiyon

Çevrimiçi deneyin! Yeni sürüm

Befunge-93 , 54 bayt

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

Çevrimiçi deneyin!

Açıklamalı:

~"*"-                      _                ~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

Rasgelelik tekdüze değil. Her artışta% 50'lik bir artışı durdurma şansı vardır.

Japt , 22/25 bayt

İlk çözüm, *<space>ikinci program olarak kullanılan orijinal spesifikasyon ve diğeri, <space>*</space>önerilen "düzeltme" için EoI sayesinde, keyfi olarak değiştirilen güncellenmiş spesifikasyon içindir.

Her ikisi de üçüncü programın sonsuz döngüsüne girdikten sonra bir taşma hatası atar, ancak teorik olarak, (bellek -golf amaçları için varsayabileceğimiz) yeterli hafıza ile sonsuza kadar çalışır.

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

Program 1
deneyin Program 2
deneyin Program 3 deneyin

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

Program 1
deneyin Program 2
deneyin Program 3 deneyin

JavaScript (ES7), 66 bayt

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

Çevrimiçi deneyin! (Selam Dünya)

Çevrimiçi deneyin! (rastgele sayı)

Çevrimiçi deneyin! (sonsuz döngü)

Jöle , 23 21 bayt

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

Çevrimiçi deneyin!

Tek bir argüman alan ve geri dönen monadik bir bağlantı Hello World , rastgele 31 bit tam sayı veya spesifikasyona göre sonsuz döngü yapan .

Tüm seçenekler: * * *+*

açıklama

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 bayt

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

Çevrimiçi deneyin!

Python 2 , 91 89 88 bayt

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

Çevrimiçi deneyin!

Jonathan Allan sayesinde 2 bayt ; ShadowRanger'a 1 bayt teşekkürler .

PowerShell, 60 , 56 bayt

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

Oldukça dilsiz versiyonu, burada sadece golf tekniği atlayarak edilir Get-içinde Get-Random.

UPD. Veskah sayesinde, tırnak kaldırarak 56 bayta düştü !

• Çevrimiçi deneyin! (Selam Dünya)
• Çevrimiçi deneyin! (rastgele sayı)
• Çevrimiçi deneyin! (sonsuz döngü)

Perl 5 -p , 43 39 bayt

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

Çevrimiçi deneyin!

C # (Visual C # Etkileşimli Derleyici) , 71 bayt

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

Çevrimiçi deneyin!

Ruby -n , 47 bayt

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

Çevrimiçi deneyin!

Wolfram Dili (Mathematica) , 65 bayt

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

Çevrimiçi deneyin!

Odun kömürü , 30 bayt

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

Çevrimiçi deneyin! Bağlantı, kodun ayrıntılı versiyonudur. Kötüye Kullanımlar Kömürün yalnızca bir satır varsa boşluklara ayrılan varsayılan girdi biçimi, bu nedenle rasgele sayı girişi aslında üç girişe benziyor. Açıklama:

Ｗ№θ*

İlk giriş a içerirken işlemi tekrarlayın *.

Ｆ⁼θ*

İlk giriş *sadece ...

≔Hello Worldθ

... sonra ile değiştirin Hello World, böylece döngünün sona ermesine neden olun. *+*değiştirilmez ve sonsuz bir döngüye neden olur.

∨θ

İlk giriş boş değilse çıktı alın.

Ｉ‽Ｘ²¦³¹

Ancak boşsa, istenen aralıkta rastgele bir tam sayı çıktılayın.

++ , 78 bayt ekle

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

Çevrimiçi deneyin!

açıklama

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 bayt

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

Çevrimiçi deneyin!

Programı girdi değişkeni aracılığıyla bir dize olarak alır ve çıktı değişkenini yok sayar. Girdinin üç geçerli programdan yalnızca biri olduğu garantisini büyük ölçüde kullanır: herhangi bir uzunluk-üç girdi, ya ilk karakterin boşluk olup olmamasına bağlı olarak ya " * "da "*+*"diğer girdiler gibi davranacaktır "*".

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 bayt

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

Çevrimiçi deneyin! (Selam Dünya)

Çevrimiçi deneyin! (Rastgele Sayı)

Çevrimiçi deneyin! (Sonsuz döngü)

Olabilir girişinin ikinci karakterini Alır '', '*'ya '+'. Durumunda başka, gerçek olacak ve döngü sonsuz olacak, döngü sonra, "Merhaba Dünya" ya bir rastgele sayı gösterilir. Otomatik olarak 0 ve arasında bir sayı üretir tanımlanan kullanımlar standart C kütüphanesinde ve varsayılan olarak TIO dahil olmak üzere en platformlar / ortamlarına.'+''*'<'+'rand()getrandmax()RAND_MAX2147483647

05AB1E , 21 bayt

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

Çevrimiçi deneyin.(NOT: Rastgele yapı büyük listelerde oldukça yavaştır, bu nedenle sonuç verilmeden önce biraz zaman alabilir.)

Açıklama:

'*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)

Neden ”Ÿ™‚ïolduğunu anlamak için bu 05AB1E bahşişime bakın ( sözlük nasıl kullanılır? )"Hello World" .

Pyth , 32 bayt

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

Çevrimiçi deneyin!

Açıklama (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 bayt ^SBCS

Anonim önek lambda.

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

Çevrimiçi deneyin!

{ "DFN"; ⍵argüman:

 '+'∊⍵: plus, bağımsız değişkenin bir üyesiyse:

  ∇⍵ tartışma üzerine kuyruk çekişi

 ' '∊⍵ boşluk argümanın bir üyesiyse:

  ?0 rastgele şamandıra (0–1)

  2E31× ölçeklendir (0–2³¹)

  ⌊ zemin

 'Hello World' başka dizeyi döndür

Commodore BASIC (VIC-20, C64, TheC64Mini vb.) - 170 BASIC bayt belirteci

 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

Bunu daha doğru yapmayı düşünüyorum, 6502 montaj dilinin garip dünyasına girmem gerekecek, ancak bu ilk taslak.

İlk nokta, INPUTCommodore BASIC'deki anahtar kelime beyaz boşlukları yok sayar, bu nedenle satırdaki alt rutin9 boşluklar dahil klavye girişlerini kabul etmenin hızlı ve kirli bir yoludur.

İkinci nokta, Commodore BASIC tamsayılarının 16-bit işaretli bir aralığı var, bu yüzden -32768 ila +32767 kaynağı - bu yüzden rastgele sayıyı 0 - 32767 dahil olmak üzere oluşturdum

Wren ,143 135 bayt

Ben iyi bir golfçü değilim ... RNG sahte bir sayı üreteci olduğu için her seferinde aynı değeri üretir.

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")
}

Çevrimiçi deneyin!

JavaScript, 63 Bayt, sonsuz özyinelemeli

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

kötü ağ yani TIO bağlantısı yok