Masalah

Anda harus menulis sebuah program yang, ketika Kode Konami diketik saat runtime, mencetak string " +30 lives" dan membunyikan suara pilihan Anda dari pengeras suara komputer.

Definisi

"Kode Konami" didefinisikan sebagai UUDDLRLRBAdiikuti dengan menekan tombol enter.

Aturan

• Anda dapat memilih untuk menggunakan panah atas untuk U, bawah untuk D, kiri untuk L, dan kanan untuk R, selama kode Anda konsisten dengan panah atau huruf.
• Masukan Anda mungkin diterima dari pengontrol atau keyboard, tetapi tidak perlu mendukung keduanya.

• Jawaban yang ada dapat terus digunakan BABAsebagai ganti BA, tetapi juga dapat mempersingkat jika mereka ingin melakukannya. Semua jawaban di masa depan harus digunakan BAuntuk konsistensi.

• Masukan kosong tidak perlu didukung.

05AB1E , 33 byte (Fine on Empty Input)

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

Cobalah online!

05AB1E , 30 26 byte (Gagal pada Input Kosong)

-4 Terima kasih kepada Adnan

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

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

Penafian: Suara bel tidak diputar di TryItOnline, mungkin tanyakan pada Dennis apakah salah satu servernya sedang melakukan ping ketika Anda menjalankannya.

JavaScript (ES6), 202 200 198 byte

Diuji hanya di Chrome dan Firefox. Menggunakan UDLRdaripada tombol panah. Pastikan CapsLock tidak aktif.

(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 terima kasih kepada isaacg (gunakan bitwise untuk tidak mengganti -10dengan ~9).
-1 byte berkat CalculatorFeline (dimungkinkan untuk menggunakan BELbyte literal ).

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

di mana yang 7ditunjukkan di atas adalah byte literal 0x07(yang tidak dicetak dalam blok kode).

Setelah masuk ditekan whilekondisi loop diperiksa. Jika yang terakhir ~9= 10 karakter (paling banyak) tidak cocok dengan kode perintah Contra maka no-op 1dieksekusi (penggantian passuntuk singkatnya); jika mereka lakukan sesuai maka sementara loop berakhir dan printpernyataan dieksekusi, yang menulis teks yang diperlukan bersama dengan karakter ASCII bel ( "alarm"), 0x07yang menghasilkan suara kecuali telah secara eksplisit dinonaktifkan (atau terminal tidak memiliki speaker !).

Jelly, 33 30 29 27 byte

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

Ternyata, append ( ṭ) tidak diperlukan, string secara otomatis digabungkan bersama- sama dicetak.

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

Tidak terkompresi

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

Cobalah online
Jika Anda menghapus semuanya setelah itu ¿, Anda dapat mengacaukan dengan input dan melihatnya hanya kembali ketika string input sudah benar.

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

Terima kasih @ JonathanAllan untuk membantu saya mencari kompresi string :)

Memproses, 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(){}

File audio harus disimpan sebagai sketchName/data/a.mp3. Catatan: Saya hanya menguji program ini tanpa file audio karena saya terlalu malas untuk mengunduh mp3file (karena hanya ekstensi terbatas yang didukung processing.sound.SoundFile).

The draw()fungsi yang dibutuhkan untuk berada di sana dalam rangka untuk keyTypedbekerja.

Alasan kami menggunakan keyTypedini karena Pemrosesan tidak memiliki STDIN, hanya dapat mendengarkan tombol yang ditekan melalui sketsa yang sedang dijalankan.

Penjelasan

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

Semua penekanan tombol pengguna disimpan sebagai karakter di dalam String k. Ini keyTypedadalah fungsi bawaan yang dipanggil setiap kali pengguna mengetik kunci. Secara bersamaan, kami memeriksa apakah String ini diakhiri dengan penekanan tombol. Kemudian kami mencetak +30 livesdan memutar file suara. Dan drawfungsinya ada untuk terus memperbarui keyTyped. Setelah kode Konami dimasukkan, maka tidak ada lagi yang akan dikeluarkan dan tidak ada audio yang diputar.

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

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

Coba di sini!

Ini bergantung pada lonceng lonceng (ascii 7) untuk suara di akhir (tidak terdengar pada penerjemah online).

Terima kasih kepada @TealPelican untuk menyimpan 15 byte lagi!

Disimpan dua byte untuk memeriksa BAbukannya BABA.

C 119 -1 - 2 = 116 byte

Golf

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

Tidak disatukan

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

Ditumpuk , 41 byte

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

Membaca input dari 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 byte

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

Setelah menjalankan skrip ini, ia akan memeriksa apakah 10 kunci berikutnya adalah kode Konami dan jika ya, itu akan menampilkan kotak pesan bertuliskan "+30 live" dan itu akan memainkan bunyi bip (saya tidak punya speaker sekarang untuk menguji ).

GNU sed, 32 25 + 1 = 33 26 byte

+1 byte untuk -nbendera.

/UUDDLRLRBA$/a+30 Lives\a

Cobalah online!

Penjelasan

Setiap kali enter ditekan ( $), program akan memeriksa apakah 10 penekanan tombol sebelumnya adalah kode. Jika ya, aperintah akan mengantri teks +30 Livesdan suara bel ( \a) untuk dicetak pada akhir siklus saat ini (yang, dalam hal ini, segera).

Mathematica, 50 byte

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

Awalnya, xhanya sebuah simbol dan karenanya tidak identik ( =!=) dengan simbol UUDDLRLRBA, jadi x=Input[]dievaluasi. Ini akan membuka kotak dialog dengan kursor sudah ada di bidang input, sehingga pengguna dapat segera mulai mengetik di keyboard.

Jika Enterditekan atau OKdiklik tanpa mengetik apa pun, maka InputField[]akan kembali Null, yang tidak identik dengan UUDDLRLRBA, sehingga loop berlanjut dan kotak dialog lain akan dibuka.

Jika pengguna mengklik Cancelatau keluar dari kotak dialog, maka InputFieldakan kembali $Canceled, yang juga tidak identik UUDDLRLRBA, sehingga loop akan terus berlanjut.

Pengguna dapat mengetik di kotak dialog sesuai keinginan hati mereka. Ketika mereka menekan Enter, input mereka ditafsirkan sebagai ekspresi bahasa Wolfram (mungkin hanya kotak). Jika ungkapan itu selain simbol UUDDLRLRBA, perulangan akan berlanjut.

"Harus diulang sampai kode Konami dimasukkan" agak kabur, tapi saya yakin ini memuaskan. Setelah ituWhile loop selesai ,.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

Akhirnya solusi yang benar-benar menggunakan input pengontrol!

Saya menggunakan Petit Computer daripada versi yang lebih baru (SmileBASIC) karena memiliki akses ke tombol Start, dan BTRIG()lebih pendek dari BUTTON().

Saya telah mengganti string data dengan x, itu harus berisi karakter dengan kode ascii 1,1,2,2,4,8,4,8,32,16

Versi membosankan, 46 byte

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

masukkan mengirimkan string ke Read-Host, jadi seharusnya .. bekerja?

C # (versi membosankan), 80 byte

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

C # (Yang menarik), 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();}}

Saya pikir ini berfungsi, sayangnya penguji online tidak mendukung keberadaan input konsol, karena itu saya harus mengikuti tes yang telah saya lakukan

Kemungkinan besar bisa bermain golf sangat - saya tidak hebat dalam hal ini! :)

Tidak Disatukan:

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

Heran , 50 byte

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

Ganti •dengan karakter kode \x07(karakter kontrol BEL). Mengambil input melalui STDIN.

fleksibel, 37 + 5 = 42 byte

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

Kode itu sendiri adalah 37 byte, kompilasi dengan opsi "-main" yang menambahkan 5 byte. Tentu saja, Anda harus mengkompilasi file C yang dihasilkan dengan kompiler C favorit Anda, tetapi saya tidak berpikir langkah itu harus diperhitungkan terhadap jumlah byte.

Saya bisa menyimpan byte dengan menggunakan karakter BEL literal alih-alih \a, tetapi saya lebih suka bisa membaca kode saya sendiri.

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

Penjelasan:

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

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