pengantar

Beberapa hari yang lalu saya membutuhkan metronom untuk sesuatu. Saya tidak punya satu pun jadi saya mengunduh aplikasi dari App Store. Aplikasi ini memiliki ukuran 71 MB !!!
71 MB untuk membuat tic-toc ...?!
Jadi kode-golf muncul di benak saya dan saya bertanya-tanya apakah beberapa dari kalian bisa memperbaiki ini.

Tantangan

Golf beberapa kode yang menghasilkan suara. Suara apa yang agak tidak relevan. Jika diperlukan buat beberapa file suara ... tetapi bip Sistem akan melakukan pekerjaan dengan baik. ( Ini beberapa suara yang saya buat ... tidak ada yang istimewa. )

Input : Detak per menit output metronom.

Contoh

Ini adalah versi Java non-golf! Hanya untuk menunjukkan tugasnya kepada Anda.

public class Metronome {
  public static void main(String[] args) throws InterruptedException {
    int bpm = Integer.valueOf(args[0]);
    int interval = 60000 / bpm;

    while(true) {
        java.awt.Toolkit.getDefaultToolkit().beep();
        // or start playing the sound
        Thread.sleep(interval);
        System.out.println("Beep!");

    }
  }
}

Aturan

Anda tidak boleh menggunakan perpustakaan eksternal, hanya alat bahasa itu sendiri yang diperbolehkan.
Hanya byte dari kode sumber yang dihitung ... bukan file suara.

Ini adalah kode-golf , jadi pengiriman dengan jumlah byte paling sedikit menang!

EDIT:

Contoh output: Jadi sesuatu seperti ini akan menjadi output untuk tautan 120 bps :

Mathematica, 26 byte

Pause[Beep[];60/#]~Do~∞&

Dobiasanya digunakan sebagai "untuk" loop dalam arti tersempit: ulangi potongan kode ini untuk masing-masing idari xke y... atau bahkan hanya mengulangi potongan kode ini nkali. Alih-alih angka nkita bisa memberikannya tanpa batas meskipun untuk membuat loop tak terbatas. Tubuh loop adalah Pause[Beep[];60/#]yang hanya cara golf di Beep[];Pause[60/#]mana #argumen fungsi.

Jika solusi yang diterima untuk meledakkan tumpukan panggilan pada akhirnya, kita dapat menyimpan satu byte dengan solusi rekursif:

#0[Beep[];Pause[60/#];#]&

Pyth, 11 10 9 byte

Terima kasih kepada Adnan untuk mengingatkan saya tentang #.

#C7.dc60Q

Forever ( #), cetak Ckode har 7. Kemudian sleep ( .d) 60detik dibagi dengan ( c) input ( Q).

JavaScript, 36 45 42 41 34 byte

Disimpan 1 byte berkat @RikerW

Disimpan 1 byte berkat @ETHproductions

n=>{for(;;sleep(60/n))print("\7")}

Ini sebuah fungsi.

Jika saya menggunakan `\7`, SpiderMonkey mengeluh literal oktal sudah usang.

Alternatif, 31 byte

n=>{for(;;sleep(60/n))print``}

Masalahnya adalah unsintables dilucuti tetapi ini harus bekerja.

Bash, 53 55 41 byte

Terima kasih kepada @Dennis karena mencukur 14 byte ¹

Oke, waktu yang tepat: Aku payah bermain golf. Bantuan apa pun akan sangat dihargai.

echo " ";sleep `bc -l<<<60/$1`;exec $0 $1
      ^ That's ASCII char 7

¹ sial. Tidak heran tidak ada yang bisa mengalahkan Dennis.

JavaScript ES6 (browser), 43 byte

Ini mungkin memperluas aturan:

x=>setInterval('new Audio(1).play()',6e4/x)

Beri nama fungsi ini (misalnya F=x=>...) dan masukkan di konsol browser di halaman ini . Kemudian panggil fungsi dengan bps Anda, mis. F(60), Dan tunggu keajaiban terjadi. :-)

Mengapa ini bekerja? Nah, b.htmlada di folder yang sama dengan file bernama 1, yang merupakan file sampel suara dari OP. Saya tidak yakin apakah ini sesuai aturan (saya kira itu seperti versi shell; perlu dijalankan di lingkungan tertentu), tetapi layak dicoba.

Versi lebih aman, 57 byte

Jika kode di atas tidak diizinkan karena alasan tertentu, coba ini sebagai gantinya:

x=>setInterval('new Audio("//ow.ly/Xrnl1").play()',6e4/x)

Bekerja pada halaman mana saja!

05AB1E , 31 byte

Kode:

I60s/[7ç?D.etime.sleep(#.pop())

Jika saya memiliki built-in untuk menunggu N detik, ini bisa jadi 11 byte. Sayangnya, ini bukan masalahnya. Berikut penjelasannya:

I                               # Push input
 60                             # Push 60
   s                            # Swap the top 2 items
    /                           # Divide the top 2 items
     [                          # Infinite loop
      7ç                        # Push the character \x07
        ?                       # Output it, which give a sound
         .e                     # Evaluate the following as Python code
           time.sleep(       )  # Wait for N seconds
                      #         # Short for stack
                       .pop()   # Pop the last item

Menggunakan penyandian ISO 8859-1.

naskah, 39 byte

on run a
repeat
beep
delay 60/a
end
end

Ada secara harfiah perintah yang disebut bip? Sweeeet!

Runnable hanya pada Mac OS X karena lisensi terbatas, tetapi untuk menjalankan, lakukan:

osascript -e "on run a
repeat
beep
delay 60/a
end
end" bpm

Python, 68 67 57 byte

Disimpan 1 byte berkat @FlagAsSpam

Disimpan 9 byte berkat @Adnan

import time
a=input()
while 1:print"\7";time.sleep(60./a)

Juga butuh 2 byte lebih sedikit setelah mengkonversi akhir baris ke format UNIX.

Versi yang lebih lama, yang sebenarnya menggunakan bpm sebagai argumen baris perintah (66 byte):

import sys,time
while 1:print"\7";time.sleep(60./int(sys.argv[1]))

Otomatis , 56 byte

Func _($0)
While Sleep(6e4/$0)
Beep(900,99)
WEnd
EndFunc

Vitsy, 14 byte

a6*r/V1m
<wVO7

Mode Verbose (juru bahasa segera hadir):

0:                              // a6*r/V1m
push a; // 10
push 6;
multiply top two; // 60
reverse stack; // bpm on top
divide top two; // bpm/60
save/push permanent variable; 
push 1;
goto top method; // goes to 1
1:                              // <wVO7
go backward; // infinite loop, from the bottom of 1
wait top seconds;
save/push permanent variable; // pushes the bpm in terms of seconds of delay
output top as character;
push 7;

Pada dasarnya, saya menggunakan woperator untuk menunggu sejumlah detik seperti yang ditentukan oleh bpm/60, terbungkus dalam infinite loop. Kemudian, saya membuat noise dengan output terminal karakter ASCII 7 ( BEL).

C #, 118 byte

class A{static int Main(string[]a){for(;;System.Threading.Thread.Sleep(60000/int.Parse(a[0])))System.Console.Beep();}}

Solusi dasar.

Java, 103 82 byte

Terima kasih kepada @Justin karena telah memangkas 21 byte!

Ya ampun.

void x(int b)throws Exception{for(;;Thread.sleep(60000/b))System.out.print('\7');}

Metode dan versi sampel program golf.

Kode Mesin GMC-4 , 21,5 byte

GMC-4 adalah komputer 4-bit oleh sebuah perusahaan bernama Gakken untuk mengajarkan prinsip-prinsip bahasa assembly dalam set instruksi dan komputer yang disederhanakan. Rutin ini mengambil input alamat memori data 0x5Dmelalui0x5F , dalam desimal big-endian (yaitu, satu digit per gigitan).

Algoritma ini pada dasarnya menambahkan input ke memori dan menunggu 0,1s, sampai setidaknya 600, dan kemudian mengurangi 600 dan berbunyi bip, dalam loop tak terbatas. Karena GMC-4 memiliki banyak fungsi swap register tetapi tidak ada fungsi copy register , ini dilakukan dengan cara yang sulit.

Dalam hex (baris kedua adalah posisi di memori):

A24A14A04 80EC AF5A2EF AE5A1EF AD5A0EF 8A6 F2AF09 86ADEEE9F09
012345678 9ABC DEF0123 4567890 ABCDEF0 123 456789 ABCDEF01234

Dalam perakitan:

    tiy 2     ;ld y, 0x2
    AM        ;ld a, [0x50 + y]
    tiy 1
    AM
    tiy 0
    AM
start:
    tia 0     ;ld a, 0x0
    cal timr  ;pause for (a+1)*0.1 seconds
    tiy F
    MA        ;ld [0x50 + y], a
    tiy 2
    cal DEM+  ;add a to [0x50 + y]; convert to decimal and carry.
    tiy E     ;do the same for the second digit
    MA
    tiy 1
    cal DEM+
    tiy D     ;and the third.
    MA
    tiy 0
    cal DEM+
    tia A
    M+
    jump beep
    jump start
beep:
    tia 6
    tiy D
    cal DEM-
    cal SHTS  ;'play short sound'
    jump start

Penolakan:

Saya sebenarnya tidak memiliki GMC-4. Saya telah dengan cermat memeriksa program ini dengan dokumentasi dari online, tetapi saya mungkin telah melakukan kesalahan. Saya juga tidak tahu endianness. Sepertinya GMC-4 adalah big-endian, tapi saya tidak yakin. Jika ada yang memiliki GMC-4 dan dapat memverifikasi ini / katakan padaku endianness dari GMC-4, saya akan sangat menghargainya.

C, 48 byte

void f(int b){while(printf(""))Sleep(60000/b);}
                            ^ literal 0x07 here

Solusi khusus Windows (fungsi Sleep (), lebih spesifik).

Saya juga (ab) menggunakan fakta bahwa printf () mengembalikan jumlah karakter yang dicetak untuk menggunakannya sebagai kondisi loop tak terbatas.

ADA karakter antara tanda kutip ganda dalam panggilan printf (), tetapi tidak ditampilkan di sini untuk beberapa alasan. Jika ragu, salin dan tempel ke Sublime Text 2 atau Notepad ++, karakter akan ditampilkan sebagai BEL.

Ini dimulai sebagai solusi C ++ tetapi agak jatuh ke dalam C-subset dari C ++ (karena, Anda tahu, Sleep()sedikit lebih pendek dari std::this_thread::sleep_for(std::chrono::milliseconds())) dan printf()lebih pendek dari std::cout<<).

AppleScript 94 byte

Saya tahu saya sangat terlambat, dan ini adalah posting pertama saya di sini, tetapi apa pun itu.

tampilkan dialog "" jawaban default ""
set x ke 60000 / teks hasil dikembalikan
ulangi
berbunyi
menunda x
akhir

Tidak Disatukan:

tampilkan dialog "" jawaban default ""
set x ke 60000 / (teks hasil dikembalikan)
ulangi
    berbunyi
    menunda x
dan ulangi

VBScript, 113 66 byte

a=InputBox("")
Do
WScript.Echo(Chr(7))
WScript.Sleep(60000/a)
Loop

Program ini cukup sederhana; dibutuhkan input, gema karakter BEL, dan menunggu. Terima kasih kepada Niel karena telah mencukur hampir setengah dari program!

Ruby, 37 33 byte

m=->b{loop{puts"\7"
sleep 6e1/b}}

Cukup mudah.

Ini adalah fungsi lambda. Jika Anda ingin 60 bpm, Anda akan melakukan: m[60].

Japt, 30 byte

6e4/U i`?w Au¹o('../1').play()

The ?harus menjadi byte literal 9A. Uji secara online! (Maaf tentang pop-up yang menunda beberapa ketukan pertama; ini akan segera dihapus.)

Bagaimana itu bekerja

6e4/U i"new Audio('../1').play()  // Implicit: U = input bps
6e4/U                             // Calculate 60000 / U.
      i                           // Set a timed event every that many milliseconds,
       "new Audio('../1').play()  // running this code every time.
                                  // ../1 is the path to the file used in my JS entry.

Mumps, 18 byte

R I F  H 60/I W *7

Baca BPM ke dalam variabel I, maka F {dengan dua spasi setelah} adalah infinate loop. Hentikan selama 60 detik / BPM, kemudian tulis $ CHR (7) {Ascii: BEL} ke output standar, berikan output audio yang diperlukan, kemudian mulai kembali pada infinite loop.

Java, 321 karakter

Kedengarannya sangat bagus. Hanya bekerja pada sistem dengan dukungan MIDI.

import javax.sound.midi.*;import java.util.*;class A{public static void main(String[] a) throws Exception{int d=new Scanner(System.in).nextInt();Synthesizer b=MidiSystem.getSynthesizer();b.open();MidiChannel c=b.getChannels()[0];c.programChange(116);while(true){c.noteOn(0,100);Thread.sleep((int)(d/.06));c.noteOff(0);}}}

.

ChucK , 90 byte

Kebisingan putih yang dinyalakan dan dimatikan setiap dua kutu.

60./Std.atoi(me.arg(0))*1000=>float s;while(1){Noise b=>dac;s::ms=>now;b=<dac;s::ms=>now;}

Penjelasan

60./Std.atoi(me.arg(0)) //Convert the input to an int and divide 60 by it
*1000                   //Multiply by 1000 (in order to avoid s::second)
=>float s;              //Store it as a float in variable s
while(1)                //Forever,
{Noise b=>dac;          //Connect a noise generator b to the audio output
s::ms=>now;             //Wait for s milliseconds
b=<dac;                 //Disconnect b from the audio output
s::ms=>now;}            //Wait for s milliseconds

Ini dibuat untuk menyalakan suara saat berdetak, kemudian mematikannya pada ketukan sesudahnya.

Versi 98 93 byte (peternak)

Kebisingan putih dimainkan selama 10 milidetik per centang.

60./Std.atoi(me.arg(0))*1000-9=>float s;while(1){Noise b=>dac;10::ms=>now;b=<dac;s::ms=>now;}

Ini dibuat sebagai klik dan bukannya derau konstan dihidupkan dan dimatikan.

Perl 5, 36 byte

{{$|=print"\a";sleep 60/$_[0];redo}}

Subrutin; gunakan sebagai

sub{{$|=print"\a";sleep 60/$_[0];redo}}->(21)

Jolf, 7 byte, tidak bersaing

Saya menambahkan suara setelah tantangan yang sangat halus ini dibuat.

TΑa/Αaj
T       set an interval
 Αa      that plays a short beep (Α is Alpha)
   /Αaj  every 60000 / j (the input) seconds. (Αa returns 60000)

Jika Anda ingin menghapus suara ini, perhatikan hasilnya. Katakan nomor itu x. Jalankan perintah Jolf yang lain ~CP"x", dan intervalnya akan dihapus.

Zsh , 32 byte

<<<$'\a'
sleep $[60./$1]
. $0 $1

Berdasarkan jawaban bash terkemuka, tetapi sourcebukan execs. Sumber TIO sumber $0:akarena bagaimana file asli dieksekusi, tetapi itu akan bekerja tanpa itu.

Cobalah online!

Bash + bc + > <> , 44 byte

Bermain dengan fakta bahwa juru <>> memungkinkan Anda menentukan waktu centang:

python fish.py -t $(bc -l<<<"2/$1/60") -c 7o

Kode> <> adalah 7odan harus menampilkan BELkarakter, menghasilkan bunyi bip sistem. Ini akan berulang sampai terputus.
The -tnilai diatur ke (2 / RPM) / 60 sehingga seluruh kode dimainkan RPM * 60 kali per detik.

SmileBASIC, 26 byte

INPUT B$BGMPLAY@8T+B$+"[C]

Itu dapat memainkan instrumen midi umum, meskipun apa pun di atas 9 akan menggunakan lebih banyak byte

Stax, 17 byte

ü7»♥O╚⌂╥☻≈OyM╜Δ∩`

atau, dibongkar:

4|A48*x/W2|A]pc{| }*

Program menghasilkan byte yang, ketika diumpankan melalui aplay alat baris perintah dengan pengaturan default, menghasilkan suara metronom. Input digunakan sebagai bpm

contoh:

example-stax-interpreter metronome.stax -i "60" | aplay

Anda harus mendengar bunyi bip mengerikan pada bpm yang diinginkan