Il problema

È necessario scrivere un programma che, quando si digita il codice Konami durante il runtime, stampa la stringa " +30 lives" e emette un rumore di propria scelta dall'altoparlante del computer.

Definizione

Il "Codice Konami" è definito come UUDDLRLRBAseguito premendo il tasto Invio.

Le regole

• Puoi scegliere di usare la freccia su per U, giù per D, sinistra per Le destra per R, purché il codice sia coerente con frecce o lettere.
• Il tuo input potrebbe essere accettato da un controller o da una tastiera, ma non è necessario supportare entrambi.

• Le risposte esistenti possono continuare a utilizzare al BABAposto di BA, ma possono anche accorciarle se lo desiderano. Le risposte future dovrebbero essere usate BAper coerenza.

• L'input vuoto non deve essere supportato.

05AB1E , 33 byte (Fine su input vuoto)

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

Provalo online!

05AB1E , 30 26 byte (errore su input vuoto)

-4 grazie ad Adnan

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

Provalo 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.

Disclaimer: il suono di Bell non viene riprodotto su TryItOnline, forse chiedere a Dennis se uno dei suoi server da qualche parte sta eseguendo il ping quando lo si esegue.

JavaScript (ES6), 202 200 198 byte

Testato solo su Chrome e Firefox. Utilizza UDLRanziché i tasti freccia. Assicurati che CapsLock sia disattivato.

(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 byte

-1 byte grazie a isaacg (usare bit a bit per non sostituirlo -10con ~9).
-1 byte grazie a CalculatorFeline (è possibile utilizzare un BELbyte letterale ).

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

dove quanto 7sopra è un byte letterale 0x07(un non stampabile in un blocco di codice).

Una volta premuto Invio, viene verificata la whilecondizione del loop. Se gli ultimi ~9= 10 caratteri (al massimo) non corrispondono al codice del comando Contra, 1viene eseguita la no-op (sostituzione di passper brevità); se lo fanno corrispondere quindi il tempo finisce loop e l' printistruzione viene eseguita, che scrive il testo richiesto insieme con un carattere campana ASCII ( "allarme"), 0x07che produce un suono che non sia stato esplicitamente disattivato (o il terminale non ha altoparlante !).

Gelatina, 33 30 29 27 byte

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

Si scopre che l'append ( ṭ) non è necessario, le stringhe vengono automaticamente unite insieme entrambe stampate.

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

Non compresso

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

Provalo online
Se rimuovi tutto dopo ¿, puoi pasticciare con l'input e vedere che ritorna solo quando la stringa di input è corretta.

ɠ⁻“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

Grazie @JonathanAllan per avermi aiutato a capire la compressione delle stringhe :)

Elaborazione, 161 157 155 byte

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

Il file audio deve essere salvato come sketchName/data/a.mp3. Nota: ho testato questo programma solo senza il file audio perché sono troppo pigro per scaricare un mp3file (poiché sono supportate solo estensioni limitate processing.sound.SoundFile).

La draw()funzione è necessaria per essere lì per keyTypedfunzionare.

Il motivo che stiamo utilizzando keyTypedè perché Processing non ha STDIN, può solo ascoltare i tasti che vengono premuti tramite lo schizzo in esecuzione.

Spiegazione

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

Tutte le sequenze di tasti dell'utente sono memorizzate come caratteri all'interno della stringa k. IlkeyTyped è una funzione incorporata che viene chiamata ogni volta che l'utente preme un tasto. Allo stesso tempo, stiamo controllando se questa stringa termina con i tasti. Quindi stampiamo +30 livese riproduciamo il file audio. E la drawfunzione è lì per l'aggiornamento continuo keyTyped. Dopo aver inserito il codice Konami, non verrà emesso nient'altro e non verrà riprodotto audio.

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

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

Provalo qui!

Questo si basa sul campanello (ascii 7) per il rumore alla fine (non ascoltato sull'interprete online).

Grazie a @TealPelican per aver salvato altri 15 byte!

Salvato due byte controllando BAinvece di BABA.

C 119 -1 - 2 = 116 byte

golfed

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();
}

Impilato , 41 byte

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

Legge l'input dalla tastiera.

['+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. 

Tasto di scelta automatica, 63 byte

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

Dopo aver eseguito questo script, controllerà se i prossimi 10 tasti sono il codice Konami e, se lo è, mostrerà una finestra di messaggio che dice "+30 vite" e dovrebbe emettere un segnale acustico (non ho altoparlanti ora per testare ).

GNU sed, 32 25 + 1 = 33 26 byte

+1 byte per -nflag.

/UUDDLRLRBA$/a+30 Lives\a

Provalo online!

Spiegazione

Ogni volta che si preme Invio ( $), il programma verifica se i 10 tasti precedenti erano il codice. In tal caso, il acomando mette in coda il testo +30 Livese il suono della campana ( \a) da stampare alla fine del ciclo corrente (che, in questo caso, è immediatamente).

Mathematica, 50 byte

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

Inizialmente, xè solo un simbolo e non è quindi identico ( =!=) al simbolo UUDDLRLRBA, quindi x=Input[]viene valutato. Questo aprirà una finestra di dialogo con il cursore già nel campo di inserimento, in modo che l'utente possa iniziare immediatamente a digitare sulla tastiera.

Se Enterviene premuto o si OKfa clic senza digitare nulla, InputField[]verrà restituito Null, che non è identico aUUDDLRLRBA , quindi il ciclo continua e verrà aperta un'altra finestra di dialogo.

Se l'utente fa clic Cancelo esce in altro modo dalla finestra di dialogo, quindi InputFieldtornerà $Canceled, che non è identico a quello UUDDLRLRBA, quindi il ciclo continuerà.

L'utente può digitare nella finestra di dialogo il desiderio del proprio cuore. Quando colpiscono Enter, il loro input viene interpretato come un'espressione del linguaggio Wolfram (probabilmente solo caselle). Se quell'espressione è diversa dal simbolo UUDDLRLRBA, il ciclo continuerà.

"Deve essere eseguito il loop fino a quando non viene inserito il codice Konami" è un po 'vago, ma credo che questo lo soddisfi. Una volta che il Whileciclo è completato, .Beep[];"+30 lives"

Petit Computer BASIC, 91 byte

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

Finalmente una soluzione che utilizza effettivamente l'input del controller!

Ho usato Petit Computer anziché la versione più recente (SmileBASIC) perché ha accesso al pulsante Start ed BTRIG()è più breve di BUTTON().

Ho sostituito la stringa di dati con x"s", dovrebbe contenere caratteri con codici ascii 1,1,2,2,4,8,4,8,32,16

Versione noiosa, 46 byte

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

Powershell, 89 86 byte

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

invio invia la stringa a Read-Host, quindi dovrebbe .. funzionare?

C # (la versione noiosa), 80 byte

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

C # (quello interessante), 202 byte

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();}}

Penso che funzioni, purtroppo i tester online non supportano l'esistenza di un input da console, quindi dovrò andare ai test che ho fatto

Molto probabilmente si può giocare a golf enormemente - non sono bravo in questo! :)

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();
    }
}

Meraviglia , 50 byte

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

Sostituire •con il carattere del codice \x07(il carattere di controllo BEL). Riceve input tramite STDIN.

flex, 37 + 5 = 42 byte

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

Il codice stesso è di 37 byte, compilarlo con l'opzione "-main" che aggiunge 5 byte. Ovviamente, devi compilare il file C risultante con il tuo compilatore C preferito, ma non credo che questo passaggio debba essere conteggiato nel conteggio dei byte.

Potrei salvare un byte usando un carattere BEL letterale invece di \a, ma preferirei poter leggere il mio codice.

C, 87 85 81 byte

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

shortC, 52 byte

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

Spiegazione:

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

Provalo online!

C, 114 byte

#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);}