Bu oldukça basit bir meydan okuma, ancak buna çok benzeyen bir soru bulamadım. Buradaki zorluk, STDIN veya eşdeğerini kullanmada bir frekans almak ve daha sonra bu frekansla eşleşen bir tonu Hz cinsinden 5 saniye boyunca çıkarmaktır. Örneğin

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

kurallar

• Giriş, STDIN veya dilinizin eşdeğeri aracılığıyla alınmalıdır
• Cevap tam bir program olmalı
• Yerleşikler kullanılabilir
• Frekans 50 - 5000 Hz arasında herhangi bir yerde olacaktır.
• Çıkış 5 saniye boyunca oynatılmalıdır
• Çıktı sinüs dalgası şeklinde olmalı

Test durumları

Giriş: 440

Çıktı:

Giriş: 200

Çıktı:

Giriş: 4000

Çıktı:

• Bu, bunun için en kısa çözümü olan dili bulmakla ilgili değildir (boş programın hile yaptığı bazı yerler vardır) - bu, her dilde en kısa çözümü bulmakla ilgilidir . Bu nedenle, hiçbir cevap kabul edilmiş olarak işaretlenmeyecektir.

• Her zamanki kurallarımızdan farklı olarak, bu zorluktan daha yeni olsa bile, bir dili (veya dil sürümünü) kullanmaktan çekinmeyin. Bu zorluğa 0 baytlık bir cevap göndermek için özel olarak yazılan diller adil oyundur ancak özellikle ilgi çekici değildir.

  Gönderimin test edilebilmesi için bir tercüman olması gerektiğini unutmayın. Daha önce uygulanmamış bir dil için bu tercümanı kendiniz yazmanıza izin verilir (ve hatta teşvik edilir).

  Ayrıca, dillerin programlama dilleri için genel kriterlerimizi yerine getirmesi gerektiğine dikkat edin .

Katalog

Bu yazının altındaki Yığın Parçacığı, cevapları a) dil başına en kısa çözümün bir listesi olarak ve b) genel bir lider tablosu olarak oluşturur.

Cevabınızın göründüğünden emin olmak için, lütfen aşağıdaki Markdown şablonunu kullanarak cevabınızı bir başlık ile başlatın:

## Language Name, N bytes

Gönderinizin Nbüyüklüğü nerede ? Puanınızı artırmak varsa, olabilir onları içinden vurarak, başlığa eski hesapları tutmak. Örneğin:

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

Başlığınıza birden çok sayı eklemek istiyorsanız (örneğin, puanınız iki dosyanın toplamı olduğundan veya tercüman bayrağı cezalarını ayrı ayrı listelemek istediğinizden dolayı), gerçek puanın başlıktaki son sayı olduğundan emin olun :

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

Dil adını, daha sonra pasajda görünecek bir bağlantı da yapabilirsiniz:

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

Bahsedilen @pabouk'ta olduğu gibi, bu PC hoparlörünü kullanıyor, bu yüzden sorar gibi bir sinüs dalgası değil, kare bir dalga oynuyor . (Bu gereksinim, bu cevap gönderildikten sonra soruna eklendi , oylar bu yüzden oylar.) Ben yine de gelecek için burada bırakacağım.

INPUT F
SOUND F,91

Girilen frekansta, 5 saniyeye eşit olan 91 tik sesi çalın .

Python2, 40 bayt

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

Sadece Windows üzerinde çalışıyor.

Mathematica, 42 bayt

Peki, eğer yerleşikleri kullanabilirsek ...

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

Tam bir program gereksinimi sayesinde ilk kez kullanmam gerekti benim yakın zamanda keşfedilen golf ucu kullanmanın% iki bayt kaydetmek için (son değerlendirmenin sonucunu).

Mathematica'da ayrıca Soundbir perdesi ve argüman olarak süren bir yerleşik özelliği vardır , ancak ne yazık ki perdenin bir nota olarak verilmesi gerekir. Kendi ses dalganızı belirtmek, Playfrekansla çalışmanın tek yolu gibi görünüyor.

C #, 80 bayt

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

MATLAB, 36 bayt

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

İki bayt kaydetme kusuruna teşekkürler .

PowerShell, 32 bayt

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

FakeASM , 12 bayt

RDA
BEEP 5e3

Windows referans uygulaması (indirme) ile çalışır . BeepModern platformlarda sinüs dalgası olan Windows fonksiyonunu çağırıyor .

Bash + X11, 27 20 bayt

xset b 9 $1 5;echo 

Bu, yazdırılamaz, bu yüzden bir hexdump içerir:

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

Bu, frekansı bir komut satırı argümanı olarak alır ve% 9'luk bir ses seviyesinde uygun bip sesi çalar (ses seviyesi belirtilmediğinden).

(Not: Bilgisayarımdaki bazı sorunlar nedeniyle bunu test edemedim, ancak çalıştığından% 99 eminim.)

JavaScript, 114 bayt

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

Biraz gelişmiş bir tarayıcı gerektirir, istemde sıklığı girin. JSFiddle

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

Bu gerçek bir sinüs dalgası. Bip sesi yok. Komut satırı üzerinden girilen giriş frekansı:

./hz.sh 440

İşlem, 148 114 106 bayt

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

(Bir nedenden dolayı İşleme hem import deyimini hem de yeni satırı kullanmayı gerektirir, aksi takdirde kütüphaneyi tanımıyordur.)

Argümanları İşlemeye nasıl aktaracağımı henüz bulamadım, bunun mümkün olduğunu bilmeme rağmen, bu kodun çizim değeri klasöründe frekans değeri olan "s" adlı bir dosyaya sahip olmasını gerektiriyor. Bağımsız değişkenlerin nasıl iletileceğini bulabilirsem, dosya yükleme ile değiştirebilirim args[0].

VB.net, 90 bayt , 74 bayt

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

Sehnsucht'a teşekkürler

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

Bu benim ilk gönderim, bu yüzden yanlış bir şey yaparsam lütfen bana bildirin

Turbo / Borland / Ücretsiz / GNU Pascal, 95 bayt

Turbo / Borland pascal'ı çalıştırmaya çalışan modern bilgisayarlarda (iyi, 200MHz'den daha hızlı olan herhangi bir şey) gecikme işleviyle ilgili sorunlar nedeniyle, yamalı bir CRT kitaplığında bile 5 saniye beklemeyebilir

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

Dize - Tamsayı dönüşümü, FreePascal ve modern türevlerde daha kısa (77 byte) yapılabilir ve şu StrToIntfonksiyona sahiptir:

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

Perl, 27 bayt

Modüllere izin veriyorsak, temel olarak Python cevabının Perl versiyonu (sadece Windows üzerinde de çalışır).

use Audio::Beep;beep<>,5000

Vitsy + X11, 20 bayt

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

Bash cevabımın çevirisi. Çevrimiçi tercümanda çalışmaz (açıkçası).

Girdiyi, sayısal olmayan herhangi bir karakter olarak takip eder, ardından frekansı takip eder (bu yüzden 440 Hz'lik bir giriş için "a440" yapabilirsiniz).

açıklama

"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 with WinAPI, 82 bytes

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

Uses the WinAPI Beep() function.

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

"Input" is given via #define. Outputs a sinewave with approximate frequency of FHz. Rounded 2*Pi to 6.3, instead of "default" 6.2831, but sounds pretty much the same.

Sadly there isn't much to golf here.

Jolf, 4 bytes, noncompeting

This language addition came after the challenge.

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

The default wave is a sine wave.

SmileBASIC, 84 bytes

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

Converts from Hz to half steps, and plays the a certain note with the a detune value to produce the frequency.