O problema

Você deve escrever um programa que, quando o Código Konami for digitado durante o tempo de execução, imprima a string " +30 lives" e emita um ruído de sua escolha no alto-falante do computador.

Definição

O "Código Konami" é definido como UUDDLRLRBAseguido pressionando a tecla Enter.

As regras

• Você pode optar por usar a seta para Ucima, para baixo, para Desquerda Le direita para R, desde que seu código seja consistente com setas ou letras.
• Sua entrada pode ser aceita de um controlador ou teclado, mas não precisa suportar os dois.

• As respostas existentes podem continuar a ser usadas em BABAvez de BA, mas também podem ser reduzidas, se assim o desejarem. Todas as respostas futuras devem ser usadas BApara obter consistência.

• Entrada vazia não precisa ser suportada.

05AB1E , 33 bytes (multa na entrada vazia)

Dg0Qiq}•ï“뙵yê!•36BQi7ç“+30™‹“J,

Experimente online!

05AB1E , 30 26 bytes (falha na entrada vazia)

-4 graças a Adnan

•ï“뙵yê!•36BQi7ç,“+30™‹“,

Experimente online!

•ï“뙵yê!•36B                  # UUDDLRLRBABA in base-214, converted back to base-36.
             Qi                # If implicit input is equal to...
               7ç,             # Print 7 converted to a character to the console (bell sound)...
                  “+30™‹“, # Print +30 lives.

Exoneração de responsabilidade: O som de Bell não é reproduzido no TryItOnline, talvez pergunte a Dennis se um de seus servidores em algum lugar está tocando quando você o executa.

JavaScript (ES6), 202 200 198 bytes

Testado apenas no Chrome e Firefox. Usa UDLRem vez das teclas de seta. Verifique se o CapsLock está desativado.

(o=(A=new AudioContext()).createOscillator()).connect(A.destination);s='';document.onkeyup=e=>{(s+=e.key[0]).slice(-11)=='uuddlrlrbaE'&&setTimeout('o.stop()',500,console.log('+30 lives'),o.start())}

Please click inside this area to make sure it gets focus.

Python 3,  55  53 bytes

-1 byte graças à utilização isaacg (bit a bit para não substituir -10com ~9).
-1 byte graças ao CalculatorFeline (é possível usar um BELbyte literal ).

while'UUDDLRLRBA'!=input()[~9:]:1
print('+30 lives7')

onde o 7mostrado acima é um byte literal 0x07(um não imprimível em um bloco de código).

Uma vez pressionado enter, a whilecondição do loop é verificada. Se os últimos ~9= 10 caracteres (no máximo) não corresponderem ao código de comando Contra, o no-op 1será executado (substituindo passpor brevidade); se fazer corresponder, em seguida, o tempo loop termina e a printinstrução é executada, que grava o texto necessário junto com um carácter sino ASCII ( "alarme"), 0x07que produz um som menos que tenha sido explicitamente desativado (ou o terminal tem nenhum alto-falante !).

Geléia, 33 30 29 27 bytes

ɠ⁻“UUDDLRLRBA”$¿ṛ7Ọ“¡}ʠƈ[ỵ»

Acontece que o append ( ṭ) não é necessário, as strings são automaticamente unidas e impressas.

ɠ⁻“UUDDLRLRBABA”$¿ṛ7Ọṭ“¡}ʠƈ[ỵ»

Descomprimido

ɠ⁻“UUDDLRLRBABA”$¿ṛ7Ọṭ“+30 lives”

Experimente online
Se você remover tudo depois ¿, poderá mexer na entrada e ver que ela só retornará quando a sequência de entrada estiver correta.

ɠ⁻“UUDDLRLRBABA”$¿ṛ7Ọṭ“+30 lives” - main link
ɠ                                 - takes a line of input
 ⁻“UUDDLRLRBABA”$                 - $ groups it into a monadic !="UUDDLRLRLRBABA"
                 ¿                - while (the inequality, which takes from the getline)
                  ṛ               - take the right argument (to ignore the input string)
                   7Ọ             - chr(7), the bell character
                     ṭ“+30 lives” - append that bell character to the output

Obrigado @ JonathanAllan por me ajudar a descobrir a compactação de cadeias :)

Processando, 161 157 155 bytes

String k="";void keyTyped(){if(match(k+=key,"uuddlrlrba\\n$")!=null){print("+30 lives");new processing.sound.SoundFile(this,"a.mp3").play();}}void draw(){}

O arquivo de áudio deve ser salvo como sketchName/data/a.mp3. Nota: Eu testei este programa apenas sem o arquivo de áudio porque tenho preguiça de fazer o download de um mp3arquivo (uma vez que apenas extensões limitadas são suportadas processing.sound.SoundFile).

A draw()função é necessária para estar lá, a fim de keyTypedtrabalhar.

O motivo pelo qual estamos usando keyTypedé que o Processing não possui STDIN, ele só pode ouvir as teclas pressionadas pelo esboço sendo executado.

Explicação

String k="";
void keyTyped(){
  if(match(k+=key,"uuddlrlrba\\n$")!=null){
    print("+30 lives");
    new processing.sound.SoundFile(this,"a.mp3").play();
  }
}
void draw(){
}

Todos os pressionamentos de tecla do usuário são armazenados como caracteres dentro da String k. A keyTypedé uma função incorporada que é chamada sempre que o usuário digita uma tecla. Simultaneamente, estamos verificando se essa String termina com as teclas digitadas. Em seguida, imprimimos +30 livese reproduzimos o arquivo de som. E a drawfunção existe para atualizar continuamente keyTyped. Depois que o código Konami for inserido, nada mais será emitido e nenhum áudio será reproduzido.

> <>, 132 69 64 62 bytes *> <> , 84 bytes

i:1+?\0[
:1+?!\i
BA"a~/"UUDDLRLR
{v!?l/!?=
7/"+30 lives"
o<;!?l

Experimente aqui!

Isso depende do toque da campainha (ascii 7) para o ruído no final (não ouvido no intérprete on-line).

Agradecemos ao @TealPelican por salvar outros 15 bytes!

Salva dois bytes procurando em BAvez de BABA.

C 119 -1 - 2 = 116 bytes

Golfe

i;f(){char a[14];a[13]=0;while(strcmp(a,"UUDDLRLRBA"))for(i=0;i<12;a[i]=a[i+++1]);a[i]=getch();puts("+30 Lives\a");}  

Ungolfed

#include<stdlib.h>
#include<conio.h>

i;
f()
{
    char a[14];
    a[13]=0;
    while(strcmp(a,"UUDDLRLRBA"))
    {
        for(i=0;i<12;a[i]=a[i+++1]);
        a[i]=getch();
        puts(a); //This is to print every step in the runtime
    }
    puts("+30 Lives\a"); // '\a' is the acsii char that makes sound when passed to STDOUT
}

main()
{
    f();
}

Stacked, 41 bytes

['+30 lives'BEL+out]prompt'UUDDLRLRBA'=if

Reads input from keyboard.

['+30 lives'BEL+out]prompt'UUDDLRLRBA'=if
[                  ]prompt'UUDDLRLRBA'=if  if the input is the desired string,
 '+30 lives'BEL+out                           output '+30 lives' and the BEL character. 

AutoHotkey, 63 bytes

Input,K,L10
if(K="UUDDLRLRBA"){
MsgBox,"+30 lives" 
SoundBeep
}

Depois de executar este script, ele verificará se as próximas 10 teclas são o código da Konami e, se for, mostrará uma caixa de mensagem dizendo "+30 vidas" e deve emitir um sinal sonoro (não tenho alto-falantes agora para testar )

GNU sed, 32 25 + 1 = 33 26 bytes

+1 byte para -nsinalizador.

/UUDDLRLRBA$/a+30 Lives\a

Experimente online!

Explicação

Every time enter is pressed ($), the program checks if the preceding 10 keystrokes were the code. If they were, the a command queues the text +30 Lives and the bell sound (\a) to be printed at the end of the current cycle (which, in this case, is immediately).

Mathematica, 50 bytes

While[x=!=UUDDLRLRBA,x=Input[]];Beep[];"+30 lives"

Initially, x is just a symbol and is thus not identical (=!=) to the symbol UUDDLRLRBA, so x=Input[] is evaluated. This will open a dialog box with the cursor already in the input field, so the user can immediately start typing on the keyboard.

If Enter is pressed or OK is clicked without typing anything, then InputField[] will return Null, which is not identical to UUDDLRLRBA, so the loop continues and another dialog box will be opened.

If the user clicks Cancel or otherwise exits the dialog box, then InputField will return $Canceled, which is also not identical to UUDDLRLRBA, so the loop will continue.

The user can type in the dialog box to their heart's desire. When they hit Enter, their input is interpreted as a Wolfram language expression (possibly just boxes). If that expression is anything other than the symbol UUDDLRLRBA, the loop will continue.

"Must loop until the Konami code is entered" is a little vague, but I believe this satisfies it. Once the While loop is completed, Beep[];"+30 lives".

Petit Computer BASIC, 91 bytes

@L
WAIT 1S$=S$+CHR$(B)*!!B
B=BTRIG()IF B<1024GOTO@L
IF"xxxxxxxxxx"==S$THEN BEEP?"+30 lives

Finally a solution that actually uses controller input!

I used Petit Computer rather than the newer version (SmileBASIC) because it has access to the Start button, and BTRIG() is shorter than BUTTON().

I've replaced the data string with x's, it should contain characters with ascii codes 1,1,2,2,4,8,4,8,32,16

Boring version, 46 bytes

INPUT S$IF"UUDDLRLRBA"==S$THEN BEEP?"+30 lives

Powershell, 89 86 Bytes

if((Read-Host)-eq"UUDDLRLRBABA"){"+30 Lives";[System.Media.SystemSounds]::Beep.Play()}

enter submits the string to the Read-Host, so it should.. work?

C# (the boring version), 80 bytes

void n(){while(Console.ReadLine()!="UUDDLRLRBA"){}Console.Write("+30 Lives\a");}

C# (The interesting one), 202 bytes

void n(){t();Console.Write("+30 Lives\a");}void t(){var k="UUDDLRLRBA";var s="";while(s!=k){s+=Console.ReadKey().Key.ToString();s=k.StartsWith(s)?s:"";}if(Console.ReadKey().Key!=ConsoleKey.Enter){t();}}

I think this works, sadly online testers do not support the existence of a console input, as such I will have to go on the tests I have done

Can most likely be golfed hugely - I'm not great at this! :)

Ungolfed:

void n()
{
    t();
    Console.WriteLine("+30 Lives\a");
}

void t()
{
    var k = "UUDDLRLRBA";
    var s = "";
    while(s != k)
    {
        s += Console.ReadKey().Key.ToString();
        s = k.StartsWith(s) ? s : "";
    }
    if(Console.ReadKey().Key != ConsoleKey.Enter)
    {
        t();
    }
}

Wonder, 50 bytes

ol"•";f\@[="UUDDLRLRBA"rl0?ol"+30 lives•"?f0];f0

Replace • with the character of code \x07 (the BEL control char). Takes input through STDIN.

flex, 37 + 5 = 42 bytes

%%
UUDDLRLRBA puts("+30 lives\a");

The code itself is 37 bytes, compile it with the "-main" option which adds 5 bytes. Naturally, you have to compile the resulting C file with your favorite C compiler, but I don't think that step should count toward the byte count.

I could save a byte by using a literal BEL character instead of \a, but I'd rather be able to read my own code.

C, 87 85 81 bytes

s[13];f(){for(;strcmp(s,"UUDDLRLRBA\n");fgets(s,12,stdin));puts("+30 Lives!\a");}

shortC, 52 bytes

s[13];AO;Ms,"UUDDLRLRBA\n");Ys,12,N));J"+30 Lives!\a

Explanation:

s[13];                                                // declare array with 13 members
      A                                               // main function
       O;Ms,"UUDDLRLRBA\n");                          // for loop while input is not equal to the Konami Code
                            Ys,12,N));                // read 12 characters of input into array
                                      J"+30 Lives!\a  // print the string

Try it online!

C, 114 bytes

#define X "UUDDLRLRBA"
main(i,j){for(i=j=0;!j;)(getchar()==X[i++])&&((j=1?!X[i]|puts("+30 lives\a"):0)|1)||(i=0);}