ฉันต้องการให้คุณสร้างนาฬิกาที่แสดงเวลาในรูปแบบนี้:

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

แสดง '18: 10 ' ชั่วโมงปัจจุบันและชั่วโมงถัดไปจะปรากฏขึ้นที่ด้านหน้าของบรรทัดตามด้วยช่องว่างและจำนวนขีดกลาง: ในบรรทัดแรกจำนวนนาทีที่ผ่านไปในชั่วโมงนี้และบรรทัดที่สองแสดงจำนวนนาทีที่มากขึ้น ที่จะไปในชั่วโมงนี้

เพื่อชี้แจง

• นาฬิกาควรแสดงเวลาของระบบ หากการดึงเวลาจากแหล่งอื่นสะดวกกว่าก็ทำได้เช่นกัน มันอาจจะไม่ได้จะมาเป็น input
• ที่18:00บรรทัดบนสุดเป็นเพียง18(อนุญาตให้ใช้ช่องว่างต่อท้าย แต่ไม่จำเป็น)
• ที่18:59บรรทัดล่างคือ19 -
• ชั่วโมง <10 มีการบุด้วยล่วงหน้า0( 01 -----) หรือจัดชิดขวา ( 1 -----) ไม่อนุญาตให้ใช้ตัวเลขหลักเดียวชิดซ้ายแม้ว่าเครื่องหมายขีดกลางจะเริ่มต้นที่ถูกต้อง ( 1 -----ไม่ถูกต้อง)
• นาฬิกาควรแสดงชั่วโมงในรูปแบบ 24 ชั่วโมง
• แม้ว่ามันจะเรียกว่ารูปแบบ 24 ชั่วโมง แต่จริงๆแล้ว24มันไม่ได้อยู่ในนั้น ในช่วงชั่วโมง 23 บรรทัดที่สองเริ่มต้นด้วยหรือ00 0
• จอแสดงผลจำเป็นต้องได้รับการอัพเดตอย่างน้อยหนึ่งครั้งต่อนาที แต่ไม่จำเป็นต้องเกิดขึ้นใน00เวลาไม่กี่วินาที คุณสามารถอัปเดตบ่อยครั้ง / อย่างต่อเนื่องหากสะดวกกว่า แต่ผลลัพธ์ที่แน่นอนต้องยังคงชัดเจน - ไม่ใช่หนึ่งป้ายทั่วหน้าจอ

อินพุต

ไม่มี.

เอาท์พุต

• ตามที่อธิบายไว้ข้างต้น ช่องว่างต่อท้ายเพื่อเลื่อนนาฬิกาไปยังตำแหน่ง 60-ish ได้รับอนุญาตบนทั้งสองบรรทัดบรรทัดใหม่ต่อท้ายจะได้รับอนุญาต
• ต้องล้างหน้าจอเมื่อแสดงในนาทีถัดไป: ด้วยคำสั่งล้างหน้าจอหรือเพิ่มบรรทัดใหม่ไม่น้อยกว่า 30 บรรทัด

กฎเพิ่มเติม

• ช่องโหว่มาตรฐานเป็นสิ่งต้องห้าม
• code-golfคำตอบที่สั้นที่สุดในจำนวนไบต์ชนะ

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-84 + เท่านั้นเนื่องจาก TI-83 ไม่มีนาฬิกาภายใน

แก้ไข: ขอบคุณ @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

Python 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 ไบต์ แต่แล้วมันก็ spams หน้าจอ

บันทึกหนึ่งไบต์เปลี่ยนwhile 1:...;sleep 60เป็นwhile[sleep(60)]:...ขอบคุณ TuukkaX

ฉันต้องใช้อีก 5 ไบต์เพื่อให้ชั่วโมงถัดไปแสดงหลังจาก 23 เป็น 0 แทนที่จะเป็น 24 เนื่องจาก OP เพิ่งแสดงความคิดเห็น :-(

กู้คืนหนึ่งไบต์ด้วยการนอนหลับเพียง 9 วินาทีแทนที่จะเป็น 60

ที่บันทึกไว้ไบต์ที่สองโดยใช้บิตเล่นซอย่น(h+1)%24ยืมมาจากราคาหมึกคำตอบทับทิม

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.se%

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

Ungolfed และคำอธิบาย

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ตอนแรกด้วยเหตุผลนั้นจนกระทั่งฉันรู้ว่าCLSด้วยความ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();}}

การอัปเดตนี้จะทำซ้ำทุก ๆ 30 รอบของ while loop การทำซ้ำอีก 29 รายการเพียงพิมพ์บรรทัดใหม่

Updated

บันทึก13 14 ไบต์เนื่องจากความช่วยเหลือของ Kevin Cruijssen! ขอบคุณ!

C, 176 162 161 160 156 ไบต์

นี่เป็นการละเมิดขั้นต้นของพอยน์เตอร์ แต่คอมไพล์และรันตามที่ระบุ ตรวจสอบให้แน่ใจว่าได้รวบรวมโดยไม่มีการเพิ่มประสิทธิภาพมิฉะนั้นคุณมีแนวโน้มที่จะตี 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));}

Ungolfed:

#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

C 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 เป็น date และ Clear to 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ตัวละครที่กำหนดเอง padding:
"%'-Ns"= สตริงเบาะซ้ายด้วย-เพื่อNตัวละคร

จะพิมพ์ 99 บรรทัดใหม่ (ทุก 6 วินาที) แทนการล้างหน้าจอ

ขึ้นบรรทัดใหม่ต้องเป็นอักขระตัวเดียว ดังนั้นใน Windows \nก็ต้องถูกแทนที่ด้วย

GameMaker Language ขนาด 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: รหัสควบคุม ANSI <ESC>cสำหรับการรีเซ็ตเทอร์มินัลซึ่งจะล้างหน้าจอ
  • {.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ฟังก์ชั่นในตัวฉันเพียงแค่ให้มันตรวจสอบนาฬิกาอย่างต่อเนื่องเพื่อดูว่านาทีนั้นเปลี่ยนไปหรือไม่ สิ่งสำคัญคือมันใช้งานได้ ... ใช่มั้ย :)

Python 3.5, 127 120 117 bytes

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, 112 120 ไบต์

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

เนื่องจากไม่มีวิธีล้างหน้าจอ (ที่ฉันสามารถหาได้) ฉันต้องไปกับกองขึ้นบรรทัดใหม่ คำถามที่ถูกอัปเดตเป็น "อย่างน้อย" หนึ่งครั้งต่อนาทีจะบันทึกไบต์ด้วย960แทน

แก้ไข: @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 แบบโต้ตอบ

คำสั่งแรกตั้ง$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

Gura , 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 Shell: 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 ไบต์

บันทึก 5 ไบต์ด้วย @L Sernéโดยใช้ 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();}

เอาต์พุตนี้มีการขึ้นบรรทัดใหม่ 30+ สำหรับการอัปเดตแต่ละครั้ง (ซึ่งจะเกิดขึ้นเมื่อเฟรมได้รับการอัพเดต)

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 ไบต์

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