Це досить простий виклик, але я не зміг знайти жодного питання, яке було б схоже на нього. Завдання полягає в тому, щоб прийняти частоту за допомогою STDIN або еквівалента, а потім вивести тон, який відповідає цій частоті, в Гц, протягом 5 секунд. Наприклад

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

Правила

• Введення даних потрібно взяти через STDIN або еквівалент вашої мови
• Відповідь повинна бути повноцінною програмою
• Можливо використовувати вбудовані
• Частота буде коливатися від 50 до 5000 Гц
• Вихід повинен відтворюватися протягом 5 секунд
• Вихід повинен бути у вигляді синусоїди

Тестові справи

Вхід: 440

Вихід:

Вхід: 200

Вихід:

Вхід: 4000

Вихід:

• Йдеться не про пошук мови з найкоротшим рішенням для цього (є деякі, де порожня програма виконує трюк) - це про пошук найкоротшого рішення на кожній мові. Тому жодна відповідь не буде позначена як прийнята.

• На відміну від наших звичних правил, сміливо користуйтесь мовою (або мовною версією), навіть якщо вона є новішою, ніж ця проблема. Мови, спеціально написані для подання 0-байтової відповіді на це завдання, є чесною грою, але не особливо цікавою.

  Зауважте, що повинен бути перекладач, щоб подати заявку можна перевірити. Дозволяється (і навіть заохочується) писати цього перекладача самостійно для раніше не виконаної мови.

  Також зверніть увагу , що мови дійсно повинні в повній мірі відчути наші звичайні критерії для мов програмування .

Каталог

Фрагмент стека внизу цієї публікації генерує каталог з відповідей а) як список найкоротших варіантів для кожної мови та б) як загальний таблиця лідерів.

Щоб переконатися, що ваша відповідь відображається, будь ласка, почніть свою відповідь із заголовка, використовуючи наступний шаблон Markdown:

## Language Name, N bytes

де Nрозмір вашого подання. Якщо ви покращите свій рахунок, ви можете зберегти старі бали у заголовку, прокресливши їх. Наприклад:

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

Якщо ви хочете включити у свій заголовок декілька чисел (наприклад, тому що ваш результат становить суму двох файлів або ви хочете окремо вказати штрафні санкції для перекладача), переконайтесь, що фактичний результат - це останнє число у заголовку:

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

Ви також можете зробити ім'я мови посиланням, яке з’явиться у фрагменті:

## [><>](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 байт (дискваліфіковано)

Як і згадував @pabouk, для цього використовується динамік ПК, тому він відтворює квадратну хвилю, а не синусоїду, як задає проблема. (Ця вимога була додана до проблеми після опублікування цієї відповіді, отже, і голосів.) Я все одно залишу її для нащадків.

INPUT F
SOUND F,91

Відтворюйте звук на введеній частоті 91 тиків, що дорівнює 5 секундам.

Python2, 40 байт

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

Працює лише в Windows.

Математика, 42 байти

Добре, якщо ми можемо використовувати вбудовані ...

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

Завдяки вимозі до повноцінної програми, вперше мені вдалося скористатися моїм нещодавно відкритим наконечником використання гольфу% (результат останньої оцінки), щоб зберегти два байти.

Математика також має вбудований, Soundякий сприймає висоту та тривалість як аргументи, але, на жаль, крок повинен бути наданий як музична нота. Визначення власної звукової хвилі через, Playздається, є єдиним способом роботи з частотою.

C #, 80 байт

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

MATLAB, 36 байт

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

Завдяки недостатності за збереження двох байтів.

PowerShell, 32 байти

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

FakeASM , 12 байт

RDA
BEEP 5e3

Працює з реалізацією посилання Windows (завантаження) . Він називає Beepфункцію Windows , яка є синусоїдою на сучасних платформах.

Bash + X11, 27 20 байт

xset b 9 $1 5;echo 

Тут міститься недрукований файл, тож ось шістнадцятковий набір:

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

Це сприймає частоту як аргумент командного рядка і відтворює відповідний звуковий сигнал в обсязі 9% (оскільки жоден том не вказаний).

(Примітка. Я не зміг перевірити це через деякі проблеми з моїм комп'ютером, але я на 99% впевнений, що він працює.)

JavaScript, 114 байт

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

Потрібен дещо передовий браузер, введіть частоту в підказку. JSFiddle

Утиліти 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

Це справжня синусова хвиля. Без звукових сигналів. Частота введення, введена через командний рядок:

./hz.sh 440

Обробка, 148 114 106 байт

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

(З якоїсь причини обробка вимагає використання оператора імпорту та нового рядка, інакше бібліотека не розпізнає.)

Я ще не зрозумів, як передавати аргументи в Processing, хоча я знаю, що це можливо, тому для цього коду потрібен файл з назвою "s" у папці ескізу, який має значення частоти. Якщо я можу зрозуміти, як передавати аргументи, я можу замінити завантаження файлів args[0].

VB.net, 90 байт , 74 байти

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

Завдяки Sehnsucht

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

Це моя перша публікація, тому якщо я щось зробив не так, будь ласка, дайте мені знати

Turbo / Borland / Безкоштовно / GNU Pascal, 95 байт

Через проблеми з функцією затримки на сучасних комп’ютерах (ну що-небудь швидше, ніж 200 МГц), які намагаються запустити Turbo / Borland pascal, це може не зачекати 5 секунд, навіть із виправленою бібліотекою CRT

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

Перетворення String to Integer можна зробити коротше (77 байт) на FreePascal та сучасних похідних, оскільки вони мають StrToIntфункцію:

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

Perl, 27 байт

В основному, Perl-версія відповіді Python (також працює лише в Windows), якщо ми дозволяємо модулі.

use Audio::Beep;beep<>,5000

Vitsy + X11, 20 байт

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

Переклад моєї відповіді на баш. Не працює в онлайн-перекладачі (очевидно).

Приймає введення як будь-який нечисловий символ з наступною частотою (тому для входу 440 Гц ви можете зробити "a440").

Пояснення

"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 з WinAPI, 82 байти

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

Використовує функцію WinAPI Beep ().

Hassium , 38 байт

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

"Введення" задається через #define. Виводить синусоїду з приблизною частотою FГц. Округлено 2 * Pi до 6.3, замість "за замовчуванням" 6,2831, але звучить приблизно так само.

На жаль, тут для гольфу не так вже й багато.

Джольф, 4 байти, неконкурентоспроможний

Це мовне доповнення з’явилося після виклику.

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

Типова хвиля - синусова хвиля.

SmileBASIC, 84 байти

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

Перетворює з Гц на півкроки і відтворює певну ноту зі значенням дету, щоб створити частоту.