Thử thách

Bạn phải xuất thời gian hiện tại liên tục (cho đến khi bị hủy bởi một ngắt), mỗi giây một lần, bằng bất kỳ phương tiện nào sau đây:

• Nó phải ở định dạng 24 giờ hoặc AM / PM.
  • Nếu là cái trước, nó phải được đặt cách nhau bằng dấu hai chấm (tức là 15:47:36).
  • Nếu là cái sau, nó phải được đặt cách nhau bằng dấu hai chấm và có AM / PM theo sau (tức là 3:47:36 PM)
• Nó có thể được kéo từ internet.
• Nó có thể là thời gian hệ thống.
• Nó phải xuất bất kỳ dạng đầu ra có thể truy cập tự nhiên nào hỗ trợ văn bản mà bạn chọn.
• Đầu ra có thể có thêm thông tin ngoài thời gian trong đó, nhưng bạn phải đảm bảo một, và chỉ một, đầu ra thời gian mỗi giây.
• Đầu ra liên tục phải cách nhau một giây - nếu bạn chọn đợi cho đến khi thay đổi thứ hai giữa các đầu ra, điều đó là tốt. Nếu bạn đợi một giây giữa mỗi đầu ra, điều đó là hoàn toàn chấp nhận được, mặc dù mất độ chính xác cuối cùng.

Vì đây là một danh mục, các ngôn ngữ được tạo sau thử thách này được phép cạnh tranh. 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 đó. Ngoài ra, tất cả các quy tắc tiêu chuẩn của golf-golf phải được tuân theo. Đệ trình trong hầu hết các ngôn ngữ sẽ được ghi bằng byte trong một mã hóa có sẵn từ trước (thường là UTF-8).

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

var QUESTION_ID=65020,OVERRIDE_USER=44713;function answersUrl(e){return"//api.stackexchange.com/2.2/questions/"+QUESTION_ID+"/answers?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+ANSWER_FILTER}function commentUrl(e,s){return"//api.stackexchange.com/2.2/answers/"+s.join(";")+"/comments?page="+e+"&pagesize=100&order=desc&sort=creation&site=codegolf&filter="+COMMENT_FILTER}function getAnswers(){jQuery.ajax({url:answersUrl(answer_page++),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){answers.push.apply(answers,e.items),answers_hash=[],answer_ids=[],e.items.forEach(function(e){e.comments=[];var s=+e.share_link.match(/\d+/);answer_ids.push(s),answers_hash[s]=e}),e.has_more||(more_answers=!1),comment_page=1,getComments()}})}function getComments(){jQuery.ajax({url:commentUrl(comment_page++,answer_ids),method:"get",dataType:"jsonp",crossDomain:!0,success:function(e){e.items.forEach(function(e){e.owner.user_id===OVERRIDE_USER&&answers_hash[e.post_id].comments.push(e)}),e.has_more?getComments():more_answers?getAnswers():process()}})}function getAuthorName(e){return e.owner.display_name}function process(){var e=[];answers.forEach(function(s){var r=s.body;s.comments.forEach(function(e){OVERRIDE_REG.test(e.body)&&(r="<h1>"+e.body.replace(OVERRIDE_REG,"")+"</h1>")});var a=r.match(SCORE_REG);a&&e.push({user:getAuthorName(s),size:+a[2],language:a[1],link:s.share_link})}),e.sort(function(e,s){var r=e.size,a=s.size;return r-a});var s={},r=1,a=null,n=1;e.forEach(function(e){e.size!=a&&(n=r),a=e.size,++r;var t=jQuery("#answer-template").html();t=t.replace("{{PLACE}}",n+".").replace("{{NAME}}",e.user).replace("{{LANGUAGE}}",e.language).replace("{{SIZE}}",e.size).replace("{{LINK}}",e.link),t=jQuery(t),jQuery("#answers").append(t);var o=e.language;/<a/.test(o)&&(o=jQuery(o).text()),s[o]=s[o]||{lang:e.language,user:e.user,size:e.size,link:e.link}});var t=[];for(var o in s)s.hasOwnProperty(o)&&t.push(s[o]);t.sort(function(e,s){return e.lang>s.lang?1:e.lang<s.lang?-1:0});for(var c=0;c<t.length;++c){var i=jQuery("#language-template").html(),o=t[c];i=i.replace("{{LANGUAGE}}",o.lang).replace("{{NAME}}",o.user).replace("{{SIZE}}",o.size).replace("{{LINK}}",o.link),i=jQuery(i),jQuery("#languages").append(i)}}var ANSWER_FILTER="!t)IWYnsLAZle2tQ3KqrVveCRJfxcRLe",COMMENT_FILTER="!)Q2B_A2kjfAiU78X(md6BoYk",answers=[],answers_hash,answer_ids,answer_page=1,more_answers=!0,comment_page;getAnswers();var SCORE_REG=/<h\d>\s*([^\n,]*[^\s,]),.*?(\d+)(?=[^\n\d<>]*(?:<(?:s>[^\n<>]*<\/s>|[^\n<>]+>)[^\n\d<>]*)*<\/h\d>)/,OVERRIDE_REG=/^Override\s*header:\s*/i;

body{text-align:left!important}#answer-list,#language-list{padding:10px;float:left}table thead{font-weight:700}table td{padding:5px}

<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="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><div id="language-list"> <h2>Winners 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><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>

Minecraft 1.8.7, 7 + 8 = 15 blyte (byte + khối)

Chỉ có một khối lệnh liên quan:

xp 1 @p

Đầu ra đi đến bảng điều khiển máy khách như vậy:

Là một phần của đầu ra bình thường.

Đây là hệ thống:

xpcung cấp một lượng kinh nghiệm xác định cho một người chơi được chỉ định với cú pháp xp <amount> <player>. Tôi khá chắc chắn rằng đây là lệnh nhỏ nhất có đầu ra duy nhất mà tôi có thể nhận được ngay bây giờ.

JavaScript, 32 byte

setInterval("alert(Date())",1e3)

Sử dụng thực tế là setInterval đánh giá mã. Điều này không được khuyến khích, nhưng khi đó là một mối quan tâm trong môn đánh gôn?

Date() trả về thời gian và ngày hiện tại theo định dạng như thế này (có thể thay đổi theo từng hệ thống).

 Wed Jul 28 1993 14:39:07 GMT-0600 (PDT)

sh (+ xem), 11 byte

Kịch bản:

watch -n1 .

(không có dòng mới)

Đầu ra:

Every 1,0s: . (SPACES) Sat Nov 28 19:07:51 2015

Số lượng không gian phụ thuộc vào chiều rộng thiết bị đầu cuối.

Đã thử nghiệm trên Debian8 và NetBSD7.

Chụp , 8 7 6 khối

(Có, tôi đã thay đổi nó trong MS Paint vì tôi quá lười để tạo một ảnh chụp màn hình khác. Vậy thì sao? Ít nhất là nó có thể đọc được.)
Nhấp vào tập lệnh để chạy
đồng hồ 24 giờ.

Python 2, 47 byte

from time import*
while[sleep(1)]:print ctime()

Không có liên kết trực tuyến vì ideone hết thời gian (huehuehue) trước khi in bất cứ điều gì.

Cảm ơn @xsot về while[sleep(1)]mánh khóe và ctimemánh khóe.

In ra ngày giờ hiện tại như vậy: Fri Nov 27 21:23:02 2015

Perl, Dòng lệnh, 24 byte

sleep(say)while$_=gmtime

Điều này phải được chạy từ dòng lệnh, vì perl -E'sleep(say)while$_=gmtime'(trên windows, sử dụng dấu ngoặc kép thay thế). Ngày sẽ là đầu ra cùng với thời gian, dường như được cho phép .

Perl, 25 byte

sleep print$/.gmtime;do$0

Trong ngữ cảnh vô hướng, gmtimesẽ trả về một chuỗi tương tự Sat Nov 28 10:23:05 2015. Kết quả từ print, luôn luôn là 1, được sử dụng làm tham số cho sleep. do$0được sử dụng để thực thi lại tập lệnh, sau khi bộ đếm thời gian kết thúc.

Javascript ES6, 43 39 byte

setInterval(_=>console.log(Date()),1e3)

Hoạt động với cài đặt thời gian hiện tại của tôi (ít nhất đã không được thay đổi trong một thời gian, cảm ơn bạn), ít nhất.

4 byte được lưu bởi Conor O'Brien.

Arcyóu , 27 byte

(@ t(pn(zz 1)(p(st %H:%M:%S

Tôi đã phải kết hợp hai chức năng mới cho thử thách này zzvà st.

pn: Chính xác như của Lisp progn.

zz: Liên kết trực tiếp đến Python's time.sleep.

st: Liên kết trực tiếp đến Python's time.strftime.

Thông thường, các trích dẫn sẽ là cần thiết xung quanh chuỗi định dạng, nhưng vì không có khoảng trắng, nên nó được phân tích cú pháp như một biểu tượng. Trình thông dịch đánh giá các ký hiệu không xác định là chính chúng, vì vậy chúng tôi nhận được một chuỗi.

Bash, 51 31 24 21 20 byte

Cảm ơn @quartata cho một số ý kiến ​​rất hữu ích. Cảm ơn bạn @Dennis vì đã làm rõ và cắt bớt nhiều byte hơn nữa. Cảm ơn bạn @VoteToC Đóng đã làm rõ các quy tắc (dường như tôi rất tệ trong việc đọc) tiếp tục giảm các byte.

datehiển thị ngày đầy đủ với đồng hồ 24 giờ. sleep 1Ngủ một giây. exec $0vòng lặp kịch bản vô hạn.

date;sleep 1;exec $0

Befunge 98, 53 byte

 v
v>"EMIT"4(>H.8,':,M.8,':,S:.8,d,
>:S-    !!k^

Ghi chú:

1. Chương trình này không đệm số mà nó in.
2. Chương trình này in một khoảng trắng và sau đó là một ký tự backspace sau mỗi số, vì .lệnh sẽ in một khoảng trắng ẩn ở cuối.
3. Kích thước của ngăn xếp trong chương trình này tăng lên mỗi giây và do đó cuối cùng nó sẽ hết bộ nhớ.
4. Chương trình này sẽ ghi đè lên lần trước khi nó in một cái mới. Để làm cho nó in mỗi lần trên một dòng mới, thay đổi ddòng đầu tiên thành một dònga

mIRC 7,49 20 16 byte

/timer 0 1 $time

AutoHotkey, 50 byte

x::Send,% a!=A_Sec? A_Hour ":" A_Min ":" a:=A_Sec:

Ghi chú:

1. Yêu cầu bạn giữ xcho đầu ra liên tục.
2. Hủy bỏ ngón tay của bạn xđể làm gián đoạn và kết thúc đầu ra.
3. Đầu ra ở định dạng 24 giờ.

C (trên Linux x64), 179 177 175 168 159 byte

#include<time.h>
#include<sys/time.h>
main(){struct timeval a;char b[9];for(;;){gettimeofday(&a,0);strftime(b,9,"%T",localtime(&a.tv_sec));puts(b);sleep(1);}}

Ung dung:

#include <time.h>
#include <sys/time.h>
main(){
  struct timeval a;
  char b[9];
  for(;;){
    gettimeofday(&a, 0);
    strftime(b, 9, "%T",localtime(&a.tv_sec));
    puts(b);
    sleep(1);
  }
}

Chỉ được thử nghiệm và có thể chỉ có các chức năng trên, linux x64 (x32 có thể hoạt động, nhưng các nền tảng khác có thể sẽ không hoạt động).

Sự khác biệt chính giữa chương trình này và chương trình C được đăng khác là việc sử dụng các lệnh gọi hàm độc quyền linux, trong khi, thực tế khủng khiếp cho phần mềm thực, sẽ tiết kiệm được một vài byte ... nếu bạn bỏ qua tất cả các cảnh báo của trình biên dịch.

Jolf , 14 8 7 byte

^{Vượt qua 14 là tấn công 1? Không, nó sẽ không bao giờ bắt kịp;)}

Hãy thử nó ở đây! Nhấp vào chạy, không nhấp vào bất cứ điều gì khác ^ _ ^ trang rất ... bùng nổ. Đúng. Đã sửa lỗi hệ thống đầu ra với bản cập nhật.

TaD#`~2

(Tôi đã thêm một số hằng số, và ~1để ~4là lũy thừa của 10.)

Giải trình

setInterval("alert(Date())",1000);
     T         a      D#   ` ~2

APL Dyalog , 27 18 16 byte

':',¨⎕TS⋄→≢⎕DL 1

Hãy thử trực tuyến!

⎕TSYMD hmst trả
':',¨trước: cho mỗi
⋄câu lệnh mới
⎕DL 1đợi một giây và trả lại thời gian chờ thực tế; 1 giây giây
≢kiểm đếm thời gian chờ thực tế, cho 1
→đi đến dòng (1 = dòng này)

Perl 6 , 29 byte

Cách đúng đắn để làm điều này:

Supply.interval(1).tap: -> $ {
  say join ':',.hour,.minute,.whole-second given DateTime.now
}
await Promise.new; # halt this thread indefinitely

22:21:58
22:21:59
22:22:0
22:22:1
22:22:2
…

Phiên bản chơi gôn

loop {sleep say join ':',now.polymod(1,60,60,24)[3…1]} # 56 bytes

3:59:26
3:59:27
3:59:28
3:59:29
…

Vì đầu ra không bị giới hạn chỉ trong thời gian, tôi có thể làm cho nó ngắn hơn một chút.

loop {sleep say DateTime.now} # 29 bytes

2015-11-27T22:18:10-06:00
2015-11-27T22:18:11-06:00
2015-11-27T22:18:12-06:00
2015-11-27T22:18:13-06:00
…

R, 38 byte

repeat{Sys.sleep(1);print(Sys.time())}

Điều này xuất ra thời gian hiện tại theo định dạng sau:

[1] "2015-11-28 07:34:01 CET"

Powershell, 19 byte

for(){date;sleep 1}

PHP, 37 byte

<?=date('G:i:s');header('refresh:1');

Xuất thời gian máy chủ được định dạng và đặt trang để làm mới mỗi giây.

Tất nhiên, nó phụ thuộc vào kết nối internet của bạn và tốc độ phục hồi nhanh của máy chủ của bạn :)

Bản giới thiệu

VBA, 69 byte

Bắt thời gian thật dễ dàng, now()Chỉ xuất ra cứ sau 1 giây .... RẤT NHIỀU hơn.

Đây là cách "Đúng" để chờ 1 giây trong VBA. 78 byte

Sub a():Debug.Print Now():Application.Wait Now()+TimeValue("0:0:1"):a:End Sub

Hoặc nếu bạn muốn cắt một số góc và chỉ đúng 86% thời gian là đủ tốt 63 Byte
thêm một SigFig đưa bạn chính xác đến 95% và một phần ba sẽ đưa bạn đến 99,36%

Sub a():Debug.Print Now():Application.Wait Now()+1e-5:a:End Sub

Nếu bạn muốn có được phương pháp trên 100% thì bạn cần 69 Byte (1/86400)

Sub a():Debug.Print Now():Application.Wait Now()+(1/86400):a:End Sub

Tất cả các phương pháp này sẽ vấp ngã trong một Beacuse thứ hai, họ không đợi trong 1 giây, nhưng đợi đến 1 giây. Vào nửa đêm khi đồng hồ rơi trở lại một giờ, đồng hồ này sẽ dừng lại trong 1 giờ và sau đó chọn nơi nó rời đi.

VBA không cho phép Phương thức ngủ nhưng bộ ghép byte của bạn bị hủy. 97 byte

Declare Sub Sleep Lib "kernel32" (ByVal k as Long)
Sub a():Debug.Print Now():Sleep(1e3):a:End Sub

JavaScript, 47 38 35 byte

for(p=1;t=Date();p=t)t!=p&&alert(t)

Giải trình

Liên tục kiểm tra nếu thời gian đã thay đổi thì alerts nếu có.

for(
  p=1;
  t=Date();
  p=t
)
  t!=p
    &&alert(t)

AppleScript, 51 35 byte

nói lại
đăng nhập ngày hiện tại
trì hoãn 1
kết thúc

Khá dang rõ ràng. In ngày hiện tại, trong đó có thời gian, trì hoãn một giây, sau đó tiếp tục.

, 13 ký tự / 25 byte

Ĥ⇀ôᶁ⬮+⬬),1𝕜)

Try it here(Firefox only).

Điều này là đáng ngạc nhiên có thể đọc được.

APL Dyalog, 36 byte

Lần này không ngắn lắm.

{⎕←1↓∊'⊂:⊃,ZI2'⎕FMT 3↑3↓⎕TS⋄∇⎕DL 1}1

Điều này xuất ra thời gian 24 giờ, tức là:

14:37:44
14:37:45
14:37:46
...

Giải trình:

• {... }1: xác định hàm và gọi hàm (đối số bị bỏ qua, nhưng chúng ta cần hàm để gọi hàm đệ quy)
  • ⎕TS: một chức năng hệ thống trả về ngày và giờ hiện tại, theo định dạng năm - tháng - ngày - giờ - phút - giây - mili giây . ( ⎕TS= t ime s tamp)
  • 3↑3↓: bỏ 3 mục đầu tiên (tức là năm - tháng - ngày) và sau đó lấy 3 mục đầu tiên còn lại (giờ - phút - giây).
  • '⊂:⊃,ZI2'⎕FMT: định dạng mỗi số dưới dạng một số nguyên có hai chữ số ( I2) với các số 0 đứng đầu ( Z), có tiền tố là dấu hai chấm ( ⊂:⊃). (Điều này dẫn đến một ma trận.)
  • ∊: Lấy tất cả các phần tử trong ma trận, theo thứ tự hàng. (Điều này cho một vectơ, trong trường hợp này là một chuỗi.)
  • 1↓: thả ký tự đầu tiên (là ký tự phụ :)
  • ⎕←: xuất nó
  • ⎕DL 1: sau đó đợi một giây ( ⎕DL= d e l ay)
  • ∇: gọi hàm đệ quy

QBasic, 18 byte

?TIME$
SLEEP 1
RUN

Haskell, 98 96 85 byte

import GHC.Conc
import Data.Time
m@main=getCurrentTime>>=print>>threadDelay(10^6)>>m

Phiên bản thay thế bằng cách sử dụng ký hiệu:

main = do
  time <- getCurrentTime
  print time
  threadDelay 1000000
  main

Có được thời gian hiện tại với getCurrentTimetừ Data.Timethư viện, sau đó đưa nó vào print, đợi 1.000.000 micro giây (1 giây) và tự gọi.

Cảm ơn nimi và Mauris!

Mẻ - 34 40 byte

Tôi thích các biến tích hợp:

:A                    //Set label A
echo %time%           //Print the time in 24 hour format
timeout 1    //Wait 1 second (thanks DavidPostill)
goto A                //Jump back to A and repeat

_{Chắc chắn cần phải có một số sleeplệnh trong Batch bất cứ lúc nào sớm.}

Python 3, 99 byte

Xin lỗi nếu nó định dạng mã lạ, làm điều này từ ipad. (đừng hỏi). Tôi biết mã này rất lớn khi xem xét một số câu trả lời khác, nhưng tôi chưa thấy một con trăn nào nên tôi muốn thêm nó vào.

import time
import datetime
while(True):
 print(datetime.datetime.now().time())
 time.sleep(1)  

Java, 300 166 137 125 124 byte

Gần hơn một nửa nhờ vào VoteToClose, Paülo Ebermann và janschweizer!

interface A{static void main(String[]a)throws Exception{for(;;Thread.sleep(1000))System.out.println(new java.util.Date());}}

Ung dung:

interface A {
    static void main(String[] a) throws Exception {
        for (;; Thread.sleep(1000)) System.out.println(new java.util.Date());
    }
}

Perl, 99 81 75 51 40 36 29 27 byte

sleep(print gmtime.$/);do$0