Introducción

Hace unos días necesitaba un metrónomo para algo. No tenía ninguno disponible, así que descargué una aplicación de la App Store. ¡La aplicación tenía un tamaño de 71 MB!
71 MB para hacer tic-toc ...?!
Así que el código de golf vino a mi mente y me preguntaba si algunos de ustedes podrían mejorar esto.

Reto

Golf un código que emite algo de sonido. Es bastante irrelevante qué tipo de sonido. Si es necesario, cree un archivo de sonido ... pero un pitido del sistema también hará el trabajo. ( Aquí hay un sonido que creé ... nada especial ) .

Entrada : los latidos por minuto que sale el metrónomo.

Ejemplo

¡Esta es una versión Java sin golf! Es solo para mostrarte la tarea.

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

    }
  }
}

Reglas

No puede usar bibliotecas externas, solo se permiten herramientas del lenguaje en sí.
Solo los bytes del código fuente cuentan ... no el archivo de sonido.

Este es el código de golf , por lo que gana el envío con la menor cantidad de bytes.

EDITAR:

Ejemplo de salida: Entonces, algo como esto sería la salida para 120 bps : enlace

Mathematica, 26 bytes

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

Donormalmente se usa como un bucle "for" en el sentido más estricto: repita este fragmento de código para cada uno ide xa y... o incluso simplemente repita este fragmento de código nveces. Sin nembargo, en lugar de un número , podemos darle infinito para crear un bucle infinito. El cuerpo del bucle Pause[Beep[];60/#]es, simplemente, una forma de escribir de golf Beep[];Pause[60/#]donde #está el argumento de la función.

Si es admisible que la solución explote la pila de llamadas eventualmente, podemos guardar un byte con una solución recursiva:

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

Pyth, 11 10 9 bytes

Gracias a Adnan por recordármelo #.

#C7.dc60Q

Forever ( #), imprime el Ccódigo har 7. Luego duerme ( .d) 60segundos dividido por ( c) input ( Q).

JavaScript, 36 45 42 41 34 bytes

Guardado 1 byte gracias a @RikerW

Guardado 1 byte gracias a @ETHproductions

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

Esta es una función.

Si lo uso `\7`, SpiderMonkey se queja de que los literales octales están en desuso.

Alternativa, 31 bytes

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

El problema es que los no imprimibles se eliminan pero esto debería funcionar.

Bash, 53 55 41 bytes

Gracias a @Dennis por reducir 14 bytes ¹

De acuerdo, la verdad: soy terrible jugando al golf. Cualquier ayuda sería muy apreciada.

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

¹ Santa mierda. No es de extrañar que nadie pueda superar a Dennis.

JavaScript ES6 (navegador), 43 bytes

Esto puede estar estirando las reglas:

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

Asigne un nombre a esta función (p F=x=>.... Ej. ) E ingrésela en la consola del navegador en esta página . Luego llame a la función con su bps, por ejemplo F(60), y espere a que ocurra la magia. :-)

¿Por qué funciona esto? Bien,b.html está en la misma carpeta que un archivo llamado 1, que es el archivo de sonido de muestra del OP. No estoy seguro de si esto está dentro de las reglas (supongo que es como la versión de shell; necesita ejecutarse en un entorno específico), pero valió la pena intentarlo.

Versión más segura, 57 bytes.

Si el código anterior no está permitido por alguna razón, intente esto en su lugar:

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

Funciona en cualquier página!

05AB1E , 31 bytes

Código:

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

Si tuviera un incorporado para esperar N segundos, esto podría haber sido de 11 bytes. Por desgracia, este no es el caso. Aquí está la explicación:

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

Utiliza la codificación ISO 8859-1.

osascript, 39 bytes

on run a
repeat
beep
delay 60/a
end
end

¿Hay literalmente un comando llamado pitido? Sweeeet!

Ejecutable solo en Mac OS X debido a una licencia restringida, pero para ejecutar, haga:

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

Python, 68 67 57 bytes

Guardado 1 byte gracias a @FlagAsSpam

Guardado 9 bytes gracias a @Adnan

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

También tomó 2 bytes menos después de convertir las terminaciones de línea al formato UNIX.

Versión anterior, que realmente toma bpm como argumento de línea de comando (66 bytes):

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

AutoIt , 56 bytes

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

Vitsy, 14 bytes

a6*r/V1m
<wVO7

Modo detallado (intérprete próximamente):

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;

Básicamente, uso el woperador para esperar una cierta cantidad de segundos según lo especificado por bpm/60, envuelto en un bucle infinito. Luego, hago ruido con la salida del terminal del carácter ASCII 7 ( BEL).

C #, 118 bytes

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

Solución básica

Java, 103 82 bytes

¡Gracias a @Justin por reducir 21 bytes!

Oh cielos.

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

Método y versión de golf del programa de muestra.

GMC-4 Machine Code, 21.5 bytes

El GMC-4 es una computadora de 4 bits de una compañía llamada Gakken para enseñar los principios del lenguaje ensamblador en un conjunto de instrucciones simplificado y una computadora. Esta rutina toma entrada en direcciones de memoria de datos a 0x5Dtravés de0x5F , en decimal big-endian (es decir, un dígito por mordisco).

El algoritmo consiste básicamente en agregar la entrada a la memoria y esperar 0.1s, hasta que sea al menos 600, y luego restar 600 y emitir un pitido, en un bucle infinito. Dado que el GMC-4 tiene un montón de funciones de intercambio de registros pero ninguna copia de registro funciones de , esto se hace de la manera difícil.

En hexadecimal (la segunda línea es la posición en la memoria):

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

En asamblea:

    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

Renuncia:

En realidad no tengo un GMC-4. He revisado meticulosamente este programa con documentación en línea, pero es posible que haya cometido un error. Tampoco sé el endianness. Parece que el GMC-4 es big endian, pero no estoy seguro. Si alguien posee un GMC-4 y puede verificar esto / dime la resistencia del GMC-4, lo agradecería mucho.

C, 48 bytes

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

Una solución solo para Windows (función Sleep (), para ser específicos).

También (ab) usé el hecho de que printf () devuelve el número de caracteres impresos para usarlo como condición de bucle infinito.

Hay un carácter entre comillas dobles en la llamada printf (), pero no se muestra aquí por alguna razón. En caso de duda, copie y pegue en Sublime Text 2 o Notepad ++, el carácter se mostrará comoBEL .

Esto comenzó como una solución de C ++, pero cayó en el subconjunto C de C ++ (porque, ya sabes, Sleep()es un poco más corto que std::this_thread::sleep_for(std::chrono::milliseconds())) y printf()es más corto que std::cout<<).

AppleScript 94 bytes

Sé que llego bastante tarde, y esta es mi primera publicación aquí, pero lo que sea.

muestra el cuadro de diálogo "" respuesta predeterminada ""
establezca x en 60000 / se devuelve el texto del resultado
repetir
bip
retraso x
fin

Sin golf:

muestra el cuadro de diálogo "" respuesta predeterminada ""
establece x en 60000 / (se devuelve el texto del resultado)
repetir
    bip
    retraso x
final repetir

VBScript, 113 66 bytes

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

Este programa es lo suficientemente simple; toma entrada, hace eco del carácter BEL y espera. ¡Gracias a Niel por reducir casi la mitad del programa!

Ruby, 37 33 bytes

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

Pretty straightforward.

This is a lambda function. If you wanted 60 bpm, you'd do: m[60].

Japt, 30 bytes

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

The ? should be the literal byte 9A. Test it online! (Sorry about the pop-up delaying the first few beats; this will be removed soon.)

How it works

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 bytes

R I F  H 60/I W *7

Read the BPM into variable I, then F {with two spaces after} is an infinate loop. Halt for 60 seconds / BPM, then write $CHR(7) {Ascii: BEL} to standard output, giving the audio output required, then restart at the infinite loop.

Java, 321 chars

Sounds very good. Works only on systems with MIDI support.

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 bytes

White noise that is turned on and off every two ticks.

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

Explanation

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

This is made to turn on the sound on a beat, then turn it off on the beat after.

98 93 byte version (fancier)

White noise played for 10 milliseconds per tick.

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

This is made to be a click instead of constant noise being turned on and off.

Perl 5, 36 bytes

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

A subroutine; use it as

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

Jolf, 7 bytes, noncompeting

I added sounds after this very fine challenge was made.

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)

If you so desire to clear this sound, take note of the output. Say that number is x. Execute another Jolf command ~CP"x", and the interval will be cleared.

Zsh, 32 bytes

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

Based on the leading bash answer, but sources instead of execs. The TIO link sources $0:a because of how the original file is executed, but it will work without it.

Try it online!

Bash + bc + ><>, 44 bytes

Playing on the fact that the ><> interpreter lets you define a tick time :

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

The ><> code is 7o and should output the BEL character, producing a system beep. It will loop until interrupted.
The -t value is set to (2 / RPM ) / 60 so that the whole code is played RPM * 60 times per second.

SmileBASIC, 26 bytes

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

It can play any general midi instrument, though anything above 9 will use more bytes.

Stax, 17 bytes

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

or, unpacked:

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

The program outputs bytes that, when fed through the command line tool aplay with default setting, produce a metronome noise. The input is used as bpm

example:

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

You should hear a horrible beeping noise at the desired bpm