Đây là một thử thách khá đơn giản, nhưng tôi không thể tìm thấy bất kỳ câu hỏi nào thực sự giống với nó. Thách thức là lấy tần số bằng cách sử dụng STDIN hoặc tương đương, sau đó phát ra âm phù hợp với tần số đó, tính bằng Hz, trong 5 giây. Ví dụ

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

Quy tắc

• Đầu vào phải được thực hiện thông qua STDIN hoặc tương đương với ngôn ngữ của bạn
• Câu trả lời phải là một chương trình đầy đủ
• Nội dung có thể được sử dụng
• Tần số sẽ ở bất cứ đâu từ 50 - 5000 Hz
• Đầu ra phải được phát trong 5 giây
• Đầu ra phải ở dạng sóng hình sin

Các trường hợp thử nghiệm

Đầu vào: 440

Đầu ra:

Đầu vào: 200

Đầu ra:

Đầu vào: 4000

Đầu ra:

• Đây không phải là tìm ngôn ngữ với giải pháp ngắn nhất cho việc này (có một số nơi mà chương trình trống thực hiện thủ thuật) - đây là về việc tìm giải pháp ngắn nhất trong mọi ngôn ngữ. Do đó, không có câu trả lời sẽ được đánh dấu là chấp nhận.

• Không giống như các quy tắc thông thường của chúng tôi, vui lòng sử dụng ngôn ngữ (hoặc phiên bản ngôn ngữ) ngay cả khi nó mới hơn thử thách này. Các ngôn ngữ được viết cụ thể để gửi câu trả lời 0 byte cho thử thách này là trò chơi công bằng nhưng không đặc biệt thú vị.

  Lưu ý rằng phải có một thông dịch viên để trình có thể được kiểm tra. Được phép (và thậm chí được khuyến khích) tự viết trình thông dịch này cho một ngôn ngữ chưa được thực hiện trước đó.

  Cũng lưu ý rằng ngôn ngữ làm phải đảm bảo thực tiêu chuẩn thông thường của chúng tôi cho các ngôn ngữ lập trình .

Mục lục

Đoạn trích Stack ở cuối bài đăng này tạo ra danh mục từ các câu trả lời a) dưới dạng danh sách các giải pháp ngắn nhất cho mỗi ngôn ngữ và b) dưới dạng bảng xếp hạng tổng thể.

Để đảm bảo rằng câu trả lời của bạn hiển thị, vui lòng bắt đầu câu trả lời của bạn bằng một tiêu đề, sử dụng mẫu Markdown sau:

## Language Name, N bytes

nơi Nlà kích thước của trình của bạn. Nếu bạn cải thiện điểm số của mình, bạn có thể giữ điểm số cũ trong tiêu đề, bằng cách đánh bại chúng thông qua. Ví dụ:

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

Nếu bạn muốn bao gồm nhiều số trong tiêu đề của mình (ví dụ: vì điểm của bạn là tổng của hai tệp hoặc bạn muốn liệt kê riêng các hình phạt cờ của thông dịch viên), hãy đảm bảo rằng điểm thực tế là số cuối cùng trong tiêu đề:

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

Bạn cũng có thể đặt tên ngôn ngữ thành liên kết sau đó sẽ hiển thị trong đoạn trích:

## [><>](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 byte (không đủ tiêu chuẩn)

Giống như @pabouk đã đề cập, cái này sử dụng loa PC, vì vậy nó phát sóng vuông chứ không phải sóng hình sin như vấn đề yêu cầu. (Yêu cầu này đã được thêm vào vấn đề sau khi câu trả lời này được đăng, do đó phiếu bầu.) Dù sao tôi cũng sẽ để nó cho hậu thế.

INPUT F
SOUND F,91

Phát âm thanh ở tần số đầu vào trong 91 tiếng, tương đương với 5 giây.

Python2, 40 byte

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

Chỉ hoạt động trên Windows.

Toán học, 42 byte

Chà nếu chúng ta có thể sử dụng tích hợp ...

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

Nhờ vào yêu cầu cho một chương trình đầy đủ, đây là lần đầu tiên tôi sử dụng mẹo chơi gôn được phát hiện gần đây của tôi về việc sử dụng %(kết quả đánh giá cuối cùng) để tiết kiệm hai byte.

Mathematica cũng có một tích hợp trong Soundđó có một cao độ và thời lượng làm đối số, nhưng thật không may, cao độ phải được đưa ra như một nốt nhạc. Chỉ định sóng âm thanh của riêng bạn thông qua Playdường như là cách duy nhất để làm việc với tần số.

C #, 80 byte

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

MATLAB, 36 byte

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

Cảm ơn flawr đã lưu hai byte.

PowerShell, 32 byte

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

FakeASM , 12 byte

RDA
BEEP 5e3

Hoạt động với triển khai tham chiếu Windows (tải xuống) . Nó gọi Beepchức năng của Windows , là một làn sóng hình sin trên các nền tảng hiện đại.

Bash + X11, 27 20 byte

xset b 9 $1 5;echo 

Điều này chứa một không thể in được, vì vậy đây là một hexdump:

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

Điều này lấy tần số làm đối số dòng lệnh và phát tiếng bíp thích hợp ở mức âm lượng 9% (vì không có âm lượng nào được chỉ định).

(Lưu ý: Tôi không thể kiểm tra điều này do một số vấn đề với máy tính của tôi, nhưng tôi chắc chắn 99% nó hoạt động.)

JavaScript, 114 byte

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

Yêu cầu một trình duyệt tiên tiến, nhập tần số trong lời nhắc. Câu đố

Đồ dùng 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

Đây là một sóng hình sin thực sự. Không có tiếng bíp. Tần số đầu vào được nhập thông qua dòng lệnh:

./hz.sh 440

Đang xử lý, 148 114 106 byte

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

(Vì một số lý do, Xử lý yêu cầu cả sử dụng câu lệnh nhập và dòng mới, nếu không, nó không nhận ra thư viện.)

Tôi vẫn chưa tìm ra cách chuyển đối số vào Xử lý, mặc dù tôi biết điều đó là có thể, vì vậy mã này yêu cầu phải có một tệp có tên "s" trong thư mục phác thảo có giá trị tần số. Nếu tôi có thể tìm ra cách vượt qua trong các đối số, tôi có thể thay thế tải tệp bằng args[0].

VB.net, 90 byte , 74 byte

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

Cảm ơn Sehnsucht

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

Đây là bài viết đầu tiên của tôi vì vậy nếu tôi làm bất cứ điều gì sai xin vui lòng cho tôi biết

Turbo / Borland / Free / GNU Pascal, 95 byte

Do sự cố với chức năng trì hoãn trên các máy tính hiện đại (tốt, mọi thứ nhanh hơn 200Mhz) khi cố chạy Turbo / Borland pascal, điều này có thể không đợi 5 giây, ngay cả với thư viện CRT đã vá

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

Việc chuyển đổi String thành Integer có thể được thực hiện ngắn hơn (77 byte) trên FreePascal và các dẫn xuất hiện đại, vì chúng có StrToIntchức năng:

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

Perl, 27 byte

Về cơ bản là phiên bản Perl của câu trả lời Python (cũng chỉ hoạt động trên Windows), nếu chúng tôi cho phép các mô-đun.

use Audio::Beep;beep<>,5000

Vitsy + X11, 20 byte

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

Một bản dịch của câu trả lời bash của tôi. Không hoạt động trong trình thông dịch trực tuyến (rõ ràng).

Lấy đầu vào là bất kỳ ký tự không phải là số nào theo sau tần số (vì vậy, với đầu vào 440 Hz, bạn có thể thực hiện "a440").

Giải trình

"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 với WinAPI, 82 byte

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

Sử dụng hàm WinAPI Beep ().

Kali , 38 byte

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

Máy tạo âm thanh Shadertoy GLSL, 86

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

"Đầu vào" được đưa ra thông qua #define. Xuất ra một hình sin với tần số xấp xỉ FHz. Làm tròn 2 * Pi thành 6.3, thay vì "mặc định" 6.2831, nhưng âm thanh khá giống nhau.

Đáng buồn là không có nhiều để chơi golf ở đây.

Jolf, 4 byte, không biên dịch

Bổ sung ngôn ngữ này đến sau khi thách thức.

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

Sóng mặc định là sóng hình sin.

SmileBASIC, 84 byte

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

Chuyển đổi từ Hz sang nửa bước và phát một nốt nhất định với giá trị giảm dần để tạo ra tần số.