Я хотів би, щоб ви побудували мені годинник, який відображає час у такому форматі:

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

Це відображає '18: 10 '. Поточна година та наступна година відображаються в передній частині рядка, після чого пробіл і ряд тире: на першому рядку кількість хвилин, що пройшли за цю годину, а в другому рядку відображається скільки ще хвилин йти в цю годину.

Для уточнення

• Годинник повинен відображати час системи. Якщо час отримати з іншого джерела зручніше, це теж добре. Він може не подаватися як вхід.
• У 18:00верхньому рядку просто 18(пробіли дозволені, але не обов'язкові)
• В 18:59, в нижньому рядку19 -
• Години <10 або попередньо обкладені 0( 01 -----), або вирівняні вправо ( 1 -----). Однозначна вирівнювання ліворуч не дозволена, навіть якщо тире починається в потрібному місці ( 1 -----недійсне).
• Годинник повинен відображати години у форматі 24 години.
• Хоча це називається 24-годинним форматом, насправді 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-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'\n{h+1:2} 'проти '\n%2d '%(h+1)) . Ви можете змінити , [sleep(9)]щоб 1врятувати 8 байт, а потім він просто спам екрану.

Збережений один байт змінився while 1:...;sleep 60на while[sleep(60)]:..., завдяки TuukkaX.

Мені довелося використати ще 5 байтів, щоб наступна година відображалася після 23, щоб вона становила 0, а не 24, як ОП щойно коментував. :-(

Відновлено один байт, спавши лише 9 секунд замість 60.

Збережено два байти за допомогою скорочення (h+1)%24, щоб скоротити , запозичене у відповіді Ruby Value Ink .

Рубі, 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 байт

Не запускайте це дуже довго, або ваш ноутбук загориться. Зараз на 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спочатку з цієї причини, поки не зрозумів цьогоCLS з " SLEEPвсе одно коротше".) RUNПерезапускає програму зверху - найкоротший спосіб отримати нескінченний цикл.

Ява 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. Інші 29 ітерацій просто друкують нові рядки.

Оновлено

Збережено 13 14 байтів завдяки допомозі Кевіна Круїссена! Спасибі!

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

Безголівки:

#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, змінити «Дата отримання» на дату та «Очистити» на 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: Код управління 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 байт

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

Пітон, 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,"-");

Оскільки немає можливості очистити екран (що я можу знайти), мені довелося перейти з купою нових рядків. Також питання, яке оновлюється до "принаймні" раз на хвилину, економить байт, 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.

Перша команда встановлює $d60 дефісів; він спирається на те, що перший рядок цього сценарію має 60 символів. Це на три символи коротше, ніж наступне найкраще, що я міг би придумати:

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

Якщо ви не хочете, щоб у вашому полі в кінцевому підсумку вичерпувався PID або пам'ять, ви можете додати eval до початку останнього рядка, який би зробив це 95 байт.

БАШ, 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

Математика, 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. Серне, використовуючи розумніші тернари

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

Натхненний записами Сета та Авеля, це буде виводити 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 стовпців тексту, тому він не буде добре виглядати ...

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