Esse é um desafio bastante simples, mas não consegui encontrar nenhuma pergunta realmente parecida. O desafio é obter uma frequência no uso de STDIN ou equivalente e emitir um tom que corresponda a essa frequência, em Hz, por 5 segundos. Por exemplo

Input: 400
Output: (a tone of 400 Hz with a duration of 5 seconds)

Regras

• A entrada deve ser recebida através do STDIN, ou equivalente do seu idioma
• A resposta deve ser um programa completo
• Builtins podem ser usados
• A frequência estará em qualquer lugar entre 50 - 5000 Hz
• A saída deve ser reproduzida por 5 segundos
• A saída deve estar na forma de uma onda senoidal

Casos de teste

Entrada: 440

Saída:

Entrada: 200

Saída:

Entrada: 4000

Saída:

• Não se trata de encontrar o idioma com a solução mais curta para isso (existem algumas onde o programa vazio faz o truque) - trata-se de encontrar a solução mais curta em todos os idiomas. Portanto, nenhuma resposta será marcada como aceita.

• Diferentemente de nossas regras usuais, fique à vontade para usar um idioma (ou versão do idioma), mesmo que seja mais novo que esse desafio. Os idiomas escritos especificamente para enviar uma resposta de 0 byte a esse desafio são um jogo justo, mas não particularmente interessante.

  Observe que deve haver um intérprete para que o envio possa ser testado. É permitido (e até encorajado) escrever esse intérprete para um idioma anteriormente não implementado.

  Observe também que as línguas que têm a cumprir os nossos critérios usuais para linguagens de programação .

Catálogo

O snippet de pilha na parte inferior desta postagem gera o catálogo a partir das respostas a) como uma lista da solução mais curta por idioma eb) como uma tabela geral de líderes.

Para garantir que sua resposta seja exibida, inicie-a com um título, usando o seguinte modelo de remarcação:

## Language Name, N bytes

onde Nestá o tamanho do seu envio. Se você melhorar sua pontuação, poderá manter as pontuações antigas no título, identificando-as. Por exemplo:

## Ruby, <s>104</s> <s>101</s> 96 bytes

Se você quiser incluir vários números no cabeçalho (por exemplo, porque sua pontuação é a soma de dois arquivos ou você deseja listar as penalidades do sinalizador de intérpretes separadamente), verifique se a pontuação real é o último número no cabeçalho:

## Perl, 43 + 2 (-p flag) = 45 bytes

Você também pode transformar o nome do idioma em um link que será exibido no snippet:

## [><>](http://esolangs.org/wiki/Fish), 121 bytes

<style>body { text-align: left !important} #answer-list { padding: 10px; width: 290px; float: left; } #language-list { padding: 10px; width: 290px; float: left; } table thead { font-weight: bold; } table td { padding: 5px; }</style><script src="https://ajax.googleapis.com/ajax/libs/jquery/2.1.1/jquery.min.js"></script> <link rel="stylesheet" type="text/css" href="//cdn.sstatic.net/codegolf/all.css?v=83c949450c8b"> <div id="language-list"> <h2>Shortest Solution by Language</h2> <table class="language-list"> <thead> <tr><td>Language</td><td>User</td><td>Score</td></tr> </thead> <tbody id="languages"> </tbody> </table> </div> <div id="answer-list"> <h2>Leaderboard</h2> <table class="answer-list"> <thead> <tr><td></td><td>Author</td><td>Language</td><td>Size</td></tr> </thead> <tbody id="answers"> </tbody> </table> </div> <table style="display: none"> <tbody id="answer-template"> <tr><td>{{PLACE}}</td><td>{{NAME}}</td><td>{{LANGUAGE}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table> <table style="display: none"> <tbody id="language-template"> <tr><td>{{LANGUAGE}}</td><td>{{NAME}}</td><td>{{SIZE}}</td><td><a href="{{LINK}}">Link</a></td></tr> </tbody> </table><script>var QUESTION_ID = 63967; var ANSWER_FILTER = "!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe"; var COMMENT_FILTER = "!)Q2B_A2kjfAiU78X(md6BoYk"; var OVERRIDE_USER = 39060; var answers = [], answers_hash, answer_ids, answer_page = 1, more_answers = true, comment_page; function answersUrl(index) { return "//api.stackexchange.com/2.2/questions/" + QUESTION_ID + "/answers?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + ANSWER_FILTER; } function commentUrl(index, answers) { return "//api.stackexchange.com/2.2/answers/" + answers.join(';') + "/comments?page=" + index + "&pagesize=100&order=desc&sort=creation&site=codegolf&filter=" + COMMENT_FILTER; } function getAnswers() { jQuery.ajax({ url: answersUrl(answer_page++), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { answers.push.apply(answers, data.items); answers_hash = []; answer_ids = []; data.items.forEach(function(a) { a.comments = []; var id = +a.share_link.match(/\d+/); answer_ids.push(id); answers_hash[id] = a; }); if (!data.has_more) more_answers = false; comment_page = 1; getComments(); } }); } function getComments() { jQuery.ajax({ url: commentUrl(comment_page++, answer_ids), method: "get", dataType: "jsonp", crossDomain: true, success: function (data) { data.items.forEach(function(c) { if (c.owner.user_id === OVERRIDE_USER) answers_hash[c.post_id].comments.push(c); }); if (data.has_more) getComments(); else if (more_answers) getAnswers(); else process(); } }); } getAnswers(); var SCORE_REG = /<h\d>\s*([^\n,<]*(?:<(?:[^\n>]*>[^\n<]*<\/[^\n>]*>)[^\n,<]*)*),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/; var OVERRIDE_REG = /^Override\s*header:\s*/i; function getAuthorName(a) { return a.owner.display_name; } function process() { var valid = []; answers.forEach(function(a) { var body = a.body; a.comments.forEach(function(c) { if(OVERRIDE_REG.test(c.body)) body = '<h1>' + c.body.replace(OVERRIDE_REG, '') + '</h1>'; }); var match = body.match(SCORE_REG); if (match) valid.push({ user: getAuthorName(a), size: +match[2], language: match[1], link: a.share_link, }); else console.log(body); }); valid.sort(function (a, b) { var aB = a.size, bB = b.size; return aB - bB }); var languages = {}; var place = 1; var lastSize = null; var lastPlace = 1; valid.forEach(function (a) { if (a.size != lastSize) lastPlace = place; lastSize = a.size; ++place; var answer = jQuery("#answer-template").html(); answer = answer.replace("{{PLACE}}", lastPlace + ".") .replace("{{NAME}}", a.user) .replace("{{LANGUAGE}}", a.language) .replace("{{SIZE}}", a.size) .replace("{{LINK}}", a.link); answer = jQuery(answer); jQuery("#answers").append(answer); var lang = a.language; lang = jQuery('<a>'+lang+'</a>').text(); languages[lang] = languages[lang] || {lang: a.language, lang_raw: lang.toLowerCase(42), user: a.user, size: a.size, link: a.link}; }); var langs = []; for (var lang in languages) if (languages.hasOwnProperty(lang)) langs.push(languages[lang]); langs.sort(function (a, b) { if (a.lang_raw > b.lang_raw) return 1; if (a.lang_raw < b.lang_raw) return -1; return 0; }); for (var i = 0; i < langs.length; ++i) { var language = jQuery("#language-template").html(); var lang = langs[i]; language = language.replace("{{LANGUAGE}}", lang.lang) .replace("{{NAME}}", lang.user) .replace("{{SIZE}}", lang.size) .replace("{{LINK}}", lang.link); language = jQuery(language); jQuery("#languages").append(language); } }</script>

QBasic, 18 bytes (desqualificado)

Como o @pabouk mencionado, ele usa o alto-falante do PC, então ele toca uma onda quadrada , não uma onda senoidal como o problema pede. (Esse requisito foi adicionado ao problema após a publicação desta resposta, daí os votos.) De qualquer forma, deixarei aqui para posteridade.

INPUT F
SOUND F,91

Tocar um som na frequência de entrada por 91 tiques, o que é igual a 5 segundos.

Python2, 40 bytes

from winsound import*
Beep(input(),5000)

Só funciona no Windows.

Mathematica, 42 bytes

Bem, se podemos usar built-ins ...

Input[]
EmitSound@Play[Sin[2t%Pi],{t,0,5}]

Graças ao requisito de um programa completo, foi a primeira vez que usei minha dica de golfe recentemente descoberta% (resultado da última avaliação) para salvar dois bytes.

O Mathematica também possui um built-in Soundque toma um tom e uma duração como argumentos, mas infelizmente o tom deve ser dado como uma nota musical. Especificar sua própria onda sonora via Playparece ser a única maneira de trabalhar com uma frequência.

C #, 80 bytes

class P{static void Main(string[]a){System.Console.Beep(int.Parse(a[0]),5000);}}

MATLAB, 36 bytes

sound(sin(pi*input('')*(0:8^-4:10)))

Obrigado ao flawr por salvar dois bytes.

PowerShell, 32 bytes

[console]::beep((read-host),5kb)

FakeASM , 12 bytes

RDA
BEEP 5e3

Funciona com a implementação de referência do Windows (download) . Ele chama a Beepfunção do Windows , que é uma onda senoidal nas plataformas modernas.

Bash + X11, 27 20 bytes

xset b 9 $1 5;echo 

Isso contém um imprimível, então aqui está um hexdump:

0000000: 7873 6574 2062 2039 2024 3120 353b 6563  xset b 9 $1 5;ec
0000010: 686f 2007                                ho .

Isso toma a frequência como argumento da linha de comando e emite o bipe apropriado em um volume de 9% (já que nenhum volume foi especificado).

(Nota: não foi possível testar isso devido a alguns problemas no meu computador, mas tenho 99% de certeza de que funciona.)

JavaScript, 114 bytes

p=prompt();c=new AudioContext;with(c.createOscillator()){frequency.value=p;connect(c.destination);start();stop(5)}

Requer um navegador de ponta, digite a frequência no prompt. JSFiddle

Utilitários Bash + Linux, 95

bc -l<<<"obase=16;for(;t<5;t+=1/8000){a=s($1*t*6.3);scale=0;a*30/1+99;scale=9}"|xxd -p -r|aplay

Esta é uma verdadeira onda senoidal. Nenhum sinal sonoro. Frequência de entrada inserida via linha de comando:

./hz.sh 440

Processando, 148 114 106 bytes

import processing.sound.*;
Engine.start().sinePlay(int(loadStrings("s")[0]),1,0,0,0);delay(5000);exit();

(Por algum motivo, o processamento requer o uso da instrução de importação e da nova linha, caso contrário, ela não reconhece a biblioteca.)

Ainda não descobri como passar argumentos para o Processing, apesar de saber que é possível, portanto esse código requer um arquivo chamado "s" na pasta de sketch que possui o valor de frequência. Se eu descobrir como passar argumentos, poderia substituir o carregamento de arquivos args[0].

VB.net, 90 bytes , 74 bytes

Module m
Sub Main(a() as String)
Console.Beep(a(0),5000)
End Sub
End Module

Graças a Sehnsucht

Module m
Sub Main()
Console.Beep(My.Application.CommandLineArgs.First,5000)
End Sub
End Module

Este é o meu primeiro post, então se eu fiz alguma coisa errada, por favor me avise

Turbo / Borland / Livre / GNU Pascal, 95 bytes

Devido a problemas com a função de atraso em computadores modernos (bem, qualquer coisa acima de 200 MHz) tentando executar o Turbo / Borland Pascal, isso pode não demorar 5 segundos, mesmo com uma biblioteca CRT corrigida

Program a;Uses crt;Var i,k:Integer;BEGIN Val(ParamStr(1),i,k);Sound(i);Delay(5000);NoSound;END.

A conversão String para Inteiro pode ser feita mais curta (77 bytes) no FreePascal e derivadas modernas, pois elas têm a StrToIntfunção:

Program a;Uses crt;BEGIN Sound(StrToInt(ParamStr(1)));Delay(5000);NoSound;END.

Perl, 27 bytes

Basicamente, uma versão Perl da resposta Python (também funciona apenas no Windows), se estivermos permitindo módulos.

use Audio::Beep;beep<>,5000

Vitsy + X11, 20 bytes

"5 "WX" 9 b tesx",7O

Uma tradução da minha resposta bash. Não funciona no intérprete online (obviamente).

Recebe a entrada como qualquer caractere não numérico seguido pela frequência (portanto, para uma entrada de 440 Hz, você pode fazer "a440").

Explicação

"5 "WX" 9 b tesx",7O
"5 "                   Push " 5"
    WX                 Reads input and removes the first character (which is used to force string context)
      " 9 b tesx"      Push "xset b 9 "
                 ,     Pop everything and execute as a shell command.
                  7O   Output bell char.

C com WinAPI, 82 bytes

#include<windows.h>
#include<stdio.h>
main(){int x;scanf("%i",&x);Beep(x,5000);}

Usa a função WinAPI Beep ().

Hássio , 38 bytes

func main()Console.beep(input(), 5000)

Shadertoy GLSL Som Shader, 86

#define F 440.0
vec2 mainSound(float t){return vec2(sin(6.3*F*t)*(t<5.0?1.0:0.0));}

"Entrada" é fornecida via #define. Emite uma onda senoidal com frequência aproximada de FHz. Arredondado 2 * Pi para 6,3, em vez de "padrão" 6,2831, mas parece praticamente o mesmo.

Infelizmente não há muito para jogar aqui.

Jolf, 4 bytes, não-competitivo

Essa adição de idioma veio após o desafio.

Αc5j
Αc     create a beep
  5     five seconds long
   j    with the input as a frequency

A onda padrão é uma onda senoidal.

SmileBASIC, 84 bytes

INPUT F
N=LOG(F/440,POW(2,1/12))+57BGMPLAY FORMAT$("@D%D@255T12N%D",(N-(N<<0))*63,N)

Converte de Hz para meio passo e toca uma certa nota com o valor a desafinar para produzir a frequência.