Tampilkan Jam Digital

(Saya melihat ada banyak tantangan jam, saya telah mencoba membaca semuanya, saya cukup yakin ini unik)

Menulis beberapa kode yang terus update jam digital ditampilkan dalam format h:m:smana h, mdan sdapat menempati 1 atau 2 karakter masing-masing. Batasan-batasan dalam istilah sederhana seperti yang dikatakan @BlueEyedBeast, saya pada dasarnya ingin mengganti waktu yang ditampilkan.

• Baris baru tidak diizinkan
• Ruang tambahan diperbolehkan
• Karakter tambahan lainnya tidak diperbolehkan
• Tidak ada detik yang terlewatkan (57 -> 59 tidak diizinkan)
• Angka yang dimulai dengan "0" diizinkan, asalkan angka tersebut tidak melebihi 2 karakter
• Kode tidak boleh menerima input apa pun
• Jika bahasa Anda tidak bisa mendapatkan waktu saat ini tanpa input, Anda dapat menggunakan untuk input hingga 8 byte dengan cara yang diizinkan secara standar
• Keluaran harus stdout
• Ini codegolf sehingga jawaban terpendek menang!

Contoh

Saya sedang mengerjakan bahasa bernama *> <> (bintang laut) karena program seperti ini tidak mungkin di> <> (tunggu saja file i / o). Berikut adalah program jam digital yang berfungsi di dalamnya (ungolfed). Program ini ditulis dalam *> <> :

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

^{Catatan: Semuanya identik dengan> <> kecuali, s = detik, m = menit, h = jam, S = tidur (100 ms * x)}

Output ini:

14:44:31

Memperbarui setiap 100 ms hingga dihentikan.

Contoh yang Dilarang

Berikut ini tidak diizinkan:

1:

14:44:3114:44:32

2:

14:44:31 14:44:32

3:

14:44:31
14:44:32

Waktu harus tetap pada baris pertama yang dihasilkan tanpa karakter trailing yang terlihat. Menghapus terminal, akan diizinkan karena masih tidak memiliki karakter tambahan.

Pyke, 6 byte

Ctr\ J

Coba di sini!

Saya pikir ini valid. Ganti karakter ruang dengan carriage return untuk output yang valid (tidak berfungsi online)

HTML + JS (ES6), 8 + 60 = 68 byte

Diuji di Chrome.

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

<a id=a>

-1 byte (@ETHProductions): Gunakan format waktu Prancis sebagai ganti .toTimeString().slice(0,8)

HTML + JS (ES6), 8 + 62 = 70 byte

Ini akan bekerja di FireFox.

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

<a id=a>

-3 byte (@ETHProductions): Gunakan format waktu Prancis sebagai ganti .toTimeString().slice(0,8)

Python 2, 50 byte

(Python 2.1+ ctimetanpa argumen)

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

time.ctime()menghasilkan string yang diformat, dari mana jj: mm: dd dapat diiris menggunakan [11:19](itu tetap di lokasi yang sama apa pun tanggal dan waktu).

printing carriage return '\r'sebelum teks dan menjadikan teks item pertama tuple dengan ,secara efektif menekan trailing implisit '\n'dan menimpa output yang ditulis sebelumnya.

while 1 loop selamanya.

Mathematica, 48 41 37 28 byte

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

Output akan menjadi TimeObject, menyegarkan terus menerus.

Terlihat seperti ini:

Versi alternatif

48 byte:

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

53 byte:

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

Saya melihat bahwa persyaratan untuk input UI non-sinyal untuk menghentikan program telah dihapus. Jadi sekarang kita bisa melakukan:

Bash + coreutils, 28

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

yes terus menerus mengeluarkan string "sekarang", sekali per baris, ke dalam pipa.

date -f-membaca setiap kata "sekarang" sebagai waktu saat ini, kemudian menghasilkan dalam format yang diperlukan. String format menyertakan urutan pelarian ANSI untuk menghapus layar. date memang menampilkan baris baru setelah tanggal - Saya tidak yakin apakah ini mendiskualifikasi, karena layar dibersihkan setiap saat.

Jika itu didiskualifikasi, maka kita bisa menggunakan tr:

Bash + coreutils, 31

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

Jawaban Sebelumnya:

Bash + X, 32

xclock -d -update 1 -strftime %T

Sayangnya ini hanya dapat memperbarui setiap detik. Jika itu didiskualifikasi, maka kita dapat melakukan ini sebagai gantinya:

Bash + coreutils, 43

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

QBIC , 6 byte

{_C?_d

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

Terus membersihkan layar dan mencetak waktu sistem dalam format 22:03:41.

Clojure, 150 136 141 byte

V3: 141 byte :(

+5 byte untuk memperbaiki bug. Karena waktu bukan nol padded, jam dapat "menyusut" dan berkembang ketika waktu berubah. Itu "mengotori" ketika menyusut karena digit terakhir tidak lagi dibersihkan. Memperbaikinya dengan menambahkan beberapa spasi di akhir untuk memastikan semuanya ditimpa.

#(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 byte

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

-14 byte dengan beralih menggunakan SimpleDateFormatformat tanggal. Masih besar.

V1: 150 byte

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

Saya menyadari bahwa saya mungkin menggunakan cara terburuk untuk mendapatkan kencan. Pasti ruang untuk perbaikan di sini.

Tidak Terkumpul:

(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 + watch, 19 byte

Arloji bukan bagian dari coreutils , tetapi tersedia di luar kotak pada hampir setiap distro Linux.

Golf

watch -tn1 date +%T

Cobalah online!

WinDbg, 73 byte

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

Itu terus memperbarui garis dengan waktu saat ini sampai pengguna menekan Ctrl + Break.

Bagaimana itu bekerja:

.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

Contoh hasil (baik, Anda mendapatkan ide):

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 byte

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

The datefungsi cetak segala sesuatu secara harfiah bahwa doesnt mengenali.

\r adalah carriage return, atur kursor ke kolom pertama.

Jalankan dengan -r.

MATL , 11 byte

`XxZ'13XODT

Infinite loop yang membersihkan layar dan mencetak waktu dalam format yang ditentukan.

Anda dapat mencobanya di MATL Online! . Kompiler ini bersifat eksperimental; jika tidak berhasil menyegarkan halaman dan tekan "Run" lagi.

C #, 82 byte

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

Metode anonim yang terus-menerus menimpa 8 karakter dengan output baru. Dapat dibuat 1 byte lebih pendek jika memodifikasi untuk menerima parameter dummy ( z=>...).

Program lengkap:

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 byte

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

Bekerja dengan menimpa baris yang sama dalam satu lingkaran tanpa akhir

SmileBASIC 3.3.2, 38 bytes

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

UTF-16 menyebalkan :(

Bagaimanapun, ini berulang kali mencetak waktu lokal di HH: MM: SS dengan spasi setelahnya, tidak ada baris baru sesudahnya. Itu tidak memperbarui setiap detik, hanya berulang kali mencetak selamanya.

C, 134 116 89 80 76 75 73 byte

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 byte

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

Karena saya tidak suka menggunakan cls di Powershell. Dari posting briantist @ /codegolf//a/102450/63383

Pascal, 61 byte

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

Pascal gratis memiliki rutinitas waktu yang baik di unit SysUtils. Tidak Terkumpul:

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

C 65 (sebelumnya 64) byte

Dijamin bekerja di mesin Linux. :)

@ Marsco, Terima kasih!

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

Vim, 26 byte

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

Ini menciptakan makro rekursif (misal loop abadi) yang menghapus semua teks pada baris saat ini dan menggantinya dengan waktu saat ini.

Pyth - 28 byte

Agak gondrong, karena pyth tidak memiliki strftime.

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

Groovy, 45 karakter

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

Jelly , 8 byte

13Ọ7ŒTȮß

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

Cobalah online!

Pengembalian carriage tidak berfungsi online, dan saya tidak bisa membuat penerjemah bekerja, jadi ini agak tidak teruji, tetapi berfungsi seperti yang diharapkan ketika saya menggunakan karakter yang dapat dicetak sebagai ganti CR.

ForceLang, 123 byte

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.toTimeStringdidukung dalam implementasi referensi oleh Java DateFormat.getTimeInstance(), yang bergantung pada lokal, sehingga Anda dapat mengatur lokal sistem default Anda ke yang menggunakan waktu 24 jam.

PowerShell, 30 28 24 20 byte

Mengubah wilayah komputer saya ke Jerman berdasarkan komentar raznagul untuk menghemat 4 byte. :)

for(){date -F T;cls}

Versi sebelumnya yang berfungsi di semua lokal.

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

tcl, 69 byte

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

Coba di sini!

Batch, 36 byte

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

Dimana ␈mewakili karakter ASCII BS (kode 8).

Racket, 71 byte

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

Di mana ↵sebenarnya CR (hex 0d). Hex dump dari program untuk klarifikasi lebih lanjut (perhatikan byte pada posisi 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

Penggunaan SRFI / 19 termasuk dalam distribusi Racket. (current-date)dapatkan tanggal & waktu setempat saat ini. The date->stringFormat ~3adalah ISO-8601 jam menit detik format. (let l () ... (l))dalam loop tak terbatas idiomatik. (require srfi/19)memuat srfi/19modul.

C, 156 byte

#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

(Dalam TI-BASIC, banyak karakter adalah token 2 byte, dan titik dua pada awal baris adalah 0 byte tambahan)

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

R, 41 byte

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

Memiliki satu spasi tambahan (karena catpemisah default berupa spasi).
Karena kecepatan refresh dari GUI R, menjalankan ini di GUI kadang-kadang akan melewatkan beberapa detik, tetapi jika Anda menyimpannya ke file dan menjalankannya di baris perintah itu akan ditampilkan dengan benar setiap detik.
Akan berjalan selamanya sampai interupsi pengguna.