Vấn đề

Bạn phải viết một chương trình, khi Mã Konami được nhập trong thời gian chạy, in chuỗi " +30 lives" và phát ra tiếng ồn do bạn chọn từ loa của máy tính.

Định nghĩa

"Mã Konami" được định nghĩa như UUDDLRLRBAsau bằng cách nhấn phím enter.

Những quy định

• Bạn có thể chọn sử dụng mũi tên lên cho U, xuống cho D, trái cho Lvà phải R, miễn là mã của bạn phù hợp với mũi tên hoặc chữ cái.
• Đầu vào của bạn có thể được chấp nhận từ bộ điều khiển hoặc bàn phím, nhưng không cần hỗ trợ cả hai.

• Các câu trả lời hiện tại có thể tiếp tục sử dụng BABAthay vì BA, nhưng cũng có thể rút ngắn nếu họ muốn làm như vậy. Câu trả lời trong tương lai nên sử dụng BAcho sự nhất quán.

• Đầu vào trống không cần phải được hỗ trợ.

05AB1E , 33 byte (Phạt trên đầu vào trống)

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

Hãy thử trực tuyến!

05AB1E , 30 26 byte ( Thất bại khi nhập dữ liệu trống)

-4 cảm ơn Ad Nam

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

Hãy thử trực tuyến!

•ï“뙵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.

Tuyên bố miễn trừ trách nhiệm: Âm thanh chuông không phát trên TryItOnline, có thể hỏi Dennis nếu một trong các máy chủ của anh ấy ở đâu đó bị rè khi bạn chạy nó.

JavaScript (ES6), 202 200 198 byte

Chỉ được thử nghiệm trên Chrome và Firefox. Sử dụng UDLRchứ không phải là các phím mũi tên. Vui lòng đảm bảo rằng CapsLock đã tắt.

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

Con trăn 3  55  53 byte

-1 byte nhờ vào isaacg (sử dụng bitwise không để thay thế -10bằng ~9).
-1 byte nhờ vào CalculatorFeline (có thể sử dụng một BELbyte bằng chữ ).

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

trong đó 7hình trên là một byte bằng chữ 0x07(không thể in được trong khối mã).

Khi nhập được nhấn, whileđiều kiện vòng lặp được kiểm tra. Nếu cuối cùng ~9= 10 ký tự (nhiều nhất) không khớp với mã lệnh Contra thì lệnh no-op 1được thực thi (thay thế passcho ngắn gọn); nếu họ làm phù hợp sau đó trong khi vòng lặp kết thúc và printstatement được thực hiện, trong đó viết các văn bản cần thiết cùng với một nhân vật chuông ASCII ( "báo động"), 0x07mà tạo ra một âm thanh trừ khi nó đã bị vô hiệu hóa một cách rõ ràng (hoặc nhà ga không có loa !).

Thạch, 33 30 29 27 byte

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

Hóa ra, append ( ṭ) không cần thiết, các chuỗi được tự động nối với nhau cả hai được in.

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

Không nén

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

Dùng thử trực tuyến
Nếu bạn xóa mọi thứ sau đó ¿, bạn có thể gây rối với đầu vào và thấy rằng nó chỉ trả về khi chuỗi đầu vào đúng.

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

Cảm ơn @Jonathan ALLan đã giúp tôi tìm ra tính năng nén chuỗi :)

Đang xử lý, 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(){}

Các tập tin âm thanh phải được lưu dưới dạng sketchName/data/a.mp3. Lưu ý: Tôi chỉ thử nghiệm chương trình này mà không có tệp âm thanh vì tôi quá lười để tải xuống một mp3tệp (vì chỉ có các tiện ích mở rộng hạn chế được hỗ trợ từprocessing.sound.SoundFile ).

Các draw() chức năng là cần thiết để có keyTypedđể làm việc.

Lý do chúng tôi đang sử dụng keyTyped là vì Xử lý không có STDIN, nó chỉ có thể lắng nghe các phím được nhấn thông qua bản phác thảo đang chạy.

Giải trình

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

Tất cả các tổ hợp phím của người dùng được lưu trữ dưới dạng ký tự bên trong Chuỗi k . Hàm keyTypedinbuilt được gọi bất cứ khi nào người dùng gõ khóa. Đồng thời, chúng tôi đang kiểm tra xem Chuỗi này kết thúc bằng tổ hợp phím. Sau đó chúng tôi in +30 livesvà phát tệp âm thanh. Và drawchức năng là có để cập nhật liên tục keyTyped. Sau khi nhập mã Konami, sau đó không có gì khác được xuất ra và không có âm thanh nào được phát.

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

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

Hãy thử nó ở đây!

Điều này phụ thuộc vào tiếng chuông (ascii 7) cho tiếng ồn ở cuối (không nghe thấy trên trình thông dịch trực tuyến).

Cảm ơn @TealPelican đã lưu thêm 15 byte!

Đã lưu hai byte kiểm tra BAthay vì BABA.

C 119 -1 - 2 = 116 byte

Chơi gôn

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

Ung dung

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

Xếp chồng lên nhau , 41 byte

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

Đọc đầu vào từ bàn phím.

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

Sau khi chạy tập lệnh này, nó sẽ kiểm tra xem 10 phím tiếp theo có phải là mã Konami hay không và nếu có, nó sẽ hiển thị hộp thông báo có nội dung "+30 cuộc sống" và nó sẽ phát ra tiếng bíp (Bây giờ tôi không có loa để kiểm tra ).

GNU sed, 32 25 + 1 = 33 26 byte

+1 byte cho -ncờ.

/UUDDLRLRBA$/a+30 Lives\a

Hãy thử trực tuyến!

Giải trình

Mỗi lần nhấn enter ( $), chương trình sẽ kiểm tra xem 10 lần nhấn phím trước đó có phải là mã không. Nếu có, alệnh sẽ xếp hàng văn bản +30 Livesvà âm thanh chuông ( \a) sẽ được in ở cuối chu kỳ hiện tại (trong trường hợp này là ngay lập tức).

Toán học, 50 byte

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

Ban đầu, xchỉ là một biểu tượng và do đó không giống ( =!=) với biểu tượngUUDDLRLRBA , do đó x=Input[]được đánh giá. Điều này sẽ mở một hộp thoại với con trỏ đã có trong trường nhập, vì vậy người dùng có thể bắt đầu gõ ngay trên bàn phím.

Nếu Enterđược nhấn hoặc OKđược bấm mà không cần gõ bất cứ thứ gì, thì nó InputField[]sẽ trở lại Null, không giống vớiUUDDLRLRBA , do đó vòng lặp tiếp tục và một hộp thoại khác sẽ được mở.

Nếu người dùng nhấp Cancelhoặc thoát khỏi hộp thoại, sau đó InputFieldsẽ trả lại $Canceled, cũng không giống vớiUUDDLRLRBA , vì vậy vòng lặp sẽ tiếp tục.

Người dùng có thể gõ vào hộp thoại theo mong muốn của trái tim họ. Khi họ nhấn Enter, đầu vào của họ được hiểu là một biểu thức ngôn ngữ Wolfram (có thể chỉ là các hộp). Nếu biểu hiện đó là bất cứ điều gì khác ngoài biểu tượngUUDDLRLRBA , vòng lặp sẽ tiếp tục.

"Phải lặp cho đến khi mã Konami được nhập" hơi mơ hồ, nhưng tôi tin rằng điều này thỏa mãn nó. Khi Whilevòng lặp được hoàn thành , .Beep[];"+30 lives"

Máy tính Petit BASIC, 91 byte

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

Cuối cùng, một giải pháp thực sự sử dụng đầu vào bộ điều khiển!

Tôi đã sử dụng máy tính Petit thay vì phiên bản mới hơn (SmileBASIC) vì nó có quyền truy cập vào nút Bắt đầu và BTRIG()ngắn hơn BUTTON().

Tôi đã thay thế chuỗi dữ liệu bằng x, nó nên chứa các ký tự có mã ascii 1,1,2,2,4,8,4,8,32,16

Phiên bản nhàm chán, 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()}

nhập gửi chuỗi cho Read-Host, vì vậy nó nên .. làm việc?

C # (phiên bản nhàm chán), 80 byte

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

C # (Điều thú vị), 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();}}

Tôi nghĩ rằng điều này hoạt động, đáng buồn là những người kiểm tra trực tuyến không hỗ trợ sự tồn tại của đầu vào giao diện điều khiển, vì vậy tôi sẽ phải thực hiện các bài kiểm tra tôi đã thực hiện

Rất có thể có thể được chơi golf rất nhiều - Tôi không tuyệt vời ở đây! :)

Ung dung:

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

Kỳ quan , 50 byte

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

Thay thế •bằng ký tự của mã \x07(char control control). Đưa đầu vào thông qua STDIN.

flex, 37 + 5 = 42 byte

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

Bản thân mã là 37 byte, biên dịch nó với tùy chọn "-main" có thêm 5 byte. Đương nhiên, bạn phải biên dịch tệp C kết quả với trình biên dịch C yêu thích của bạn, nhưng tôi không nghĩ rằng bước đó nên được tính vào số byte.

Tôi có thể tiết kiệm một byte bằng cách sử dụng ký tự BEL theo nghĩa đen thay vì \a, nhưng tôi muốn đọc mã của riêng mình hơn.

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

Giải trình:

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

Hãy thử trực tuyến!

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