एक डिजिटल घड़ी प्रदर्शित करें


20

एक डिजिटल घड़ी प्रदर्शित करें

(मैं देख रहा हूँ कि कई चुनौतियाँ हैं, मैंने उन सभी को पढ़ने की कोशिश की है, मुझे पूरा यकीन है कि यह अद्वितीय है)

कुछ कोड है कि लगातार एक डिजिटल घड़ी प्रारूप में प्रदर्शित अद्यतन करता लिखें h:m:sजहां h, mहै, और s1 या 2 प्रत्येक वर्ण पर कब्जा कर सकते हैं। @BlueEyedBeast के रूप में सरल शब्दों में प्रतिबंध, मैं मूल रूप से यह दिखाया गया समय बदलने के लिए चाहते हैं।

  • न्यूलाइन्स की अनुमति नहीं है
  • ट्रेलिंग रिक्त स्थान की अनुमति है
  • अन्य अनुगामी पात्रों को अनुमति नहीं है
  • कोई भी सेकंड मिस नहीं होना चाहिए (57 -> 59 की अनुमति नहीं है)
  • "0" से शुरू होने वाले नंबरों की अनुमति है, जब तक कि वे 2 से अधिक वर्णों पर कब्जा नहीं करते हैं
  • कोड को किसी भी इनपुट को स्वीकार नहीं करना चाहिए
  • यदि आपकी भाषा को इनपुट के बिना वर्तमान समय नहीं मिल सकता है, तो आप मानक रूप से अनुमत तरीके से 8 बाइट तक इनपुट के लिए उपयोग कर सकते हैं
  • आउटपुट स्टडआउट होना चाहिए
  • यह कोडगॉल्फ है इसलिए सबसे छोटा उत्तर जीतता है!

उदाहरण

मैं *> <> (स्टारफिश) नाम की भाषा पर काम कर रहा हूं, क्योंकि इस तरह के कार्यक्रम> <> में संभव नहीं हैं (बस फ़ाइल i / o की प्रतीक्षा करें)। इसमें एक कार्यशील डिजिटल घड़ी कार्यक्रम है (ungolfed)। यह कार्यक्रम *> <> में लिखा है :

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

नोट: इसमें सब कुछ समान है> <> इसके अलावा, s = दूसरा, m = मिनट, h = घंटा, S = नींद (100% * x)

यह आउटपुट:

14:44:31

समाप्त होने तक हर 100ms को अद्यतन करना।

अस्वीकृत उदाहरण

निम्नलिखित की अनुमति नहीं है:

1:

14:44:3114:44:32

2:

14:44:31 14:44:32

3:

14:44:31
14:44:32

समय पहली पंक्ति पर रहना चाहिए, यह बिना किसी दृश्यमान अनुगामी पात्रों के साथ आउटपुट किया गया था। हालांकि टर्मिनल को साफ़ करना, इसकी अनुमति दी जाएगी क्योंकि अभी भी कोई अनुगामी चरित्र नहीं होगा।


1
क्या हमें 100 मी का इंतजार करना होगा या क्या हम लगातार हमेशा के लिए अपडेट कर सकते हैं?
ब्लू

1
आपको इंतजार करने की जरूरत नहीं है, बस उदाहरण का इंतजार है।
रेडस्टारकोडर 21

2
चुनौती की जरूरतें मुझे बहुत सख्त लगती हैं।
mbomb007 21

1
@ mbomb007 मैंने हटा दिया "प्रोग्राम को उपयोगकर्ता इनपुट पर बाहर निकलने में सक्षम होना चाहिए जो कि सिग्नल / इंटरप्ट नहीं है" क्योंकि वर्तमान उत्तर इसे वैसे भी पालन नहीं करते थे।
रेडस्टारकोडर 22

1
क्या कार्यक्रम ओएस की एक विशिष्ट स्थानीय सेटिंग पर भरोसा कर सकता है?
राजनागुल

जवाबों:


5

Pyke, 6 बाइट्स

Ctr\ J

यहाँ कोशिश करो!

मुझे लगता है कि यह वैध है। मान्य आउटपुट के लिए कैरिज रिटर्न के साथ अंतरिक्ष वर्ण बदलें (ऑनलाइन काम नहीं करता है)


क्षमा करें, यह नहीं है। समय के बाद किसी भी नई सूची की अनुमति नहीं है या पात्रों का अनुगमन नहीं किया जाता है। मैं अधिक स्पष्ट होने के लिए 2 उदाहरण रखूंगा।
redstarcoder

मुझे वह युक्ति नहीं दिख रही है?
ब्लू

1
पहली पंक्ति कहती है कि नई सूचियों की अनुमति नहीं है, तीसरा कहता है कि कोई अनुगामी चरित्र नहीं है। मुझे खेद है कि अगर यह अस्पष्ट है, तो मैं इसे ठीक करने की सलाह की सराहना करूंगा।
redstarcoder 21

तो क्या आप चाहते हैं कि पुराने समय को बदला जाए?
ब्लू

हाँ बिल्कुल! आपका वर्तमान कोड सही लगता है।
रेडस्टारकोडर 21

10

HTML + JS (ES6), 8 + 60 = 68 बाइट्स

क्रोम में परीक्षण किया गया।

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

-1 बाइट (@ETHProductions): के बजाय फ्रेंच समय प्रारूप का उपयोग करें .toTimeString().slice(0,8)


HTML + JS (ES6), 8 + 62 = 70 बाइट्स

यह फायरफॉक्स में काम करेगा।

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

-3 बाइट्स (@ETHProductions): के बजाय फ्रेंच समय प्रारूप का उपयोग करें .toTimeString().slice(0,8)


2
यह कैसे काम करता है? मैंने पहले कभी बैकटिक सिंटैक्स नहीं देखा है। मैं कुछ जल्दी खोज के बाद इस पर कुछ भी नहीं पा सकते हैं।
कार्कजेनिकेट

1
Inox (क्रोमियम) में मेरे लिए काम करना
redstarcoder

1
@Carcigenicate यह नवीनतम जावास्क्रिप्ट कल्पना, ECMAScript6 का हिस्सा है। developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/…
darrylyeo

@darrylyeo धन्यवाद मुझे शाब्दिक सिंटैक्स पर चीजें मिल सकती हैं, लेकिन मैं यह नहीं देख सकता कि इसे यहां कैसे लागू किया गया। मुझे फिर से युक्ति पढ़ने की आवश्यकता है। मुझे अभी भी समझ में नहीं आया है कि backtick से पहले के फंक्शन का उपयोग कैसे किया जाता है।
करकजेनिक

2
आप फ़ायरफ़ॉक्स में 3 बाइट्स के साथ बचा सकते हैं new Date().toLocaleTimeString`fr` (क्रोम में 1 बाइट के साथ ...TimeString('fr'))
ETHproductions

6

अजगर 2, 50 बाइट्स

(पायथन 2.1+ ctimeबिना किसी तर्क के)

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

time.ctime()एक स्वरूपित स्ट्रिंग की पैदावार, जिसमें से hh: mm: ss का उपयोग करके कटा हुआ हो सकता है [11:19](यह उसी स्थान पर रहता है जो दिनांक और समय)।

print'\r'पाठ से पहले कैरिज रिटर्न को संलग्न करें और पाठ को ,प्रभावी ढंग से टपल का पहला आइटम बनाने से निहित अनुगामी को दबा देता है '\n'और पहले से लिखित आउटपुट को अधिलेखित कर देता है।

while 1 हमेशा के लिए खो देता है।


3
मुझे लगता है कि ,न्यूलाइन को दबाने के लिए इसकी आवश्यकता अंत में है अन्यथा पाइथन 2.7.12 में मुझे नई सुर्खियां मिलीं।
redstarcoder

उफ़, हाँ आप सही हैं ... अपडेट किया गया
जोनाथन एलन

5

मैथेमेटिका, 48 41 37 28 बाइट्स

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

आउटपुट ए TimeObject, लगातार रिफ्रेशिंग होगा ।

इस तरह दिखता है: यहां छवि विवरण दर्ज करें

वैकल्पिक संस्करण

48 बाइट्स:

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

53 बाइट्स:

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

1
इसके साथ हर सेकंड को अपडेट करते हुए, क्या आपने यह सुनिश्चित किया कि यह कभी भी सेकंड को स्किप न करे? (पूर्व: 11:11:11 -> 11:11:13)
redstarcoder

Dynamic@{DateString@TimeObject[], Clock[]}[[1]]
डेविड डिक

1
@redstarcoder यह हर ~ 1.002s को अपडेट करता है, इसलिए मैं हर 100ms को अपडेट करने के लिए बदल गया
जंगम मिन

वेल्ड, मुझे बस एहसास हुआ कि मुझे वास्तव में ज़रूरत नहीं है Pause
जंगहवां मिन

Dynamic@{Now,Clock[]}[[1]]26 बाइट्स है और एक डेटाइम ऑब्जेक्ट दिखाता है। Dynamic@{DateString@"Time",Clock[]}[[1]]है 40 बाइट्स और आउटपुट केवल hh: mm: ss
केली लोडर

5

मैं देखता हूं कि प्रोग्राम को रोकने के लिए गैर-सिग्नल यूआई इनपुट की आवश्यकता को हटा दिया गया है। तो अब हम कर सकते हैं:

बैश + कोरुटिल्स, 28

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

yes लगातार स्ट्रिंग "अब", एक बार प्रति पंक्ति, एक पाइप में आउटपुट करता है।

date -f-वर्तमान समय के रूप में प्रत्येक "अब" की व्याख्या करता है, फिर आवश्यक प्रारूप में आउटपुट करता है। प्रारूप स्ट्रिंग में स्क्रीन को साफ़ करने के लिए ANSI एस्केप अनुक्रम शामिल है। तारीख के बाद एक नई पंक्ति का उत्पादन date करता है - मुझे यकीन नहीं है कि अगर यह अयोग्य हो जाता है, क्योंकि स्क्रीन को हर बार वैसे भी साफ किया जाता है।

यदि यह अयोग्य है, तो हम trइसके बजाय उपयोग कर सकते हैं :

बाश + कोरुटिल्स, 31

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

पिछले उत्तर:

बैश + एक्स, 32

xclock -d -update 1 -strftime %T

दुर्भाग्य से यह केवल हर दूसरे को अपडेट कर सकता है। यदि वह अयोग्य हो जाता है, तो हम इसके बजाय यह कर सकते हैं:

बाश + कोरुटिल्स, 43

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

हर सेकंड को अपडेट करना ठीक है, जब तक कि यह कभी भी सेकंड को स्किप न करे (IE: 12-> 14)।
redstarcoder

मैं आपकी न्यूलाइन की अनुमति दूंगा! मुझे उम्मीद नहीं थी कि इस मामले में हेह होगा।
Redstarcoder

क्या यह अनुमति है? date +$'\e[2J'%T;$0
इवान चेन

@EvanChen नहीं, क्योंकि प्रत्येक पुनरावृत्ति एक नई प्रक्रिया को जन्म देती है और अंततः उपलब्ध मेमोरी या पीआईडी ​​स्पेस का उपयोग करेगी, जो स्टैक ओवरफ्लो के अनुरूप होगी। हालांकि आप date +$'\e[2J'%T;exec $024 बाइट्स के लिए कर सकते हैं ...
डिजिटल आघात

4

QBIC , 6 बाइट्स

{_C?_d

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

लगातार स्क्रीन को साफ करता है और प्रारूप में सिस्टम का समय प्रिंट करता है 22:03:41


3

क्लोजर, 150 136 141 बाइट्स

V3: 141 बाइट्स :(

बग को ठीक करने के लिए +5 बाइट्स। चूंकि समय शून्य गद्देदार नहीं है, इसलिए घड़ी के समय में बदलाव होने पर "सिकुड़ना" और विस्तार हो सकता है। जब यह सिकुड़ा था तो यह "धब्बा" था क्योंकि अंतिम अंक अब साफ़ नहीं किया जा रहा था। यह सुनिश्चित करने के लिए कि सब कुछ ओवरराइट किया जा रहा है, अंत में कुछ रिक्त स्थान जोड़कर इसे फिक्स्ड करें।

#(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 बाइट्स

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

SimpleDateFormatदिनांक को प्रारूपित करने के लिए स्विच करके -14 बाइट्स । अभी भी बहुत बड़ा है।

V1: 150 बाइट्स

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

मुझे एहसास हुआ कि मैं शायद तारीख पाने के लिए सबसे खराब तरीके का उपयोग कर रहा हूं। निश्चित रूप से यहां सुधार के लिए जगह है।

Ungolfed:

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


2

WinDbg, 73 बाइट्स

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

यह उपयोगकर्ता के Ctrl + ब्रेक दबाने तक लगातार वर्तमान समय के साथ एक पंक्ति को अपडेट करता है।

यह काम किस प्रकार करता है:

.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

नमूना उत्पादन (ठीक है, आपको यह विचार मिलता है):

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

2

PHP, 28 बाइट्स

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

dateसमारोह प्रिंट सब कुछ सचमुच कि इसे पहचान नहीं करता है।

\r कैरिज रिटर्न है, कर्सर को पहले कॉलम पर सेट करता है।

साथ चलाना -r


2

MATL , 11 बाइट्स

`XxZ'13XODT

अनंत लूप जो स्क्रीन को साफ करता है और निर्दिष्ट प्रारूप में समय को प्रिंट करता है।

आप इसे MATL ऑनलाइन पर आज़मा सकते हैं ! । यह संकलक प्रयोगात्मक है; यदि यह पृष्ठ को ताज़ा करने और फिर से "रन" को दबाने के लिए काम नहीं करता है।


2

सी #, 82 बाइट्स

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

बेनामी विधि जो लगातार नए आउटपुट के साथ 8 वर्णों को अधिलेखित करती है। यदि डमी पैरामीटर ( z=>...) को स्वीकार करने के लिए संशोधन किया जाए तो 1 बाइट कम की जा सकती है ।

पूरा कार्यक्रम:

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

1
क्या इसे आयात करने की अनुमति नहीं है System? कुछ लोग ऐसा करते हैं, और कुछ लोग नहीं करते: /
यत्सी

वह अपने वास्तविक समाधान में नहीं था, बस डेमो प्रोग्राम में, हां, यह ठीक है
स्टेफन

2

सी #, 65 बाइट्स

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

एक अंतहीन लूप के भीतर एक ही लाइन को ओवरराइट करके काम करता है


2

स्माइलबासिक 3.3.2, 38 बाइट्स

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

UTF-16 बेकार :(

वैसे भी, यह एचएच: एमएम: एसएस में स्थानीय समय को बार-बार प्रिंट करता है, इसके बाद कोई स्थान नहीं, बाद में कोई नई रेखा नहीं। यह हर पल अपडेट नहीं करता है, लेकिन यह बार-बार प्रिंट करता है।


क्षमा करें, यह मान्य नहीं है, इसे आउटपुट को बदलने की आवश्यकता है, यह नहीं है। पहली पंक्ति को @L?TIME$(3 पंक्तियों के लिए) के बाद एक पंक्ति को जोड़ना और यह पढ़ता LOCATE 0, 0है कि क्या ट्रिक (स्माइलबासिक गाड़ी वापसी का समर्थन करती है?)।
redstarcoder

इसके अलावा, आप इस 40 बाइट्स (UTF-16 कोड गोल्फ के लिए क्रूर है) बनाने, newline स्कोर करने के लिए भूल गया। आप पायथन आरईपीएल के माध्यम से चरित्र की लंबाई को बहुत आसान कर सकते हैं len(""" YOUR CODE HERE """), फिर यूटीएफ -16 के लिए बस 2 * करें।
redstarcoder

कोई एसबी वास्तव में सीआर नहीं करता है, मुझे वहां एक लॉकेट स्टेटमेंट छोड़ना होगा, जो मेरे स्कोर को पूरी तरह से नष्ट कर देगा: पी या एक सीएलएस: वीएसवाईएनसी जो केवल उतना ही बुरा है।
घोंघा_ sn

हाँ, दुख की बात है कि यह समाधान इसके बिना अमान्य है। हालांकि अच्छी खबर है! SmileBASIC को UTF-8 के रूप में बनाया गया है
redstarcoder

2

सी, 134 116 89 80 80 76 75 बाइट्स

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

ऐसा लगता है कि (मेरे लिए) आप इसे भी हटा सकते हैं time.h। यह time_t प्रकार को निकालता है, इसलिए आपको इसके बजाय n int बनाने की आवश्यकता है। इसे मुख्य (जैसे n;main...) के बाहर घोषित करके किया जा सकता है , जो की आवश्यकता को दूर करता है int। आप charएक ही चाल के साथ भी छुटकारा पा सकते हैं b[9];main...:। वे दोनों अब int प्रकार के हैं, लेकिन यह काफी लचीला है।
nmjcman101

वाह, बहुत बहुत धन्यवाद, मुझे नहीं पता था कि यह काम करेगा। धन्यवाद
स्टीफन

मुझे रोकने कृपया अगर आप इसे अपने आप को गोल्फ करना चाहते हैं, लेकिन मैं यह भी बाहर ले strftime...और b[9]और सिर्फ इस में प्रिंट किए गए: printf("\r%d:%d:%d",(n/3600)%60-29,(n/60)%60,n%60); मुझे यकीन है कि अगर कोष्ठक या नहीं की जरूरत है नहीं कर रहा हूँ। इसके अलावा आप {}अपने बयानों के बीच अल्पविराम लगाकर इसका एक सेट निकाल सकते हैंfor(;;)a,b,c;
nmjcman101

1
ये कोष्ठक कष्टप्रद हैं। (n/60)%60गंभीरता से?
अनातोली डिग

1
के nपैरामीटर के रूप में घोषित करके आप 1 बाइट बचा सकते हैं main, main(n)इसके बजायn;main()
कार्ल नेफ


2

पास्कल, 61 बाइट्स

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

नि: शुल्क पास्कल SysUtils इकाई में अच्छा समय दिनचर्या है। Ungolfed:

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

2

सी 65 (मौजूदा 64) बाइट्स

लिनक्स मशीन पर काम करने की गारंटी। :)

@ मार्को धन्यवाद!

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

1

विम, 26 बाइट्स

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

यह एक पुनरावर्ती मैक्रो बनाता है (जैसे एक शाश्वत लूप) जो वर्तमान लाइन पर सभी पाठ को हटा देता है और वर्तमान समय के साथ बदल देता है।


1

पायथ - 28 बाइट्स

किंड लोंगिश, क्योंकि पाइथ का कोई स्ट्रगल नहीं है।

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


1

जेली , 8 बाइट्स

13Ọ7ŒTȮß

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

इसे ऑनलाइन आज़माएं!

कैरिज रिटर्न ऑनलाइन काम नहीं करता है, और मैं दुभाषिया को काम करने के लिए नहीं मिल सकता है, इसलिए इसके थोड़े से अप्रकाशित है, लेकिन यह अपेक्षा के अनुरूप काम करता है जब मैं सीआर के स्थान पर प्रिंट करने योग्य पात्रों का उपयोग करता हूं।


1

फोर्सलैंग, 123 बाइट्स

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जावा के संदर्भ कार्यान्वयन में समर्थित है DateFormat.getTimeInstance(), जो स्थान-निर्भर है, इसलिए आप अपने डिफ़ॉल्ट सिस्टम को 24 घंटे के समय का उपयोग करने वाले स्थान पर सेट कर सकते हैं।


1

पॉवरशेल, 30 28 24 20 बाइट्स

4 बाइट बचाने के लिए raznagul की टिप्पणी के आधार पर मेरे कंप्यूटर के क्षेत्र को जर्मनी में बदल दिया । :)

for(){date -F T;cls}

पिछला संस्करण जो सभी स्थानों में काम करता है।

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


0

बैच, 36 बाइट्स

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

जहाँ ASCII BS वर्ण (कोड 8) का प्रतिनिधित्व करता है।


0

रैकेट, 71 बाइट्स

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

जहां वास्तव में एक सीआर (हेक्स 0d) है। आगे स्पष्टीकरण के लिए कार्यक्रम के हेक्स डंप (स्थिति हेक्स पर नोटिस बाइट 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

एसआरएफआई / 19 का उपयोग रैकेट वितरण के साथ किया जाता है। (current-date)वर्तमान स्थानीय दिनांक और समय मिलता है। date->stringप्रारूप ~3आईएसओ 8601 घंटे मिनट दूसरा स्वरूप है। (let l () ... (l))एक मुहावरेदार अनंत पाश में। मॉड्यूल (require srfi/19)लोड करता srfi/19है।



0

टीआई-बेसिक, 40 बाइट्स

(TI-BASIC में, कई अक्षर 2 बाइट टोकन हैं, और एक पंक्ति की शुरुआत में कॉलन 0 अतिरिक्त बाइट हैं)

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

0

आर, 41 बाइट्स

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

एक अनुगामी स्थान ( catडिफ़ॉल्ट विभाजक एक स्थान होने के कारण ) है।
R GUI की ताज़ा दर के कारण, GUI में इसे चलाना कभी-कभी कुछ सेकंड छोड़ देगा, लेकिन यदि आप इसे किसी फ़ाइल में सहेजते हैं और इसे कमांड लाइन पर चलाते हैं तो यह हर एक सेकंड में सही ढंग से प्रदर्शित होगा।
उपयोगकर्ता के व्यवधान तक हमेशा के लिए चलेगा।

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.