我希望您为我制造一个时钟，以这种格式显示时间：

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

这将显示“ 18:10”。当前小时和下一个小时显示在该行的前面，后跟一个空格和一些破折号：在第一行中，该小时中经过的分钟数，第二行显示了还有多少分钟在这个小时内去。

澄清

• 时钟应显示系统时间。如果从其他来源获取时间更方便，那也很好。它可能不作为输入提供。
• 在18:00，最上面的行是18（允许但不要求尾随空格）
• 在18:59的底线是19 -
• <10小时可以用0（01 -----）或右对齐（ 1 -----）预先填充。即使破折号从正确的位置开始（1 -----无效），也不允许左对齐的一位数字。
• 时钟应以24h格式显示小时。
• 尽管它被称为24h格式，但实际上没有24。在第23小时内，第二行以00或开头 0。
• 显示至少需要每分钟更新一次，但这不必在精确的00几秒钟内进行。如果方便的话，您可以更频繁地/连续地进行更新，但是结果当然仍然必须清晰可辨-屏幕上不会出现任何拖尾现象。

输入项

没有。

输出量

• 如上所述。两行都允许使用尾随空格将时钟填充到60位置，还允许尾随换行符。
• 在显示下一分钟时，需要清除屏幕：使用清除屏幕命令或添加不少于30个换行符。

附加规则

• 禁止出现标准漏洞
• 代码高尔夫，最短答案（以字节为单位）获胜。

MATL，41字节

感谢@Kundor注意错误，现已更正

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

在线尝试在MATL！但是请注意，该程序会在30秒后被终止，因此很难捕获输出中的任何更改。

怎么运行的

`           % 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个字节

" 
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

比较简单。那是一个字符串，开头有一个空格。时间是右对齐的。由于TI-83没有内部时钟，因此只能在TI-84 +计算器上使用。

编辑：感谢@kundor注意到我没有关闭最后一个循环。已修复（+2字节）。

编辑2：第一个小时应该为零，而不是二十四。已以+14字节为代价进行了更正。

批次，197个字节

@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%

注意：第10行有一个尾随空格。对我来说，%time%小时格式的前导空格，而分钟格式的前导零。我认为前导零是一种更简单的输出格式，因为我要做的就是增加100小时并删除第一个数字。分钟如棘手08或09将导致八进制解析错误，所以前缀一个1有效加入100分钟，通过偏移适当地循环，这是一个字节比减去100较短的调整此。

蟒3.6，110个 114 112字节

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

这使用新的f字符串格式来保存一个字节（f'\n{h+1:2} 'vs）'\n%2d '%(h+1)。您可以更改[sleep(9)]为1挽救8个字节，但当时它只是修建垃圾屏幕。

保存一个字节更改 while 1:...;sleep 60while[sleep(60)]:...感谢TuukkaX，将为，为。

我不得不再使用5个字节才能使23点之后的下一小时显示为0，而不是24，正如OP刚刚评论的那样。:-(

通过仅休眠9秒而不是60秒恢复一个字节。

(h+1)%24从Value Ink的Ruby答案借用了位修饰来节省了两个字节。

Ruby，98 95 91字节

每5秒更新一次。仅适用于Unix风格的终端。

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

Windows命令提示符版本，95 92字节：

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字节

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

一秒钟超时尝试一次。

或尝试更改版本以输出运行几个小时的结果。

展开：

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字节

请勿长时间运行，否则笔记本电脑会着火。现在，CPU效率提高了99.several9s％。

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

脱节和解释

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

我们先清除屏幕，然后从 TIMER，这将返回自午夜以来的秒数。

这是我第一次尝试PRINT USING，所以我很高兴发现它不会受到通常的QBasic怪异的困扰，即正数印有前导空格。##作为格式说明符，可确保根据需要将一位数字右对齐并用空格填充。不幸的是，由于QBasic没有字符串重复功能，我们必须对连字符使用循环。（如果我弄错了，请告诉我！）

所有PRINT语句都;以禁止换行符结尾；但是在连字符后，我们需要换行符；因此，?内FOR循环之后是孤独的。

现在SLEEP 1是必须的。没有它，打印后屏幕很快就会被清除，以至于只是一团糟。（出于这个原因，我最初使用LOCATE 1而不是使用CLS它，直到我意识到CLSwith SLEEP总是更短。）RUN从顶部重新启动程序，这是获得无限循环的最短方法。

Java的8，313个 300 299字节

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

这只会在while循环中每30次迭代更新一次。其他29个迭代仅打印新行。

更新

在凯文·克鲁伊森（Kevin Cruijssen）的帮助下，节省了13个 14字节！谢谢！

C，176个 162 161 160 156字节

这是一个 对指针严重滥用，但是会按照指定的方式进行编译和运行。确保编译时没有优化，否则您可能会遇到段错误。

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

取消高尔夫：

#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个字节

每秒更新一次

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字节

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

@TuukkaX节省了一个字节

Ç 251 267 251字节

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

非高尔夫版本

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

完成工作！绝对可以以某种方式缩短。假设unistd.h包括文件。

@Neil感谢您的信息。

@Seth感谢您保存8个字节。

第一次打高尔夫球...

Powershell，116个字节（之前为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}

编辑：根据@AdmBorkBork的建议，将Get-Date更改为日期，并将Clear更改为cls，以节省6个字节。

PHP，104个 105字节

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

用于展示printf的自定义填充字符：
"%'-Ns"=左垫字符串-来N字符。

将打印99行（每6秒）换行符，而不是清除屏幕。

第一换行符必须是单个字符。因此，在Windows上，必须将其替换为\n。

GameMaker语言，134个字节

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

在设置中，您必须忽略非致命错误才能使其正常运行。同样，在GML中，#等效\n于大多数语言。

Perl 6、104字节

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

需要在ANSI兼容终端上运行，以便重置终端的控制序列起作用。

很基本（因为我尝试的方法更加混淆）：

• DateTime.now.&{" "}.say xx*：将当前时间转换为字符串（请参见下文）并说出来，然后重复所有无穷多次。字符串是这样构建的：
  • \ec：<ESC>c用于重置终端的ANSI控制代码，可清除屏幕。
  • {.hour.fmt: '%2s'}：小时，右对齐2列
  • ： 空间
  • {'-'x.minute}：短划线重复分钟
  • \n： 新队
  • {(.hour+1).fmt: '%2s'}：下一小时，右对齐2列
  • ： 空间
  • {'-'x 60-.minute}：重复破折号60减去分钟

AWK，190字节

#!/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}}

由于AWK没有内置sleep功能，因此我只是不断地检查时钟以查看分钟是否已更改。关键是它可以工作...对吗？:)

蟒3.5，127个 120 117字节

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字节

_{@kundor和@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)))

C＃交互式（138字节）

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，112120字节

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,"-");

由于无法清除屏幕（我可以找到），因此不得不使用一堆换行符。同样，每分钟更新为“至少”一次的问题将保存一个字节，9而不是60。

编辑：@Titus注意到第二个小时的填充中的错误。修复它需要8个字节。

Bash（3和4）：90个字节

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

由于使用$0，必须将此脚本放入文件中，而不是粘贴到交互式bash shell中。

第一个命令设置$d为60个连字符。它依赖于此脚本的第一行长60个字符的事实。这比我能想到的下一个最佳选择短三个字符：

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

如果您不希望它最终使框用完PID或内存，则可以添加eval到最后一行的开头，这将使这95个字节成为可能。

BASH，165个 141 155字节

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

古拉，138个字节

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

相当简短明了:)

好的，已经有一段时间没有进行代码高尔夫了，所以这是我可悲的尝试:)

UNIX Korn外壳：177 171 170字节

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个字节

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]

处理中，204 200 198 197字节

@L节省了5个字节。通过使用更智能的三元体系

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

每次更新输出30多个换行符（当框架更新时发生）

不打高尔夫球

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字节

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

受塞思（Seth）和亚伯（Abel）条目的启发，根据需要，此函数将在下一个小时输出0而不是24，并将使用30行清除屏幕。

SmileBASIC，55个字节

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

说明：

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)

注意：SmileBASIC只有50列文字，因此看起来不太好...

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

此代码假定包含该using System.Threading;行。

全班：

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