Dies ist eine ziemlich einfache Herausforderung, aber ich konnte keine Frage finden, die der wirklich ähnlich war. Die Herausforderung besteht darin, mit STDIN oder einem Äquivalent eine Frequenz einzugeben und dann 5 Sekunden lang einen Ton auszugeben, der mit dieser Frequenz in Hz übereinstimmt. Beispielsweise

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

Regeln

• Die Eingabe muss über STDIN oder die entsprechende Sprache erfolgen
• Die Antwort muss ein vollständiges Programm sein
• Builtins können verwendet werden
• Die Frequenz liegt zwischen 50 und 5000 Hz
• Die Ausgabe muss 5 Sekunden lang abgespielt werden
• Die Ausgabe muss in Form einer Sinuswelle erfolgen

Testfälle

Eingang: 440

Ausgabe:

Eingang: 200

Ausgabe:

Eingang: 4000

Ausgabe:

• Hier geht es nicht darum, die Sprache mit der kürzesten Lösung dafür zu finden (es gibt einige, bei denen das leere Programm den Trick macht) - hier geht es darum, die kürzeste Lösung in jeder Sprache zu finden. Daher wird keine Antwort als angenommen markiert.

• Im Gegensatz zu unseren üblichen Regeln können Sie auch dann eine Sprache (oder Sprachversion) verwenden, wenn diese neuer als diese Herausforderung ist. Sprachen, die speziell geschrieben wurden, um eine 0-Byte-Antwort auf diese Herausforderung zu senden, sind fair, aber nicht besonders interessant.

  Beachten Sie, dass ein Dolmetscher vorhanden sein muss, damit die Einreichung getestet werden kann. Es ist erlaubt (und sogar empfohlen), diesen Dolmetscher für eine zuvor nicht implementierte Sprache selbst zu schreiben.

  Beachten Sie auch , dass die Sprachen Sie müssen erfüllen unsere üblichen Kriterien für Programmiersprachen .

Katalog

Das Stapel-Snippet am Ende dieses Beitrags generiert den Katalog aus den Antworten a) als Liste der kürzesten Lösungen pro Sprache und b) als Gesamt-Bestenliste.

Um sicherzustellen, dass Ihre Antwort angezeigt wird, beginnen Sie Ihre Antwort mit einer Überschrift. Verwenden Sie dazu die folgende Markdown-Vorlage:

## Language Name, N bytes

Wo Nist die Größe Ihres Beitrags? Wenn Sie Ihren Score zu verbessern, Sie können alte Rechnungen in der Überschrift halten, indem man sich durch das Anschlagen. Zum Beispiel:

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

Wenn Sie mehrere Zahlen in Ihre Kopfzeile aufnehmen möchten (z. B. weil Ihre Punktzahl die Summe von zwei Dateien ist oder wenn Sie die Strafen für Interpreter-Flags separat auflisten möchten), stellen Sie sicher, dass die tatsächliche Punktzahl die letzte Zahl in der Kopfzeile ist:

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

Sie können den Namen der Sprache auch als Link festlegen, der dann im Snippet angezeigt wird:

## [><>](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 (disqualifiziert)

Wie @pabouk erwähnt, das die PC - Lautsprecher verwendet, so dass es eine spielt quadratische Welle, keine Sinuswelle wie das Problem fragt. (Diese Anforderung wurde zu dem Problem hinzugefügt, nachdem diese Antwort veröffentlicht wurde, daher die Abstimmungen.) Ich werde sie hier sowieso für die Nachwelt belassen.

INPUT F
SOUND F,91

Spielen Sie einen Sound mit der eingegebenen Frequenz für 91 Ticks, was 5 Sekunden entspricht.

Python2, 40 Bytes

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

Funktioniert nur unter Windows.

Mathematica, 42 Bytes

Nun, wenn wir integrierte Funktionen verwenden können ...

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

Durch die Forderung nach einem vollständigen Programm, war dies das erste Mal , ich hätte zu verwenden , meine vor kurzem entdeckt Golf Spitze des Verwendens% (Ergebnis der letzten Auswertung) zwei Bytes zu speichern.

Mathematica hat auch eine eingebaute Funktion, Sounddie eine Tonhöhe und eine Dauer als Argumente verwendet, aber leider muss die Tonhöhe als musikalische Note angegeben werden. Die Angabe einer eigenen Schallwelle über Playscheint die einzige Möglichkeit zu sein, mit einer Frequenz zu arbeiten.

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

Danke an flawr für das Speichern von zwei Bytes.

PowerShell, 32 Byte

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

FakeASM , 12 Bytes

RDA
BEEP 5e3

Funktioniert mit der Windows-Referenzimplementierung (Download) . Es ruft die Windows- BeepFunktion auf, die auf modernen Plattformen eine Sinuswelle ist.

Bash + X11, 27 20 Bytes

xset b 9 $1 5;echo 

Dies enthält einen nicht druckbaren, also hier ist ein Hexdump:

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

Hierbei wird die Frequenz als Befehlszeilenargument verwendet und der entsprechende Piepton mit einer Lautstärke von 9% abgespielt (da keine Lautstärke angegeben wurde).

(Hinweis: Ich konnte dies aufgrund von Problemen mit meinem Computer nicht testen, bin mir jedoch zu 99% sicher, dass es funktioniert.)

JavaScript, 114 Bytes

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

Benötigt ein etwas topaktuelles Browser, geben Sie die Frequenz in der Eingabeaufforderung ein. JSFiddle

Bash + Linux-Utils, 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

Dies ist eine wahre Sinuswelle. Keine Pieptöne. Eingabefrequenz über die Kommandozeile eingegeben:

./hz.sh 440

Processing, 148 114 106 Bytes

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

(Aus irgendeinem Grund erfordert die Verarbeitung sowohl die Verwendung der import-Anweisung als auch der neuen Zeile, andernfalls wird die Bibliothek nicht erkannt.)

Ich habe immer noch nicht herausgefunden, wie Argumente an Processing übergeben werden können, obwohl ich weiß, dass dies möglich ist. Daher ist für diesen Code eine Datei mit dem Namen "s" im Skizzenordner erforderlich, die den Häufigkeitswert enthält. Wenn ich herausfinden kann, wie Argumente übergeben werden, kann ich das Laden von Dateien durch ersetzen args[0].

VB.net, 90 Bytes , 74 Bytes

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

Danke an Sehnsucht

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

Dies ist mein erster Beitrag. Wenn ich etwas falsch gemacht habe, lass es mich bitte wissen

Turbo / Borland / Free / GNU Pascal, 95 Bytes

Aufgrund von Problemen mit der Verzögerungsfunktion auf modernen Computern (also mit einer Geschwindigkeit von weniger als 200 MHz), die versuchen, Turbo / Borland Pascal auszuführen, dauert dies möglicherweise keine 5 Sekunden, selbst bei einer gepatchten CRT-Bibliothek

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

Die Konvertierung von String in Integer kann bei FreePascal und modernen Derivaten kürzer (77 Byte) durchgeführt werden, da sie die folgende StrToIntFunktion haben:

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

Perl, 27 Bytes

Grundsätzlich eine Perl-Version der Python-Antwort (funktioniert auch nur unter Windows), wenn wir Module zulassen.

use Audio::Beep;beep<>,5000

Vitsy + X11, 20 Bytes

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

Eine Übersetzung meiner Bash-Antwort. Funktioniert nicht im Online-Dolmetscher (offensichtlich).

Nimmt die Eingabe als ein beliebiges nicht numerisches Zeichen gefolgt von der Frequenz an (bei einer Eingabe von 440 Hz können Sie also "a440" eingeben).

Erläuterung

"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 mit WinAPI, 82 Bytes

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

Verwendet die WinAPI-Funktion Beep ().

Hassium , 38 Bytes

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

Shadertoy GLSL Sound Shader, 86

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

"Eingabe" erfolgt über #define. Gibt eine Sinuswelle mit einer ungefähren Frequenz von FHz aus. 2 * Pi auf 6.3 gerundet, statt "default" 6.2831, hört sich aber ziemlich gleich an.

Leider gibt es hier nicht viel zu golfen.

Jolf, 4 Bytes, nicht konkurrierend

Dieser Sprachzusatz kam nach der Herausforderung.

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

Die Standardwelle ist eine Sinuswelle.

SmileBASIC, 84 Bytes

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

Wandelt von Hz in halbe Schritte um und spielt eine bestimmte Note mit einem Verstimmungswert, um die Frequenz zu erzeugen.