Meydan okuma:

HOUR'u temsil eden N (0 - 24 arası bir sayı) girişi alacak bir fonksiyon veya program oluşturun.

Çıktı, N saatini gösteren yıldızlardan analog bir saat çekmelidir.

🕛🕐🕑🕒🕓🕔🕕🕖🕗🕘🕙🕚🕛🕐🕑🕒🕓🕔🕕🕖🕗🕘🕙🕚🕛

Notlar:

• Dakika ibresi, saat ibresinden daha uzun olmalıdır (kullanılan yıldız sayısı açısından).

• Dakika ibresi en az 2 yıldız olmalıdır.

• Öğlen, 15:00, 18:00 ve 21:00 her zaman dikey olacaktır. Ara saatler için veriminiz, derecelere göre düzenlendiğinde, günün saatleri ile aynı sırada olmalıdır. Demek saat ibresi 0º'dir ve 3 de saat ibresi 1 de sizin çıkış durumları için öylesine 90º ve şu doğru olmalıdır 2pm öğlen: 0pm_deg < 1pm_deg < 2pm_deg < 3pm_deg. Bu kuralın dışında, gerçek derece miktarı ne karar verirseniz verin, yazı tipine ve diğer yerel faktörlere bağlı olarak değişecektir.

• Saat ibresi ile dakika ibresi arasındaki bağlantı eklemi her türlü dairesel / oval bir unicode karakteridir. o, O, •, 0, etc.

Örnek Giriş / Çıkış (Çizim stillerine bağlı olarak değişebilir)

 N = 3;

 *
 *
 *
 O  *  *

 N = 4;

 *
 *
 *
 O
    *
       *

 N = 5;

 *
 *
 *
 0
  *
   *

 N = 6;

 *
 *
 o
 *

 N = 7;

      *
      *
      *
      •
    *
  *

 N = 0,12,24;

 *
 *
 *
 o

Farklılaştırıcı Çıktılara Örnek:

 N = 4     VS     N = 5     VS     N = 6

  *                *                *
  *                *                *
  O                O                O
      *              *              *

Bu kod golf , yani en kısa bayt sayısına sahip olan program kazanıyor!

Javascript (ES6), 105 76 65 bayt

F=N=>`  *
ab*12
 9@3
87654`.replace(/\w/g,y=>'0x'+y^N%12?' ':'*')

<!-- Snippet Demo: -->
N =  <input type="number" min="0" max="24" value="2" id="I" />
<button onclick="console.log(F(I.value))">Run</button>

• -29 bayt:

  • Dakika ve saat ibrelerinin küçültülmüş büyüklüğü sırasıyla 2 ve 1 yıldıza karşılık gelir. Küçük saat = daha az bayt :-P

• -11 bayt:

  • Sayısal karşılaştırmaya göre dize karşılaştırması değiştirildi.
  • y==(N%12).toString(16)?'*':' ' -> '0x'+y^N%12?' ':'*'

Daha uzun ellerle orijinal: ( 105 94 bayt)

F=N=>`    *
a b * 1 2
  ab*12
  99@33
  87654
8 7 6 5 4`.replace(/\w/g,y=>'0x'+y^N%12?' ':'*')

<!-- Snippet Demo: -->
N =  <input type="number" min="0" max="24" value="2" id="I" />
<button onclick="console.log(F(I.value))">Run</button>

CSS / HTML (JavaScript), 62 + 106 = 180 168 bayt

pre{position:absolute;left:99px;bottom:99px;transform-origin:50% 80%}

<input oninput=h.style.transform=`rotate(${this.value*30}deg)`><pre>*
*
o</pre><pre id=h>*

</pre>

Düzenleme: @ nderscore sayesinde 9 bayt kaydedildi.

Python 2 , 148 140 135 bayt

-8 Artık kalan boşlukları ve gereksiz yeni bir satırı silerek.

-5 değiştirerek (' ','*')için' *'

a=input()
b='''    *
a b * 1 2
  ab*12
9 9 o 3 3
  87654
8 7 6 5 4'''
for x in range(1,12):b=b.replace(hex(x)[2],' *'[x==a%12])
print b

Çevrimiçi deneyin!

C (gcc) , 144 bayt

#define v ,t
h;t(i){putchar(i>12?i-9:h^i?32:42);}n(i){h=i%12;puts("  *")v(10)v(11)v(h)v(1)v(2)v(19)v(12)v(9)v(57)v(3)v(19)v(8)v(7)v(6)v(5)v(4);}

Çevrimiçi deneyin!

SmileBASIC, 90 88 74 bayt

INPUT H?("  *"+" "*47)*2;"  o
R=H/1.9LOCATE 2.5+SIN(R)*2,3.5-COS(R)*2?"*

Örnek çıktı:

? 5
  *
  *
  o

   *

? 3
  *
  *
  o *

Python 3 , 86 85 bayt

-1 bayt, daha iyi clockface (Jelly Cevabımda kullandığım şekilde DuctrTape kredisi)

def f(h):print(*([c,' *'[h%12+64==ord(c)]][c>'@']for c in'''
K*A
J*B
I0C
HFD
G E'''))

Çevrimiçi deneyin!

Jöle , 35 34 33 bayt

ị“ tI©’Œ?Ḋ¤µ⁶ẋ13”*⁸¦Ṗ;“**o”ṙ7s5ZY

Çevrimiçi deneyin! (tI©!) ya da tümünü gör (0 - 24) .

Nasıl?

ị“ tI©’Œ?Ḋ¤µ⁶ẋ13”*⁸¦Ṗ;“**o”ṙ7s5ZY - Main link: h
          ¤                       - nilad followed by link(s) as a nilad:
 “ tI©’                           -     base 250 number: 522956007
       Œ?                         - shortest permutation of [1,N] that would be at
                                     that index in a lexicographically sorted
                                     list: [2,3,4,5,6,7,1,12,11,10,9,8,13]
         Ḋ                        - dequeue: [3,4,5,6,7,1,12,11,10,9,8,13]
ị                                 - index into (1-based and modular, so h=2 picks 4,
                                     as does h=14 [as do h=26, h=-10, etc.])
           µ                      - monadic chain separation (call the result j)
            ⁶                     - space character
             ẋ13                  - repeat 13 times
                   ¦              - apply to index...
                  ⁸               - ...left argument (j)
                ”*                -     an asterisk character (replacemes the space
                                         at index j with an asterisk)
                    Ṗ             - pop the last character off the list †
                     ;“**o”       - concatenate "**o"
                           ṙ7     - rotate left by 7 ‡
                             s5   - split into chunks of length 5 (columns)
                               Z  - transpose (get the rows of the clock)
                                Y - join with line feeds
                                  - implicit print

Bunu not et “ tI©’Œ?Ḋ (endekste izinsiz, silinmemiş) bir bayt tasarrufu“9ȧỤ_ÑḶ’b⁴ (16 bazda), yani bir byte kaydetme“¦þxṙ<ȥ’ḃ13 (13 bazında) .

† Pop ile ilgili - dizgede fazladan bir boşluk var, buradaki 0, 12, 24 için yıldız işareti, indeks listesinin mod-12 indekslenmesine izin verecek, son karakterin çıktısını daha ucuzdur. birleştirme yapmak “**o” önceden ve bu yıldızlardan birinin üzerine yazma.

‡ Döndürmeyle ilgili olarak - bu ortada "** o" olan bir dize oluşturmaya göre bir bayt tasarrufudur (yıldız yerleşiminden önce veya sonra olabilir).

Haskell, 148 bayt

c n=mapM_ putStrLn$(t(n-3)!(t n!(\_->'*')))(map(\x->(2!(\_->x))"     ")"**O  ")
n!f=(\(x,a:y)->x++f a:y).splitAt n
t n=2+truncate(2.5*sin(n*pi/6))

C işlevi verilen görevi çözen işlevdir

Bash + Unix yardımcı programları, 57 bayt

tr `dc -e12o$1O%p` \*<<<'B*1
A*2
9O3
864
7 5'|tr 1-9AB \ 

(Son ters eğik çizgiden sonra bir boşluk var.)

Çevrimiçi deneyin!

Çok hoş bir saat değil, ama tüm gereklilikleri karşılıyor.

PHP, 71 bayt

1 yıldız işareti, 2 yıldız işareti.

$s="  *
  *  
  O  
";$s[ord(BGHNTSRQPJDE[$argv[1]%12])&31]="*";echo$s;

komut satırı argümanından girdi alır; ile koş -nr.

1. şablonu tanımla
2. harita saatini pozisyona (harfinden kod çözme) ve karakteri yıldız konumuna getir
3. yazdırmak

05AB1E , 41 bayt

Bu, TIO için çok yavaş.

14Ýœ•2!&ô÷‰•èv… *@y_2L11+¹12%0‚ìyå+èJ}3ô»

TIO'da çalışan benzer kodlar için bunu deneyin

Oldukça eminim ki bu hala hem golf hem de hızlı olabilir.
Açıklama daha sonra gelecek.

Logicode 634 bayt

Nasıl girileceği çözülemedi, bu yüzden tio bağlantısının üstündeki giriş için bir var a = ... var.

circ v(a)->cond((a&1000)+0)&a->0/a
circ n(a)->cond a&10000->((a&100)+0)|!(a&100)&((a&011)|100)/a
circ y(a)->cond((a&100)+0)&a->a&10011/a
var s=@100000
var m=@101010
var x=y(n(v(a)))
var e=x&1000
var f=(x&100)+0
var t=(x&10)+00
var o=(x&1)+000
circ r(a,b)->cond(a)->b/@a
out s+s+s+s+m
out r(e&t&!o,m)+s+r(o&e&t,m)+s+m+s+r(o&!e&!f&!t,m)+s+r(t&!o&!f&!e,m)
out s+s+r(e&t&!o,m)+r(e&t&o,m)+m+r(o&!t&!f&!e,m)+r(t&!o&!f&!e,m)
out r(e&o&!t,m)+s+r(e&o&!t,m)+s+@110000+s+r(t&o&!f&!e,m)+s+r(t&o&!f&!e,m)
out s+s+r(e&!t&!o,m)+r((f&t&o),m)+r(f&t&!o,m)+r(f&!t&o,m)+r(f&!t&!o,m)
out r(e&!t&!o,m)+s+r(f&t&o,m)+s+r(f&t&!o,m)+s+r(f&o&!t,m)+s+r(f&!t&!o,m)

Bunu golf oynamaktan vazgeçtim. Saatin yine de korkunç görünmesi pahasına kısaltabilirdi.

Çevrimiçi Deneyin