Wyświetl zegar cyfrowy

(Widzę, że istnieje wiele wyzwań związanych z zegarem, próbowałem je wszystkie odczytać, jestem prawie pewien, że jest to wyjątkowy)

Wpisz kod, który stale aktualizuje cyfrowy zegar wyświetlany w formacie h:m:sgdzie h, mi smoże zająć 1 lub 2 znaków każdy. Ograniczenia w prostych słowach, jak to ujął @BlueEyedBeast, zasadniczo chcę, aby zastąpiło pokazany czas.

• Nowe linie są niedozwolone
• Końcowe spacje są dozwolone
• Inne końcowe znaki są niedozwolone
• Nie należy przegapić żadnych sekund (57 -> 59 nie jest dozwolone)
• Numery rozpoczynające się od „0” są dozwolone, o ile nie zajmują więcej niż 2 znaki
• Kod nie może akceptować żadnych danych wejściowych
• Jeśli twój język nie może uzyskać aktualnego czasu bez wprowadzania danych, możesz użyć do wprowadzenia do 8 bajtów w standardowy dozwolony sposób
• Dane wyjściowe muszą być ustawione na standardowe wyjście
• To jest codegolf, więc wygrywa najkrótsza odpowiedź!

Przykład

Pracuję nad językiem o nazwie *> <> (rozgwiazda), ponieważ takie programy nie są możliwe w> <> (wystarczy poczekać na plik we / wy). Oto działający program zegara cyfrowego (bez golfa). Ten program jest napisany w *> <> :

s":"m":"hnonon"   "ooo88888888888ooooooooooo1S

^{Uwaga: w tym przypadku wszystko jest identyczne z> <>, z wyjątkiem s = sekunda, m = minuta, h = godzina, S = sen (100 ms * x)}

To daje:

14:44:31

Aktualizowanie co 100 ms aż do zakończenia.

Niedozwolone przykłady

Następujące elementy nie są dozwolone:

1:

14:44:3114:44:32

2:

14:44:31 14:44:32

3:

14:44:31
14:44:32

Czas musi pozostać w pierwszym wierszu, w którym został wygenerowany, bez widocznych znaków końcowych. Wyczyszczenie terminala byłoby jednak dozwolone, ponieważ nadal nie będzie żadnych znaków końcowych.

Pyke, 6 bajtów

Ctr\ J

Wypróbuj tutaj!

Myślę, że to jest poprawne. Zamień znak spacji na znak powrotu karetki, aby uzyskać prawidłowe dane wyjściowe (nie działa online)

HTML + JS (ES6), 8 + 60 = 68 bajtów

Testowane w Chrome.

setInterval`a.innerHTML=new Date().toLocaleTimeString('fr')`

<a id=a>

-1 bajt (@ETHProductions): Użyj francuskiego formatu czasu zamiast .toTimeString().slice(0,8)

HTML + JS (ES6), 8 + 62 = 70 bajtów

Będzie to działać w FireFox.

setInterval('a.innerHTML=new Date().toLocaleTimeString`fr`',0)

<a id=a>

-3 bajty (@ETHProductions): Użyj francuskiego formatu czasu zamiast .toTimeString().slice(0,8)

Python 2, 50 bajtów

(Python 2.1+ dla ctime bez argumentów)

import time
while 1:print'\r'+time.ctime()[11:19],

time.ctime() daje sformatowany ciąg, z którego można pokroić hh: mm: ss za pomocą [11:19] (pozostaje on w tym samym miejscu bez względu na datę i godzinę).

printpowrót karetki '\r'przed tekstem i uczynienie z niego pierwszego elementu krotki, efektywnym pomijaniem ukrytego końca '\n'i nadpisuje poprzednio napisane wyjście.

while 1 pętle na zawsze.

Mathematica, 48 41 37 28 bajtów

Do[s=Now[[2]],∞]~Monitor~s

Wyjście będzie TimeObjectodświeżane w sposób ciągły.

Wygląda tak:

Alternatywne wersje

48 bajtów:

Dynamic@Refresh[TimeObject[],UpdateInterval->.1]

53 bajty:

Dynamic@Refresh[DateString@"Time",UpdateInterval->.1]

Widzę, że wymóg niesygnałowego wejścia interfejsu użytkownika do zatrzymania programu został usunięty. Teraz możemy zrobić:

Bash + coreutils, 28

yes now|date -f- +$'\e[2J'%T

yes nieprzerwanie wysyła ciąg „teraz”, raz na linię, do potoku.

date -f-odczytuje interpretuje każdy „teraz” jako bieżący czas, a następnie wyświetla w wymaganym formacie. Ciąg formatu zawiera sekwencję zmiany znaczenia ANSI, aby wyczyścić ekran. date robi wyjście znak nowej linii po dacie - Nie jestem pewien, czy to dyskwalifikuje, ponieważ wygaszenie ekranu za każdym razem, w każdym razie.

Jeśli to dyskwalifikuje, możemy użyć tr zamiast tego :

Bash + coreutils, 31

yes now|date -f- +%T|tr \\n \\r

Poprzednie odpowiedzi:

Bash + X, 32

xclock -d -update 1 -strftime %T

Niestety może to być aktualizowane tylko co sekundę. Jeśli to dyskwalifikuje, możemy to zrobić zamiast tego:

Bash + coreutils, 43

until read -t0
do printf `date +%T`\\r
done

QBIC , 6 bajtów

{_C?_d

{      Starts a DO-loop
 _C    CLS
   ?   PRINT
    _d TIME$

Ciągle czyści ekran i drukuje czas systemowy w formacie 22:03:41.

Clojure, 150 136 141 bajtów

V3: 141 bajtów :(

+5 bajtów, aby naprawić błąd. Ponieważ czasy nie są wypełnione zerami, zegar może się „kurczyć” i rozszerzać, gdy zmienia się czas. Kiedy się skurczył, „rozmazywał się”, ponieważ ostatnia cyfra nie była już usuwana. Naprawiono to, dodając spacje na końcu, aby wszystko zostało zastąpione.

#(while true(flush)(print(str(apply str(repeat 9"\b"))(.format(java.text.SimpleDateFormat."H:m:s")(java.util.Date.))"   "))(Thread/sleep 99))

V2: 136 bajtów

#(while true(flush)(print(str(apply str(repeat 9"\b"))(.format(java.text.SimpleDateFormat."H:m:s")(java.util.Date.))))(Thread/sleep 99))

-14 bajtów, przełączając SimpleDateFormatna formatowanie daty za pomocą. Wciąż ogromny.

V1: 150 bajtów

#(while true(let[d(java.util.Date.)](flush)(print(str(apply str(repeat 9 "\b"))(.getHours d)":"(.getMinutes d)":"(.getSeconds d)))(Thread/sleep 100)))

Uświadomiłem sobie, że prawdopodobnie używam najgorszego możliwego sposobu, aby uzyskać datę. Zdecydowanie miejsce na ulepszenia tutaj.

Nie golfowany:

(defn -main []
  (while true
    (let [d (java.util.Date.)]
      (flush)
      (print
        (str
          (apply str (repeat 9 "\b"))
          (.getHours d)":"(.getMinutes d)":"(.getSeconds d)))
      (Thread/sleep 100))))

Bash + zegarek, 19 bajtów

zegarek nie jest częścią coreutils , ale jest dostępny po instalacji praktycznie na każdej dystrybucji Linuksa.

Grał w golfa

watch -tn1 date +%T

Wypróbuj online!

WinDbg, 73 bajty

.do{r$t0=0;.foreach(p {.echotime}){r$t0=@$t0+1;j8==@$t0'.printf"p \r"'}}1

Ciągle aktualizuje linię z bieżącym czasem, dopóki użytkownik nie naciśnie Ctrl + Break.

Jak to działa:

.do                          * Start do-while loop
{
    r$t0 = 0;                * Set $t0 = 0
    .foreach(p {.echotime})  * Foreach space-delimited word in a sentence like "Debugger (not 
    {                        * debuggee) time: Mon Dec  5 14:08:10.138 2016 (UTC - 8:00)"
        r$t0 = @$t0+1;       * Increment $t0
        j 8==@$t0            * If $t0 is 8 (ie- p is the current time)
        '
            .printf"p \r"    * Print p (current time) and \r so the next print overwrites
        '
    }
} 1                          * Do-while condition: 1, loop forever

Przykładowe dane wyjściowe (masz pomysł):

0:000> .do{r$t0=0;.foreach(p {.echotime}){r$t0=@$t0+1;j8==@$t0'.printf"p \r"'}}1
14:10:12.329

PHP, 28 bajtów

for(;;)echo date("\rH:i:s");

dateWszystko druki funkcyjne dosłownie że doesnt rozpoznać.

\r jest znakiem powrotu karetki, ustawia kursor w pierwszej kolumnie.

Uruchom z -r.

MATL , 11 bajtów

`XxZ'13XODT

Nieskończona pętla, która czyści ekran i drukuje czas w określonym formacie.

Możesz spróbować w MATL Online! . Ten kompilator jest eksperymentalny; jeśli to nie działa odśwież stronę i ponownie naciśnij „Uruchom”.

C #, 82 bajty

()=>{for(;;)Console.Write(new string('\b',8)+DateTime.Now.ToString("HH:mm:ss"));};

Anonimowa metoda, która nieustannie zastępuje 8 znaków nowym wynikiem. Może być skrócony o 1 bajt, jeśli zostanie zmodyfikowany, aby zaakceptować parametr zastępczy (z=>... ).

Pełny program:

using System;

public class Program
{
    public static void Main()
    {
        Action a =
        () =>
        {
            for (;;)
                Console.Write(new string('\b', 8) + DateTime.Now.ToString("HH:mm:ss"));
        };

        a();
    }
}

C #, 65 bajtów

()=>{for(;;)Console.Write("\r"+DateTime.Now.ToLongTimeString());};

Działa poprzez zastąpienie tej samej linii w nieskończonej pętli

SmileBASIC 3.3.2, 38 bajtów

@L?TIME$;" ";
GOTO@L

UTF-16 jest do bani :(

W każdym razie to wielokrotnie drukuje czas lokalny w GG: MM: SS ze spacją po nim, bez nowej linii później. Nie aktualizuje się co sekundę, po prostu drukuje wielokrotnie na zawsze.

C, 134 116 89 80 76 75 73 bajtów

main(n){for(;time(&n);)printf("\r%02d:%02d:%02d",n/3600%24,n/60%60,n%60);}

---- Old versions:
main(n){for(;;)n=time(0),printf("\r%02d:%02d:%02d",n/3600%24,n/60%60,n%60);}

n;main(){for(;;)n=time(0),printf("\r%02d:%02d:%02d",n/3600%24,n/60%60,n%60);}

---- 

n;main(){for(;;)n=time(0),printf("\r%02d:%02d:%02d",n/3600%24,n/60%60,n%60);}

----

Saved 9 more bytes thanks to @nmjcman101 again:
n;main(){for(;;)n=time(0),printf("\r%02d:%02d:%02d",(n/3600)%24,(n/60)%60,n%60);}

----

Saved 27 bytes thanks to @nmjcman101
n,b[9];main(){for(;;){n=time(0);strftime(b,9,"%H:%M:%S",localtime(&n));printf("\r%s",b);}}

----

I figured out I don't need to put `#include<stdio.h>` into the file :)
#include<time.h>
main(){for(;;){time_t n=time(0);char b[9];strftime(b,9,"%H:%M:%S",localtime(&n));printf("\r%s",b);}}

----

#include<time.h>
#include<stdio.h>
main(){for(;;){time_t n=time(0);char b[9];strftime(b,9,"%H:%M:%S",localtime(&n));printf("\r%s",b);}}

Powershell, 39 bytes

for(){write-host -n(date -F h:m:s`0`r)}

Because I dislike using cls in Powershell. From briantist's post @/codegolf//a/102450/63383

Pascal, 61 bytes

uses sysutils;begin while 1=1do write(#13,timetostr(now))end.

Free pascal has nice time routines in SysUtils unit. Ungolfed:

uses
  sysutils;
begin
  while 1=1 do
    write(#13, timetostr(now));
end.

C 65 (prev 64) bytes

Guaranteed to work on Linux machine. :)

@Marco Thanks!

f(){while(1){system("date +%T");usleep(100000);system("clear");}}

Vim, 26 bytes

qqS<C-r>=strftime("%T")<CR><esc>@qq@q

This creates a recursive macro (e.g. an eternal loop) that deletes all the text on the current line and replaces it with the current time.

Pyth - 28 bytes

Kinda longish, because pyth has no strftime.

#p+"\r"j\:m.[`02`dP>4.d2.d.1

Groovy, 45 characters

for(;;)print(new Date().format("\rHH:mm:ss"))

Jelly, 8 bytes

13Ọ7ŒTȮß

13Ọ        chr(13), carriage return
   7ŒT     time string, which extends the previous character
      Ȯ    print
       ß   call the whole link again

Try it online!

The carriage return doesn't work online, and I can't get the interpreter to work, so its kinda untested, but it works as expected when I use printable characters in place of the CR.

ForceLang, 123 bytes

def s set
s d datetime
s z string.char 8
s z z.repeat 16
label 1
io.write z
io.write d.toTimeString d.now()
d.wait 9
goto 1

datetime.toTimeString is backed in the reference implementation by Java's DateFormat.getTimeInstance(), which is locale-dependent, so you can set your default system locale to one that uses 24-hour time.

PowerShell, 30 28 24 20 bytes

Changed my computer's region to Germany based on raznagul's comment to save 4 bytes. :)

for(){date -F T;cls}

Previous version that works in all locales.

for(){date -F h:m:s;cls}

tcl, 69 bytes

while 1 {puts -nonewline \r[clock format [clock seconds] -format %T]}

Try it here!

Batch, 36 bytes

@set/p.=␈␈␈␈␈␈␈␈%time:~0,8%<nul
@%0

Where ␈ represents the ASCII BS character (code 8).

Racket, 71 bytes

(require srfi/19)(let l()(display(date->string(current-date)"↵~3"))(l))

Where the ↵ is actually a CR (hex 0d). Hex dump of the program for further clarification (notice byte at position hex 4d):

00000000  28 72 65 71 75 69 72 65  20 73 72 66 69 2f 31 39  |(require srfi/19|
00000010  29 28 6c 65 74 20 6c 28  29 28 64 69 73 70 6c 61  |)(let l()(displa|
00000020  79 28 64 61 74 65 2d 3e  73 74 72 69 6e 67 28 63  |y(date->string(c|
00000030  75 72 72 65 6e 74 2d 64  61 74 65 29 22 0d 7e 33  |urrent-date)".~3|
00000040  22 29 29 28 6c 29 29                              |"))(l))|
00000047

Uses SRFI/19 included with the Racket distribution. (current-date) gets the current local date & time. The date->string format ~3 is ISO-8601 hour-minute-second format. (let l () ... (l)) in an idiomatic infinite loop. (require srfi/19) loads the srfi/19 module.

C, 156 bytes

#include<stdio.h>
#include<time.h>
int main(){time_t a;struct tm *b;char c[9];for(;;){time(&a);b=localtime(&a);strftime(c,9,"%H:%M:%S",b);printf("%s\r",c);}}

TI-Basic, 40 Bytes

(In TI-BASIC, many characters are 2 byte tokens, and colons at the beginning of a line are 0 extra bytes)

:ClrHome
:Output(1,6,":
:setTmFmt(24
:While 1
:Output(1,1,getTmSrr(0
:getTime
:Output(1,7,Ans(3
:End

R, 41 bytes

repeat{cat(format(Sys.time(),"%T"),"\r")}

Has one trailing space (because of cat default separator being a space).
Because of the refresh rate of the R GUI, running this in the GUI will occasionally skip some seconds, but if you save it to a file and run it on the command line it will display correctly every single seconds.
Will run forever until user interrupt.