Tôi muốn bạn xây dựng cho tôi một chiếc đồng hồ hiển thị thời gian theo định dạng này:

18 ----------
19 --------------------------------------------------

Điều này sẽ hiển thị '18: 10 '. Giờ hiện tại và giờ tiếp theo được hiển thị ở phía trước của dòng, theo sau là khoảng trắng và một số dấu gạch ngang: trên dòng đầu tiên số phút đã trôi qua trong giờ này và dòng thứ hai hiển thị thêm bao nhiêu phút nữa để đi trong giờ này.

Làm rõ

• Đồng hồ sẽ hiển thị thời gian của hệ thống. Nếu lấy thời gian từ một nguồn khác thuận tiện hơn, điều đó cũng tốt. Nó có thể không được cung cấp như là đầu vào.
• Tại 18:00, dòng trên cùng chỉ là 18(Không gian lưu trữ được phép nhưng không bắt buộc)
• Tại 18:59, điểm mấu chốt là19 -
• Giờ <10 được đệm trước bằng dấu 0( 01 -----) hoặc căn phải ( 1 -----). Một chữ số đơn căn lề trái không được phép, ngay cả khi dấu gạch ngang bắt đầu ở vị trí bên phải ( 1 -----không hợp lệ).
• Đồng hồ sẽ hiển thị giờ theo định dạng 24h.
• Mặc dù nó được gọi là định dạng 24h, nhưng thực tế không có định dạng 24này. Trong giờ thứ 23, dòng thứ hai bắt đầu bằng 00hoặc 0.
• Màn hình cần được cập nhật ít nhất một lần một phút, nhưng điều đó không phải xảy ra vào đúng 00giây. Bạn có thể cập nhật thường xuyên / liên tục hơn nếu điều đó thuận tiện hơn, nhưng tất nhiên kết quả vẫn phải rõ ràng - không phải là một vết bẩn trên màn hình.

Đầu vào

Không ai.

Đầu ra

• Như mô tả ở trên. Không gian lưu trữ để đệm đồng hồ đến các vị trí 60-ish được cho phép trên cả hai dòng, một dòng mới cũng được cho phép.
• Màn hình cần phải được xóa khi hiển thị vào phút tiếp theo: bằng lệnh màn hình rõ hoặc bằng cách thêm không dưới 30 dòng mới.

Quy tắc bổ sung

• Sơ hở tiêu chuẩn bị cấm
• code-golf , câu trả lời ngắn nhất trong byte thắng.

MATL , 41 byte

Cảm ơn @Kundor vì đã nhận thấy một lỗi, giờ đã sửa

`XxFT"4&Z'@+24\OH&YAO'-'60@*5&Z'-|Y"hhD]T

Hãy thử nó tại MATL trực tuyến!Nhưng lưu ý rằng chương trình bị tắt sau 30 giây, vì vậy rất khó để nắm bắt bất kỳ thay đổi nào trong đầu ra.

Làm thế nào nó hoạt động

`           % Do...while
  Xx        %   Clear screen
  FT        %   Push [0 1]
  "         %   For each k in [0 1]
    4&Z'    %     Push current hour
    @+      %     Add k
    24\     %     Modulo 24. This transforms 24 into 0
    OH&YA   %     Convert to base-10 string with 2 digits
    O       %     Push 0. Concatenating with chars will convert this to char,
            %     and char(0) will be displayed as a space
    '-'     %     Push '-'
    60@*    %     Push 60*k
    5&Z'    %     Push current minute
    -|      %     Absolute difference. This gives current minute for k==0,
            %     or 60 minus that for k==1
    Y"      %     Repeat '-' that many times
    hh      %     Concatenate the top three elements into a string
    D      %      Display
  ]         %   End
  T         %   Push true
            % End (implicit). Since the top of the stack contains true, this
            % gives an infinite loop

TI-Basic, 94 byte

" 
Repeat 99<length(Ans
Ans+"-
End
Ans→Str1
Repeat 0
getTime
ClrDraw
Ans{Ans(1)≠24,1,1
Text(0,0,Ans(1),sub(Str1,1,1+Ans(2
Text(6,0,Ans(1)+1,sub(Str1,1,61-Ans(2
End

Tương đối đơn giản. Đó là một chuỗi có một khoảng trống ở đầu. Các giờ được căn phải. Điều này chỉ hoạt động trên máy tính TI-84 + vì TI-83 không có đồng hồ bên trong.

Chỉnh sửa: Cảm ơn @kundor vì đã nhận thấy rằng tôi đã không đóng vòng lặp cuối cùng. Đã sửa bây giờ (+2 byte).

Chỉnh sửa # 2: Giờ đầu tiên phải bằng 0, không phải hai mươi bốn. Sửa chữa với chi phí +14 byte.

Mẻ, 197 byte

@echo off
set/ah=100+%time:~0,2%,m=1%time:~3,2%
cls
call:l
set/ah=(h-3)%%24+100,m=260-m
call:l
timeout/t>nul 60
%0
:l
set s=%h:~1% 
for /l %%i in (101,1,%m%)do call set s=%%s%%-
echo %s%

Lưu ý: dòng thứ 10 có dấu cách. Đối với tôi, %time%định dạng giờ với không gian hàng đầu nhưng phút với số 0 đứng đầu. Tôi quyết định số 0 đứng đầu là một định dạng đầu ra dễ dàng hơn, vì tất cả những gì tôi phải làm là thêm 100 giờ và xóa chữ số đầu tiên. Phút là khó khăn hơn 08hoặc 09sẽ gây ra lỗi phân tích bát phân, vì vậy tôi thêm tiền tố một 1cách hiệu quả thêm 100 phút, điều chỉnh cho điều này bằng cách bù đắp vòng lặp một cách thích hợp, ngắn hơn một byte so với trừ 100.

Python 3.6, 110 114 112 byte

from time import*
while[sleep(9)]:h,m=localtime()[3:5];print('\n'*50+'%2d '%h+'-'*m+f'\n{-~h%24:2} '+'-'*(60-m))

Điều này sử dụng định dạng chuỗi f mới để lưu một byte ( f'\n{h+1:2} 'so với '\n%2d '%(h+1)) Bạn có thể thay đổi [sleep(9)]thành1 để lưu 8 byte, nhưng sau đó nó chỉ spam màn hình.

Đã lưu một byte thay đổi while 1:...;sleep 60thànhwhile[sleep(60)]:... , nhờ TuukkaX.

Tôi đã phải sử dụng thêm 5 byte để có được giờ tiếp theo được hiển thị sau 23 thành 0, thay vì 24, như OP vừa nhận xét. :-(

Đã phục hồi một byte bằng cách chỉ ngủ 9 giây thay vì 60.

Đã lưu hai byte bằng cách sử dụng một chút để rút ngắn (h+1)%24, mượn từ câu trả lời Ruby của Value Ink .

Ruby, 98 95 91 byte

Cập nhật cứ sau 5 giây. Chỉ hoạt động trong các thiết bị đầu cuối kiểu Unix.

loop{t=Time.now;puts`clear`+"%02d %s
%02d "%[h=t.hour,?-*m=t.min,-~h%24]+?-*(60-m);sleep 5}

Phiên bản nhắc lệnh của Windows, 95 92 byte:

loop{t=Time.now;puts"\e[H\e[2J%02d %s
%02d "%[h=t.hour,?-*m=t.min,-~h%24]+?-*(60-m);sleep 5}

Perl 6 , 113 byte

loop {$_=DateTime.now;.put for |('' xx 30),|([\+](.hour,1)».fmt('%2s')Z('-' Xx[\-](.minute,60)».abs));sleep 60}

Hãy thử một lần với thời gian chờ một giây.

Hoặc thử một phiên bản thay đổi dẫn đến kết quả chạy trong vài giờ.

Mở rộng:

loop {                  # keep repeating forever

  $_ = DateTime.now;    # assign an object representing the current time

    .put                # print with trailing newline
                        # ( adds a space between numbers and dashes )

  for                   # for each of the following

    |(                  # make it a slip so that it is all part of one list

      '' xx 30          # 30 empty strings (30 empty lines)
    ),

    |(

        [\+](           # triangle produce
          .hour,        # the hour
          1             # the hour plus one

        )».fmt( '%2s' ) # both formatted to two element string ( space padded )

      Z                 # zipped with

        (
            '-'         # a dash

          Xx            # cross (X) using string repeat (x) operator

            [\-](       # triangle produce
              .minute,  # the minute
              60        # the minute minus 60

            )».abs      # absolute value of both
        )
    );

  sleep 60              # wait until the next minute
}

QBasic, 120 127 121 byte

Đừng chạy cái này quá lâu nếu không laptop của bạn sẽ bốc cháy. Bây giờ 99.several9s% ​​CPU hiệu quả hơn.

CLS
m=TIMER\60
h=m\60
m=m MOD 60
FOR i=1TO 2
?USING"## ";h MOD 24;
FOR j=1TO m
?"-";
NEXT
?
h=h+1
m=60-m
NEXT
SLEEP 1
RUN

Ung dung và giải thích

DO
    CLS
    totalMinutes = TIMER \ 60
    hour = totalMinutes \ 60
    minute = totalMinutes MOD 60

    FOR row = 1 TO 2
        PRINT USING "## "; hour MOD 24;
        FOR j = 1 TO minute
            PRINT "-";
        NEXT j
        PRINT

        hour = hour + 1
        minute = 60 - minute
    NEXT row

    SLEEP 1
LOOP

Chúng tôi bắt đầu bằng cách xóa màn hình, sau đó lấy số giờ và phút hiện tại, từ TIMERđó trả về số giây kể từ nửa đêm.

Đây là lần đầu tiên tôi thử PRINT USING, vì vậy tôi rất vui mừng khi phát hiện ra rằng nó không phải chịu sự châm biếm QBasic thông thường rằng các số dương được in với một khoảng trắng hàng đầu.##như bộ xác định định dạng đảm bảo rằng các số có một chữ số được căn phải và được đệm bằng một khoảng trắng, theo yêu cầu. Thật không may, chúng ta phải sử dụng một vòng lặp cho các dấu gạch nối, thật không may, vì QBasic không có chức năng lặp lại chuỗi. (Nếu tôi nhầm, xin vui lòng cho tôi biết!)

Tất cả các PRINTtuyên bố kết thúc với ;để ngăn chặn dòng mới; nhưng sau những dấu gạch nối, chúng ta cần một dòng mới; do đó, sự đơn độc ?sau FORvòng lặp bên trong .

Các SLEEP 1hiện nay là cần thiết. Không có nó, màn hình sẽ bị xóa rất nhanh sau khi in, nó chỉ là một mớ hỗn độn nhấp nháy. (Tôi đã sử dụng LOCATE 1thay vì CLSlúc đầu vì lý do đó, cho đến khi tôi nhận ra rằng CLSvới SLEEPngắn anyway.) RUNKhởi động lại chương trình từ đầu - con đường ngắn nhất để có được một vòng lặp vô hạn.

Java 8, 313 300 299 byte

import java.time.*;()->{for(int c=0,h=LocalDateTime.now().getHour(),m=LocalDateTime.now().getMinute(),i;;)if(c>30){c=0;String l="",u,d;for(i=0;i++<60;)l+="-";u=l.substring(0,m);d=l.substring(m);System.out.println((h<10?"0":"")+h+" "+u+"\n"+(h<9?"0":"")+(h+1)+" "+d);}else{c++;System.out.println();}}

Điều này chỉ cập nhật cứ sau 30 lần lặp của vòng lặp while. 29 lần lặp khác chỉ in các dòng mới.

Đã cập nhật

Đã lưu 13 14 byte nhờ sự giúp đỡ của Kevin Cruijssen! Cảm ơn!

C, 176 162 161 160 156 byte

Đây là một lạm dụng thô của con trỏ nhưng biên dịch và chạy theo quy định. Hãy chắc chắn biên dịch mà không tối ưu hóa nếu không bạn có khả năng gặp phải một segfault.

main(){int*localtime(),b[9],*t;memset(b,45,60);for(;;)time(&t),t=localtime(&t),usleep(printf("\e[2J%.2d %.*s\n%.2d %.*s\n",t[2],t[1],b,t[2]+1,60-t[1],b));}

Ung dung:

#import<time.h>
main()
{
 int *t,b[60];
 memset(b,45,60);
 for(;;) {
  time(&t);
  t=localtime(&t);
  usleep(printf("\e[2J%.2d %.*s\n%.2d %.*s\n",t[2],t[1],b,t[2]+1,60-t[1],b));
 }
}

JavaScript (ES6), 162 byte

Cập nhật mỗi giây một lần

setInterval(c=>{c.clear(d=new Date,m=d.getMinutes(),h=d.getHours(),H=_=>`0${h++}`.slice(-2)),c.log(H()+` ${'-'.repeat(m)}
${H()} `+'-'.repeat(60-m))},1e3,console)

Python 2, 131 129 127 byte

from time import*
while[sleep(9)]:exec(strftime("a='%H';b=int('%M')"));print "\n"*30+a+" "+"-"*b+"\n"+`int(a)+1`+" "+"-"*(60-b)

đã lưu một byte nhờ @TuukkaX

C 251 267 251 byte

 #include<time.h>f(){time_t t;struct tm *t1;h,m,i;while(1){time(&t);t1=localtime(&t);h=t1->tm_hour;m=t1->tm_min;printf("%d ",h);for(i=1;i<=m;i++)printf("-");puts("");printf("%d ",h+1);for(i=0;i<=59-m;i++)printf("-");puts("");sleep(1);system("clear");}}

Phiên bản ung dung

#include<time.h>
void f()
{
 time_t t;
 struct tm *t1;
 int h,m,i;

 while(1)
 {
  time(&t);     
  t1=localtime(&t);
  h=t1->tm_hour;
  m=t1->tm_min;

  printf("%d ",h);
  for(i=1;i<=m;i++)
   printf("-");

  puts("");
  printf("%d ",h+1);

  for(i=0;i<=59-m;i++)
   printf("-");

  puts("");    

  sleep(1);
  system("clear");    
 }
}

Hoàn thành công việc! Chắc chắn có thể được rút ngắn theo một cách nào đó. Giả sử unistd.htập tin được bao gồm.

@Neil Cảm ơn thông tin.

@Seth Cảm ơn, vì đã tiết kiệm 8 byte.

Lần đầu chơi gôn ...

Powershell, 116 byte (là 122)

while($d=date){$f="{0:D2}";$h=$d.Hour;$m=$d.Minute;cls;"$($f-f$h)$("-"*$m)`n$($f-f(++$h%24))$("-"*(60-$m))";Sleep 9}

Chỉnh sửa: Từ lời khuyên của @ admBorkBork, đã thay đổi Ngày cập nhật và Xóa thành cls, để tiết kiệm 6 byte.

PHP, 104 105 byte

<? for(;;sleep(6))printf("%'
99s%2d %'-".($m=date(i))."s
%2d %'-".(60-$m).s,"",$h=date(H),"",++$h%24,"");

giới thiệu cho printfnhân vật tùy chỉnh đệm của:
"%'-Ns"= chuỗi pad trái với -tới Nký tự.

sẽ in 99 dòng mới (cứ sau 6 giây) thay vì xóa màn hình.

Dòng mới đầu tiên phải là một ký tự duy nhất. Vì vậy, trên Windows, nó phải được thay thế bằng \n.

Ngôn ngữ GameMaker, 134 byte

s=" "while 1{s+="-"a=current_hour b=current_minute draw_text(0,0,string(a)+string_copy(s,1,b+1)+"#"+string(a+1)+string_copy(s,0,61-b)}

Trong cài đặt, bạn phải bỏ qua các lỗi không nghiêm trọng để làm việc này. Ngoài ra, trong GML, #tương đương với \nhầu hết các ngôn ngữ.

Perl 6 , 104 byte

DateTime.now.&{"\ec{.hour.fmt: '%2s'} {'-'x.minute}\n{(.hour+1).fmt: '%2s'} {'-'x 60-.minute}"}.say xx*

Cần phải được chạy trên thiết bị đầu cuối tương thích ANSI để trình tự điều khiển để đặt lại thiết bị đầu cuối hoạt động.

Khá cơ bản (vì các cách tiếp cận khó hiểu hơn tôi đã thử bật ra lâu hơn):

• DateTime.now.&{" "}.say xx*: Chuyển đổi thời gian hiện tại thành một chuỗi (xem bên dưới) và nói nó, và lặp lại tất cả số đó vô số lần. Chuỗi được xây dựng như thế này:
  • \ec: Mã điều khiển ANSI <ESC>cđể đặt lại thiết bị đầu cuối, giúp xóa màn hình.
  • {.hour.fmt: '%2s'}: giờ, căn phải sang 2 cột
  • : không gian
  • {'-'x.minute}: dấu gạch ngang lặp đi lặp lại trong phút
  • \n: dòng mới
  • {(.hour+1).fmt: '%2s'}: giờ tiếp theo, căn phải sang 2 cột
  • : không gian
  • {'-'x 60-.minute}: gạch ngang lặp đi lặp lại 60 lần trừ phút

AWK, 190 byte

#!/bin/awk -f
func p(x,y,c){printf("%2s ",x)
for(j=0;j<y;j++)printf(c)
print}BEGIN{for(;;){split(strftime("%H %M"),t)
m=t[2]
if(o!=m){p(a,30,"\n")
p(t[1],m,"-")
p((t[1]+1)%24,60-m,"-")}o=m}}

Vì AWKkhông có sleepchức năng tích hợp sẵn, tôi chỉ cần liên tục kiểm tra đồng hồ để xem phút đã thay đổi chưa. Điều quan trọng là nó hoạt động ... phải không? :)

Python 3.5, 127 120 117 byte

from time import*
while[sleep(9)]:h,m=localtime()[3:5];print('\n'*88,*['%2d '%x+'-'*y+'\n'for x,y in[(h,m),(h+1,60-m)]])

Python, 115 113 byte

_{đã lưu một vài byte nhờ @kundor và @Phlarx}

import time
while 1:h,m=time.localtime()[3:5];print("\x1b[0;H{:02} {}\n{:02} {} ".format(h,"-"*m,h+1,"-"*(60-m)))

Tương tác C # (138 byte)

while(true){var d=DateTime.Now;Console.WriteLine($"{d.Hour:00} {new string('-',d.Minute)}\n{d.Hour+1:00} {new string('-',60-d.Minute)}");}

PHP, 112 120 bytes

for(;;sleep(9))echo($s=str_pad)($h=date(H),99,"\n",0).$s(" ",1+$m=date(i),"-")."\n".$s(++$h%24,2,0,0).$s(" ",61-$m,"-");

As there's no way to clear the screen (that I can find) I had to go with a pile of newlines. Also the question being updated to "at least" once a minute saves a byte with 9 instead of 60.

edit: @Titus noticed a bug in the padding of the second hour. Fixing it cost 8 bytes.

Bash (3 và 4): 90 byte

d=(`sed s/./-/g<$0`);let `date +h=%H,m=%M`;echo $h ${d:0:m}'
'$[++h%24] ${d:m}
sleep 5
$0

Do việc sử dụng $0, this script must be put into a file, not pasted into an interactive bash shell.

Lệnh đầu tiên đặt $dthành 60 dấu gạch nối; nó dựa vào thực tế là dòng đầu tiên của kịch bản này dài 60 ký tự. Đây là ba ký tự ngắn hơn điều tốt nhất tiếp theo tôi có thể nghĩ ra:

d=`printf %060d|tr 0 -`

Nếu cuối cùng bạn không muốn điều này chạy hết hộp hoặc bộ nhớ, bạn có thể thêm evalvào đầu dòng cuối cùng, điều này sẽ tạo ra 95 byte này.

BASH, 165 141 155 byte

while :
do
clear
m=`date +%-M`
a=`printf %${m}s`
b=`printf %$((60-m))s`
h=`date +%H`
echo $h ${a// /-}
printf "%02d %s" $((10#$h+1)) ${b// /-}
sleep 9
done

Gura , 138 byte

k(a,b)={if(a<10){a="0"+a;}println(a," ","-"*b)};repeat{t=datetime.now();k(t.hour,t.min);k(t.hour+1,60-t.min);os.sleep(60);print("\n"*30);}

Pretty short and straightforward :)

Ok, haven't done a code golf in a while, so here goes my sad attempt :)

Unix Korn Shell: 177 171 170 bytes

while :
do
clear
h=`date +%H`
m=`date +%M`
d=-----
d=$d$d$d$d
d=$d$d$d
a=`echo $d|cut -b-$m`
let m=60-$m
b=`echo $d|cut -b-$m`
let i=h+1
echo "$h $a\n$i $b"
sleep 9
done

Mathematica, 235 bytes

d=UpdateInterval;e=Dynamic;f=Refresh;g=AbsoluteTime;Grid[Partition[Riffle[e[f[Floor@Mod[g[]/3600+#,24],d->1]]&/@{0,1},With[{t=#},e[f[""<>Array["-"&,If[t==60,60-#,#]]&@Setting@Floor@Mod[g[]/60+#,60],d->1]]]&/@{0,60}],2],Alignment->Left]

Processing, 204 200 198 197 bytes

5 bytes saved thanks to @L. Serné by using smarter ternaries

void draw(){int i;String s=((i=hour())>9?i:" "+i)+" ";for(i=0;i<minute();i++)s+="-";s+="\n"+((i=hour()+1)>9?i>23?" 0":i:" "+i)+" ";for(i=0;i<60-minute();i++)s+="-";print(s);for(;i++<99;)println();}

This outputs 30+ newlines for each update (which takes place when the frame gets updated)

Ungolfed

void draw(){
  int i;
  String s=((i=hour())>9?i:" "+i)+" ";
  for(i=0;i<minute();i++)
    s+="-";
  s+="\n"+((i=hour()+1)>9?i>23?" 0":i:" "+i)+" ";
  for(i=0;i<60-minute();i++)
    s+="-";print(s);
  for(;i++<99;)
    println();
}

C, 239 bytes

#include<time.h>
#include<unistd.h>
#define F printf(
void d(n,p){for(;n--;F"%c",p));}int main(){time_t*t;for(;;){d(30,10);time(t);int*m=localtime(t);F"%2d ",m[2]);d(m[1],45);F"\n%2d ",(m[2]+1)%24);d(60-m[1],45);F"\n");sleep(1);}return 0;}

Inspired by Seth's and Abel's entries, this will output 0 instead of 24 for the next hour, as required, and will use 30 lines to clear the screen.

SmileBASIC, 55 bytes

TMREAD OUT H,M,
CLS?H,"-"*M?(H+1)MOD 24,"-"*(60-M)EXEC.

Explanation:

TMREAD OUT HOUR,MINUTE,
CLS
PRINT HOUR,"-"*MINUTE
PRINT (HOUR+1) MOD 24,"-"*(60-MINUTE)
EXEC 0 'runs the code stored in slot 0 (the default)

Note: SmileBASIC only has 50 columns of text, so it won't look good...

C# 181 176

for(;;){Console.Clear();var t=DateTime.Now;var h=t.Hour;var m=t.Minute;Console.Write("{0,2} {1}\n{2,2} {3}",h,"".PadLeft(m,'-'),++h%24,"".PadLeft(60-m,'-'));Thread.Sleep(100);}

This code assumes that the using System.Threading; line is included.

Full class:

class Program
{
    static void Main(string[] args)
    {
        Console.Title = string.Format("Started the app at: {0}", DateTime.Now.TimeOfDay);
        //new Timer((o) => { Console.Clear(); var t = DateTime.Now; var h = t.Hour; var m = t.Minute; Console.Write("{0,2} {1}\n{2,2} {3}", h, "".PadLeft(m, '-'), ++h % 24, "".PadLeft(60 - m, '-')); }, null, 0, 60000);

        for (; ; ) { Console.Clear(); var t = DateTime.Now; var h = t.Hour; var m = t.Minute; Console.Write("{0,2} {1}\n{2,2} {3}", h, "".PadLeft(m, '-'), ++h % 24, "".PadLeft(60 - m, '-')); Thread.Sleep(100); }

        Console.ReadKey(true);
    }
}