Chciałbym, żebyś zbudował mi zegar, który wyświetla czas w tym formacie:

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

Wyświetla się „18: 10”. Bieżąca godzina i następna godzina są wyświetlane na początku wiersza, a następnie spacja i liczba myślników: w pierwszym wierszu liczba minut, które upłynęły w tej godzinie, a druga linia pokazuje, ile minut więcej iść za tę godzinę.

Wyjaśnić

• Zegar powinien wyświetlać czas systemowy. Jeśli pobieranie czasu z innego źródła jest wygodniejsze, to też jest w porządku. To nie może być dostarczony jako wejście.
• W 18:00górnej linii jest tylko 18(końcowe spacje dozwolone, ale nie wymagane)
• W 18:59dolnej linii jest19 -
• Godziny <10 są wstępnie wypełnione znakiem 0( 01 -----) lub wyrównane do prawej ( 1 -----). Wyrównana do lewej pojedyncza cyfra nie jest dozwolona, ​​nawet jeśli myślniki zaczynają się we właściwym miejscu ( 1 -----jest nieprawidłowa).
• Zegar powinien wyświetlać godziny w formacie 24-godzinnym.
• Chociaż nazywa się to formatem 24-godzinnym, tak naprawdę nie ma 24na nim żadnego . Podczas 23. godziny druga linia zaczyna się od 00lub 0.
• Wyświetlacz musi być aktualizowany co najmniej raz na minutę, ale nie musi to nastąpić dokładnie za 00sekundę. Możesz aktualizować częściej / w sposób ciągły, jeśli jest to wygodniejsze, ale wynik musi oczywiście być czytelny - nie jeden rozmaz na całym ekranie.

Wkład

Żaden.

Wydajność

• Jak opisano powyżej. W obu liniach dozwolone są końcowe spacje, aby wstawić zegar do 60-poziomowych pozycji, dozwolona jest również nowa linia.
• Ekran musi zostać wyczyszczony podczas wyświetlania następnej minuty: za pomocą polecenia wyczyść ekran lub dodając nie mniej niż 30 nowych linii.

Dodatkowe zasady

• Standardowe luki są zabronione
• code-golf , wygrywa najkrótsza odpowiedź w bajtach.

MATL , 41 bajtów

Dzięki @Kundor za zauważenie błędu, teraz poprawionego

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

Wypróbuj w MATL online! Pamiętaj jednak, że program zostaje zabity po 30 sekundach, więc trudno jest wyłapać jakiekolwiek zmiany w danych wyjściowych.

Jak to działa

`           % 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 bajty

" 
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

Stosunkowo proste. To ciąg z jedną spacją na początku. Godziny są wyrównane do prawej. Działa to tylko w kalkulatorach TI-84 +, ponieważ TI-83 nie ma wewnętrznego zegara.

Edycja: Dzięki @kundor za zauważenie, że nie zamknąłem ostatniej pętli. Naprawiono teraz (+2 bajty).

Edycja nr 2: Pierwsza godzina powinna wynosić zero, a nie dwadzieścia cztery. Korekta kosztem +14 bajtów.

Partia, 197 bajtów

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

Uwaga: 10. linia ma spację końcową. Dla mnie %time%formatuje godziny z wiodącym odstępem, ale minuty z wiodącym zero. Uznałem, że wiodące zero jest łatwiejszym formatem wyjściowym, ponieważ wszystko, co muszę zrobić, to dodać 100 godzin i usunąć pierwszą cyfrę. Minuty są trudniejsze, ponieważ spowodują 08lub 09spowodują błędy analizy ósemkowej, więc 1efektywnie dodaję 100 minut, dostosowując się do tego poprzez odpowiednie przesunięcie pętli, która jest bajtem krótszym niż odejmowanie 100.

Python 3.6, 110 114 112 bajtów

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

Wykorzystuje to nowe formatowanie ciągów F w celu zapisania jednego bajtu ( f'\n{h+1:2} 'vs. '\n%2d '%(h+1)) Możesz zmienić [sleep(9)]na, 1aby zapisać 8 bajtów, ale wtedy to tylko spamowanie ekranu.

Zapisane jeden bajt zmieniającą while 1:...;sleep 60się while[sleep(60)]:...dzięki TuukkaX.

Musiałem użyć jeszcze 5 bajtów, aby następna godzina wyświetlana po 23 była równa 0, zamiast 24, jak właśnie skomentował OP. :-(

Odzyskano jeden bajt, śpiąc tylko 9 sekund zamiast 60.

Zaoszczędziłem dwa bajty, używając krótkiego majsterkowania, aby skrócić (h+1)%24, zapożyczonego z rubinowej odpowiedzi Value Ink .

Ruby, 98 95 91 bajtów

Aktualizuje się co 5 sekund. Działa tylko w terminalach typu uniksowego.

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

Wersja wiersza polecenia systemu Windows, 95 92 bajty:

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 bajtów

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

Spróbuj raz z limitem jednej sekundy.

Lub wypróbuj zmienioną wersję, która generuje wynik działania przez kilka godzin.

Rozszerzony:

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 bajtów

Nie uruchamiaj tego zbyt długo, bo twój laptop się zapali. Teraz 99.several9s% ​​bardziej wydajny procesor.

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

Bez golfa i wyjaśnienia

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

Zaczynamy od wyczyszczenia ekranu, a następnie otrzymujemy bieżące godziny i minuty TIMER, które zwracają liczbę sekund od północy.

Po raz pierwszy próbowałem PRINT USING, więc z przyjemnością odkryłem, że nie ma zwyczajnego dziwactwa QBasic, że liczby dodatnie są drukowane z wiodącą spacją. ##ponieważ specyfikator formatu zapewnia, że ​​liczby jednocyfrowe są wyrównane do prawej i wypełnione spacją, zgodnie z wymaganiami. Niestety musimy użyć pętli dla łączników, ponieważ QBasic nie ma funkcji powtarzania łańcucha. (Jeśli się mylę, proszę dać mi znać!)

Wszystkie PRINTinstrukcje kończą się, ;aby ukryć nowy wiersz; ale po myślnikach potrzebujemy nowego wiersza; w ten sposób samotnik ?po wewnętrznej FORpętli.

To SLEEP 1jest teraz konieczne. Bez niego ekran jest usuwany tak szybko po wydrukowaniu, że to tylko migotliwy bałagan. (Z tego powodu użyłem LOCATE 1zamiast CLS, dopóki nie zdałem sobie sprawy, że CLSi SLEEPtak jest krótszy.) RUNPonownie uruchamia program od góry - najkrótszy sposób na uzyskanie nieskończonej pętli.

Java 8, 313 300 299 bajtów

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

To aktualizuje tylko co 30 iteracji pętli while. Pozostałe 29 iteracji po prostu drukuje nowe linie.

Zaktualizowano

Zaoszczędzono 13 14 bajtów dzięki pomocy Kevina Cruijssena! Dzięki!

C, 176 162 161 160 156 bajtów

Jest to rażące nadużycie wskaźników, ale kompiluje się i działa zgodnie z opisem. Pamiętaj, aby skompilować bez optymalizacji, w przeciwnym razie prawdopodobnie dojdziesz do awarii.

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

Nie golfowany:

#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 bajty

Aktualizacje raz na sekundę

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 bajtów

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

zapisał bajt dzięki @TuukkaX

C 251 267 251 bajtów

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

Wersja bez golfa

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

Wykonuje pracę! Zdecydowanie można go w jakiś sposób skrócić. Załóżmy, że unistd.hplik jest dołączony.

@Neil Dzięki za informację.

@Seth Thanks, za zapisanie 8 bajtów.

Pierwszy raz w golfa ...

PowerShell, 116 bajtów (było 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}

Edycja: Z porady @ AdmBorkBork zmieniono Get-Date na datę i Wyczyść na cls, aby zaoszczędzić 6 bajtów.

PHP, 104 105 bajtów

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

prezentacja printfniestandardowych znaków dopełniania:
"%'-Ns"= lewy ciąg padu z -do Nznaków.

wydrukuje 99 nowych linii (co 6 sekund) zamiast czyszczenia ekranu.

Pierwszy znak nowej linii musi być pojedynczym znakiem. W systemie Windows należy go zastąpić \n.

GameMaker Language, 134 bajty

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

W ustawieniach musisz ignorować niekrytyczne błędy, aby to zadziałało. Również w GML #jest równoważny z \nwiększością języków.

Perl 6 , 104 bajtów

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

Musi być uruchomiony na terminalu kompatybilnym z ANSI, aby sekwencja sterująca do resetowania terminala działała.

Całkiem proste (ponieważ bardziej zaciemnione podejścia, które próbowałem, okazały się dłuższe):

• DateTime.now.&{" "}.say xx*: Przekształć bieżący czas w ciąg znaków (patrz poniżej) i powiedz to, a następnie powtórz wszystko nieskończoną liczbę razy. Ciąg jest zbudowany w następujący sposób:
  • \ec: Kod sterujący ANSI <ESC>cdo resetowania terminala, który czyści ekran.
  • {.hour.fmt: '%2s'}: godzina, wyrównane do prawej do 2 kolumn
  • : przestrzeń
  • {'-'x.minute}: myślnik powtarzany razy minutę
  • \n: Nowa linia
  • {(.hour+1).fmt: '%2s'}: następna godzina, wyrównane do prawej do 2 kolumn
  • : przestrzeń
  • {'-'x 60-.minute}: myślnik powtarzany razy 60 minus minuta

AWK, 190 bajtów

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

Ponieważ AWKnie ma wbudowanej sleepfunkcji, po prostu stale sprawdzam zegar, aby sprawdzić, czy minuta się jeszcze nie zmieniła. Najważniejsze, że to działa ... prawda? :)

Python 3.5, 127 120 117 bajtów

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 bajtów

_{zaoszczędził kilka bajtów dzięki @kundor i @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 # Interactive (138 bajtów)

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 bajtów

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

Ponieważ nie ma sposobu na wyczyszczenie ekranu (który mogę znaleźć) musiałem iść z kupą nowych linii. Również pytanie, które jest aktualizowane do „co najmniej” raz na minutę, oszczędza bajt 9zamiast60 .

edycja: @Titus zauważył błąd w dopełnieniu drugiej godziny. Naprawienie kosztuje 8 bajtów.

Bash (3 i 4): 90 bajtów

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

Ze względu na użycie $0tego skryptu należy go umieścić w pliku, a nie wkleić w interaktywnej powłoce bash.

Pierwsze polecenie ustawia $dna 60 łączników; opiera się na fakcie, że pierwsza linia tego skryptu ma długość 60 znaków. To trzy postacie krótsze niż kolejna najlepsza rzecz, jaką mogłem wymyślić:

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

Jeśli nie chcesz, aby to ostatecznie powodowało, że Twoje urządzenie nie korzysta z PID-ów lub pamięci, możesz dodać eval na początku ostatniego wiersza, co dałoby 95 bajtów.

BASH, 165 141 155 bajtów

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 bajtów

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

Dość krótkie i proste :)

Ok, nie robiłem już golfa od jakiegoś czasu, więc oto moja smutna próba :)

Unix Korn Shell: 177 171 170 bajtów

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 bajtów

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]

Przetwarzanie, 204 200 198 197 bajtów

5 bajtów zapisanych dzięki @L. Serné przy użyciu inteligentniejszych trójskładników

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

To daje ponad 30 nowych linii dla każdej aktualizacji (która ma miejsce, gdy ramka zostanie zaktualizowana)

Nie golfił

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 bajtów

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

Zainspirowany wpisami Setha i Abla, w razie potrzeby wyświetli 0 zamiast 24 przez następną godzinę i użyje 30 linii do wyczyszczenia ekranu.

SmileBASIC, 55 bajtów

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

Wyjaśnienie:

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)

Uwaga: SmileBASIC ma tylko 50 kolumn tekstu, więc nie będzie dobrze wyglądać ...

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

Ten kod zakłada, że using System.Threading;wiersz jest uwzględniony.

Pełna klasa:

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