Bana bu formatta zamanı gösteren bir saat kurmanızı istiyorum:

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

Bu '18: 10 'gösterir. Geçerli saat ve bir sonraki saat satırın önünde, ardından boşluk ve birkaç çizgi ile gösterilir: ilk satırda bu saatte geçen dakika sayısı ve ikinci satır kaç dakika daha kaldığını gösterir bu saatte gitmek için.

Netleşmeştirmek

• Saat sistemin saatini göstermelidir. Zamanı başka bir kaynaktan almak daha uygunsa, bu da iyi. O olmayabilir girdi olarak tedarik edilebilir.
• At 18:00, en üst satırda sadece 18(Firar boşlukları izin ancak gerekli değil)
• At 18:59, alt satırda19 -
• <10 saatleri ya 0( 01 -----) ile önceden doldurulur ya da sağa hizalanır ( 1 -----). Sola hizalı tek bir rakama izin verilmez, çizgiler doğru yerden başlasa bile ( 1 -----geçersiz).
• Saat 24 saat biçiminde göstermelidir.
• 24 saat formatı olarak adlandırılmasına rağmen, aslında 24üzerinde bir şey yok. 23. saat boyunca, ikinci satır 00veya ile başlar 0.
• Ekranın en az dakikada bir kez güncellenmesi gerekiyor, ancak tam olarak 00saniyeler içinde gerçekleşmesi gerekmiyor . Daha uygunsa daha sık / sürekli güncelleme yapabilirsiniz, ancak sonuç elbette hala okunaklı olmalıdır - ekranın her tarafına bulaşmaz.

Giriş

Yok.

Çıktı

• Yukarıda tanımlandığı gibi. Saati her iki satırda 60-ish pozisyonlarına kaydırmak için izleyen boşluklara izin verilir, izleyen bir yeni hatta izin verilir.
• Bir sonraki dakikayı görüntülerken ekranın temizlenmesi gerekiyor: ya net ekran komutuyla ya da en az 30 yeni satır ekleyerek.

Ek kurallar

• Standart boşluklar yasaktır
• kod-golf , bayt cinsinden en kısa cevap kazanır.

MATL , 41 bayt

@Kundor'a bir hata olduğunu fark ettiği için teşekkürler

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

MATL online olarak deneyin ! Ancak programın 30 saniye sonra öldürüldüğüne dikkat edin, bu nedenle çıktıda herhangi bir değişikliği yakalamak zor.

Nasıl çalışır

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

" 
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

Nispeten basit. Bu başında bir boşluk olan bir dize. Saatler sağa hizalanır. Bu yalnızca TI-84 + hesap makinelerinde çalışır, çünkü TI-83'ün dahili bir saati yoktur.

Düzenleme: Son döngüyü kapatmadığımı fark ettiğin için teşekkür ederim. Şimdi düzeltildi (+2 bayt).

Düzenleme # 2: İlk saat yirmi dört değil sıfır olmalıdır. +14 bayt pahasına düzeltildi.

Toplu iş, 197 bayt

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

Not: 10. satırda arkada kalan bir boşluk var. Benim için, %time%saatleri öncü boşlukla, ancak dakikaları öncü sıfırla biçimlendirir. Önde gelen sıfırın daha kolay bir çıktı biçimi olduğuna karar verdim, çünkü bunun için tek yapmam gereken 100 saat eklemek ve ilk rakamı kaldırmak. Dakikalar, sekizli ayrıştırma hatalarına neden olarak daha zordur 08veya 09olur, bu yüzden 1etkin bir şekilde 100 dakika ekleyerek, 100'ü çıkarmaktan daha kısa bir bayt olan döngüyü uygun şekilde dengeleyerek bunu ayarlayarak öneriyorum.

Python 3.6, 110 114 112 bayt

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

Bu (bir byte kaydetmek için biçimlendirme yeni f-string kullanır f'\n{h+1:2} 'vs '\n%2d '%(h+1)değiştirebilirsiniz.) [sleep(9)]İçin 18 bayt kaydetmek için, ama sonra sadece ekranı spams.

Değişen bir bayt Kaydedilen while 1:...;sleep 60için while[sleep(60)]:..., TuukkaX sayesinde.

OP'nin daha önce de söylediği gibi, bir sonraki saatin 23'ten sonra 0 olmak üzere, 24 yerine 0 olması için 5 bayt kullanmam gerekti. :-(

Bir bayt 60 yerine sadece 9 saniye uyuyarak kurtarıldı.

Value Ink'in Ruby cevabından(h+1)%24 ödünç almak için biraz kestirmek için iki baytlık tasarruf sağlandı .

Ruby, 98 95 91 bayt

Her 5 saniyede bir güncellenir. Sadece Unix tarzı terminallerde çalışır.

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

Windows komut istemi sürümü, 95 92 bayt:

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 bayt

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

Bir saniye zaman aşımı ile bir kez deneyin .

Veya birkaç saat boyunca çalışmanın sonucunu veren değiştirilmiş bir versiyonu deneyin .

Expanded:

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 bayt

Bunu çok uzun süre çalıştırmayın, aksi halde dizüstü bilgisayarınız ateş alır. Şimdi 99.several9s% ​​CPU daha verimli.

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

Ungolfed ve açıklama

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

Ekranı temizleyerek başlıyoruz, o andan saat ve dakikaları alıyoruz TIMER; bu, gece yarısından beri geçen saniye sayısını döndürüyor.

İlk kez denedim PRINT USING, bu yüzden her zamanki QBasic tuhaflığından muzdarip olmadığını ve pozitif rakamların öncü bir alanda basıldığını keşfetmekten memnun oldum. ##format belirteci olarak, tek basamaklı sayıların doğru şekilde hizalanmasını ve gerektiği gibi boşlukla doldurulmasını sağlar. QBasic bir dize tekrarlama fonksiyonuna sahip olmadığından maalesef tire için bir döngü kullanmak zorundayız. (Yanılıyorsam, lütfen bana bildirin!)

Tüm PRINTifadeler ;newline'ı bastırmak için bitiyor ; ancak kısa çizgilerden sonra yeni bir satıra ihtiyacımız var; Böylece, ?iç FORdöngüden sonra yalnız .

SLEEP 1Şimdi gereklidir. Onsuz, ekran baskıdan sonra o kadar hızlı bir şekilde silinir ki sadece titreyen bir karışıklıktır. (Kullandığım LOCATE 1yerine CLSbunu fark edene kadar, bu nedenle ilk başta CLSsahip SLEEP. Yine de kısadır) RUNüstten programı yeniden - sonsuz döngü almak için en kısa yol.

Java 8, 313 300 299 bayt

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

Bu sadece while döngüsünün her 30 tekrarlamasını günceller. Diğer 29 yineleme sadece yeni satırları yazdırıyor.

Güncellenmiş

Kevin Cruijssen'in yardımı nedeniyle 13 14 bayt kaydedildi ! Teşekkürler!

C, 176 162 161 160 156 bayt

Bu, işaretçilerin ağır şekilde kötüye kullanılmasıdır ancak belirtildiği şekilde derlenir ve çalışır. Optimizasyon olmadan derlediğinizden emin olun, aksi takdirde segfault'a çarpmanız olasıdır.

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

Ungolfed:

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

Saniyede bir kez güncellemeler

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 bayt

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 sayesinde bir bayt kaydedildi

C 251 267 251 bayt

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

Ungolfed versiyonu

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

Yapılan işi alır! Kesinlikle bir şekilde kısaltılabilir. unistd.hDosyanın dahil olduğunu varsayın .

@Neil Bilgi için teşekkürler.

@Seth 8 bayt kaydettiğiniz için teşekkür ederiz.

İlk kez golf oynamak ...

Powershell, 116 bayt (122 idi)

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}

Düzenleme: @ AdmBorkBork'un tavsiyesiyle, 6 baytlık bir tasarruf için Get-Date'i bugüne kadar değiştirdi ve cls'ye temizleyin.

PHP, 104 105 bayt

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

için vitrin printf's özel karakterleri doldurma:
"%'-Ns"= sol ped dize -kadar Nkaraktere.

ekranı temizlemek yerine 99 yeni satır (her 6 saniyede bir) yazdırır.

İlk yeni satır tek bir karakter olmalıdır. Öyleyse, Windows'da bunun değiştirilmesi gerekir \n.

GameMaker Dili, 134 bayt

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

Ayarlarda, bunun çalışması için ölümcül olmayan hataları görmezden gelmelisiniz. Ayrıca, GML'de, çoğu dilde #eşdeğerdir \n.

Perl 6 , 104 bayt

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

ANSI uyumlu bir terminalde çalıştırılması gerekir, böylece terminal sıfırlama kontrol dizisi çalışır.

Oldukça basit (çünkü denediğim daha karışık yaklaşımlar daha uzun sürdü):

• DateTime.now.&{" "}.say xx*: Geçerli saati bir dizgeye dönüştürün (aşağıya bakınız) ve söyleyin ve hepsini sonsuz sayıda tekrarlayın. Dize şöyle inşa edilmiştir:
  • \ec: <ESC>cEkranı temizleyen terminali sıfırlamak için ANSI kontrol kodu .
  • {.hour.fmt: '%2s'}: saat, 2 sütuna sağa hizalı
  • : uzay
  • {'-'x.minute}: tire dakika tekrarladı
  • \n: Yeni hat
  • {(.hour+1).fmt: '%2s'}: sonraki saat, 2 sütuna sağa hizalı
  • : uzay
  • {'-'x 60-.minute}: kısa çizgi 60 dakika eksi dakika

AWK, 190 bayt

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

Yerleşik AWKbir sleepişlevi olmadığından, dakikanın değişip değişmediğini görmek için saati sürekli kontrol ettim. Önemli olan işe yarıyor ... değil mi? :)

Python 3.5, 127 120 117 bayt

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 bayt

_{@kundor ve @Phlarx sayesinde birkaç bayt kurtardı}

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 # Etkileşimli (138 Bayt)

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 bayt

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

Ekranı temizlemenin bir yolu olmadığından (bulabildiğim kadarıyla) bir sürü yeni hatla gitmem gerekiyordu. Ayrıca dakikada en az bir kez "en az" olarak güncellenen soru ile bir bayt kaydeder9 yerine60 .

edit: @Titus ikinci saatin dolgusunda bir hata fark etti. Sabitleme 8 bayta mal oldu.

Bash (3 ve 4): 90 bayt

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

Kullanımı nedeniyle $0 , bu komut dosyasının etkileşimli bir bash kabuğuna yapıştırılmamış bir dosyaya yerleştirilmesi gerekir.

İlk komut $d60 tireye; Bu betiğin ilk satırının 60 karakter uzunluğuna dayanır. Bu, bulabileceğim bir sonraki en iyi şeyden üç karakter daha kısa:

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

Sonunda kutunuzu PID'lerden veya bellekten boşaltmak istemiyorsanız eval, bu 95 bayt olan son satırın başına ekleyebilirsiniz .

BASH, 165 141 155 bayt

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 bayt

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

Oldukça kısa ve anlaşılır :)

Tamam, bir süredir kod golf yapmadım, bu yüzden işte üzücü girişim :)

Unix Korn Shell: 177 171 170 bayt

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 bayt

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]

İşleme, 204 200 198 197 bayt

@L sayesinde 5 bayt kaydedildi. Daha akıllı ternerler kullanarak Serné

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

Bu, her güncelleme için 30'dan fazla yeni satır çıktısı alır (çerçeve güncellendiğinde gerçekleşir)

Ungolfed

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 bayt

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

Seth'in ve Abel'ın girişlerinden esinlenilen bu işlem, gerektiğinde bir sonraki saat için 24 yerine 0 yerine 0 değerini gösterecek ve ekranı temizlemek için 30 satır kullanacaktır.

SmileBASIC, 55 bayt

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

Açıklama:

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)

Not: SmileBASIC sadece 50 metin sütununa sahiptir, bu yüzden iyi görünmeyecek ...

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

Bu kod using System.Threading;satırın dahil olduğunu varsayar .

Tam sınıf:

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