Odkąd widziałem ten pierwszy kilka lat temu, zawsze byłem podporządkowany tego rodzaju zegarowi słownemu, w którym czas jest tak naprawdę wyrażony przez rozjaśnienie słów, czy nie w sensowne zdanie.

Tekst wyświetlany na tym zegarze jest następujący.

IT IS HALF TEN
QUARTER TWENTY
FIVE MINUTES TO
PAST TWO THREE
ONE FOUR FIVE
SIX SEVEN EIGHT
NINE TEN ELEVEN
TWELVE O'CLOCK

Twoim zadaniem jest napisanie takiego działającego zegara. Słowa są podświetlane tylko wtedy, gdy dotyczą drukowania bieżącego czasu. W przeciwnym razie są zapalone. Słowa są „podświetlane” przez wydrukowanie i są „podświetlane” przez zastąpienie ich spacjami o długości słowa.

Przykład: jeśli aktualny czas to 17:23, wydrukowany tekst musi wyglądać dokładnie tak:

IT IS 
        TWENTY
FIVE MINUTES
PAST
         FIVE

Zasady

1. Drukowany czas to wariant 12h, ale bez AM / PM.
2. Zaokrąglanie odbywa się tylko na podstawie minut (sekundy nie mają żadnego znaczenia). Zaokrąglanie jest wykonywane do najbliższej wielokrotności 5. Więc, na przykład, chociaż 17:52:38 naprawdę jest najbliżej 17:55, ale ponieważ sekundy nie mają znaczenia, 17:52 jest w rzeczywistości zaokrąglane w dół do 17:50, a wydrukowany tekst to „TO DZIESIĘĆ MINUT DO SZEŚCIU” (z odpowiednim odstępem). Więc jeśli XXjest wielokrotnością pięciu, XXbędą używane od GG: (XX-2): 00 do GG: (XX + 2): 59. Słowo MINUTESmusi się pojawić, jeśli FIVE, TENlub TWENTYsą oświetlone w sekcji minut (przed „do” lub „Past”).
3. Wszystkie nieistotne słowa są zastępowane tyloma spacjami, ile potrzeba, aby tekst był umieszczony w powyższym szablonie. Końcowe spacje mogą zostać przycięte. Należy zachować spacje istotne dla utrzymania tekstu na oczekiwanej pozycji.

4. Linie końcowe mogą być również przycięte. Odpowiednie puste wiersze są nadal wymagane. Przykład:

   IT IS      TEN
   
        MINUTES
   PAST TWO
   

5. Nie zapalaj się TENw pierwszym wierszu lub FIVEw trzecim wierszu, gdy te wartości odnoszą się do godzin.

6. Możesz zaakceptować dane wejściowe. Jeśli zaakceptujesz dane wejściowe, będzie to czas wydruku w dowolnym poprawnym formacie (ciąg, lista liczb całkowitych, czas natywny wpisz obsługę języka, ...), ale żadne parametry nie są dozwolone, jeśli nie są powiązane do czasu wydrukowania. Jeśli nie obsługuje danych wejściowych, musisz użyć bieżącej godziny. Jeśli popierasz oba, to lepiej, ale nie ma bonusu;)
7. Twój kod może być programem, funkcją, lambda, ale nie fragmentem kodu.
8. Jeśli twój język w jakikolwiek sposób obsługuje drukowanie, musi wydrukować wynik (nie mam nic przeciwko w pliku, na standardowym wyjściu). Jeśli twój język w żaden sposób nie obsługuje drukowania, możesz po prostu „zwrócić” oczekiwany tekst. Wynikiem może być cała wielka lub mała litera, a nie połączenie obu.
9. Obowiązują standardowe luki.
10. To jest golf golfowy, więc wygrywa najkrótszy kod!
11. W miarę możliwości proszę podać link do tłumacza online w Twoim języku.

Przypadki testowe

Input:  <no input> (the current local time is 19:20)
Output:     
IT IS
        TWENTY
     MINUTES
PAST 

    SEVEN

Input: 13:15
Output: (empty line is being printed)
IT IS
QUARTER

PAST
ONE

Input: 13:58
Output: (rounding)
IT IS


     TWO



       O'CLOCK

Input: 14:30
Output: (half is always a edge-case)
IT IS HALF


PAST TWO

Input: 15:35
Output: (light up "TO")
IT IS
        TWENTY
FIVE MINUTES TO

    FOUR

Input: 10:00
Output: (do not use the TEN or FIVE on the first line when referring to the hours)
IT IS





    TEN
      O'CLOCK

Input: 12:00
Output: (O'CLOCK and a lot of empty lines)
IT IS






TWELVE O'CLOCK

PHP, 387 384 353 352 342 323 310 306 298 293 291 bajtów

Dzięki @Christoph za grę w golfa wraz z jego doskonałymi odkryciami!
Na jego koncie jest co najmniej 45 bajtów; 16 lub więcej inspirowanych przez niego.

Zespół Marvela!

IT IS <?foreach([HALF,TEN,QUARTER,TWENTY,FIVE,MINUTES,TO,PAST,TWO,THREE,ONE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELVE,"O'CLOCK"]as$w)echo strstr([w,ghj,dhj,ej,fhj,fghj,cj,fghi,fhi,ei,dhi,ghi][$m=date(i)/5+.5].mklnopqrstuvm[date(h)-($m<7)],99+$i)?$w:$w^$w^"       ","
  "[$i++%3^$i<3];

zapętla dane i sprawdza, czy bieżący indeks znajduje się w wygenerowanym ciągu, który zawiera indeksy słów do podświetlenia (mapowane na litery); dodaje podział wiersza lub spację w zależności od indeksu.

Może dawać powiadomienia, jeśli nie użyjesz wartości domyślnej dla error_reporting(22519).

Przetestuj online.

awaria

IT IS <?
foreach([HALF,TEN,QUARTER,TWENTY,FIVE,MINUTES,TO,PAST,  // loop through words
TWO,THREE,ONE,FOUR,FIVE,SIX,SEVEN,EIGHT,NINE,TEN,ELEVEN,TWELVE,"O'CLOCK"]as$w)
    echo strstr(                    // search word index in ...
        [w,ghj,dhj,ej,fhj,fghj,cj,fghi,fhi,ei,dhi,ghi][$m=date(i)/5+.5] // minutes & co
        .mklnopqrstuvm[date(h)-($m<7)]                          // hours (-1 if minutes<33)
    ,99+$i                          // (map 0..20 to c..w)
    )?$w:$w^$w^"       ",           // if found, print string, else print spaces
    "\n  "[$i++%3^$i<3];            // if $i in [3,5,8,...], print newline, else space

Golfy :

• $x/5+.5|0jest dwa bajty krótszy niż round($x/5).
• Dwa wywołania date(h)są o jeden bajt krótsze niż przypisanie datewyniku do zmiennej.
• Za pomocą pojedynczego przydziału odegrał zmienną, w której były przechowywane indeksy podświetlenia.
• Ciąg indeksów podświetlenia zamiast tablicy zapisanej około 30 bajtów .
• $w<Ajest trzy bajty krótszy niż $w=="\n"- upewnij się, że po separatorze nie ma spacji!
• abs zapisano 8 bajtów na słowie minut.
• Dzięki @Christoph: Przejście od cyfr do liter dla mapy sprawiło, że separatory stały się przestarzałe i pozwoliły na jeszcze jeden ciąg zamiast tablicy; zapisane 23 + 8 bajtów .
  Użycie podkreślenia jako pierwszego indeksu pozwoliło na włączenie go do alternatyw „to jest”; i spowodowało, że cytat za godziny stał się nieaktualny.
• Powielenie 1wartości na mapie godzin sprawiło, że modulo stało się przestarzałe, a przy dodatkowym golfie zaoszczędzono 10 bajtów. Zainspirowany @Christoph.
• Obliczanie podziałów linii i spacji zamiast ich kodowania na stałe ogoliło 19 bajtów .
• Logika bitowa na ciągach oszczędza 7 bajtów: str_pad("",strlen($w))-> $w^$w^" ". (Christoph)
• Jeśli strtrdrugim parametrem nie jest ciąg znaków, zostanie on zinterpretowany jako kod ascii. oszczędza 5 bajtów.

TI-Basic, 335 334 bajty

Prawie idealnie, ponieważ cielęta TI-84 mają wyświetlacze 8 x 16 liter, a to jest 8 x 15. Jako dane wejściowe przyjmuje się datę w celu obsługi cieląt wcześniejszych niż TI-84, które nie mają wewnętrznych zegarów. Bez argumentów Inputdomyślnie pobiera dane wejściowe do Xi Y, podobnie jak Prompt X,Y. Więc Xbądź godzinami (wszystko >=0będzie działać poprawnie) i mieć Yminuty.

Input 
ClrHome
int(Y/5-5.6
Output(1,1,"IT IS
If Ans=~6
Output(8,8,"O'CLOCK
If 2=abs(3-abs(Ans
Output(3,1,"FIVE
If 4=abs(Ans
Output(1,12,"TEN
If 3=abs(Ans
Output(2,1,"QUARTER
If 2=abs(Ans
Output(2,8,"TWENTY
If sum(abs(Ans)={1,2,4,5
Output(3,5,"MINUTES
If not(Ans
Output(1,7,"HALF
If Ans<1 and Ans+6
Output(4,1,"PAST
If Ans>0
Output(3,14,"TO
12fPart(12(^~1)(X+(Y>32->A
If not(Ans
12->A
{21,6,10,25,30,41,45,51,61,66,70,81
.05Ans(A
Output(int(4+Ans),20fPart(Ans),sub("ONE   TWO   THREE FOUR  FIVE  SIX   SEVEN EIGHT NINE  TEN   ELEVENTWELVE",6A-5,6

Uwaga 1: W przypadku TI-84 + można zastąpić Inputczegoś podobnego getTime:Ans(1->X:getTime:Ans(2->Y. Również int(Y/5-5.6jest równoważne z round(Y/5,0)-6. I nie, w tym przypadku int(nie można było zamienić z nim iPart(.

Uwaga 2: To wypisuje dobrze wejście, ale z powodów estetycznych prawdopodobnie Pausena końcu programu chcesz uniknąć Donekomunikatu po zakończeniu programu.

Edycja: Zmniejszono liczbę bajtów, ponieważ tokenizowano (patrz uwaga na poprzedniej wersji), a także błąd został naprawiony dzięki @Neil. Po trzecie, naprawiłem błąd, który sam znalazłem, który kosztowałby 2 bajty, ale optymalizacja faktycznie zaoszczędziła 1 bajt ogółem, a także zdałem sobie sprawę, że otrzymuję dane wejściowe, więc nie muszę dzwonić getTime(duh?). Na koniec, dla każdego, kto chce potwierdzić tę liczbę bajtów, jedyny dwubajtowy token to sub(.

JavaScript (ES6), 291 303 295 bajtów

Pobiera dane wejściowe jako dwie liczby całkowite ze składnią curry (h)(m)

h=>m=>console.log(`IT IS HALF TEN
QUARTER TWENTY
FIVE MINUTES TO
PAST TWO THREE
ONE FOUR FIVE
SIX SEVEN EIGHT
NINE TEN ELEVEN
TWELVE O'CLOCK`.replace(/\S+/g,w=>(k/=2)&1?w:w.replace(/./g,' '),k=[x=1<<19,88,81,66,84,92,64.5,60,52,34,49,56,x,h=(m<33?h+11:h)%12][m/5+.4|0]*16|6|2048<<(h?h-(h<3):2)))

Jak to działa

Cały zegar można postrzegać jako 23 diody LED, które są WŁĄCZONE lub WYŁĄCZONE. Tak więc stan zegara to 23-bitowa liczba całkowita.

Bit | Word        Bit | Word
----+--------     ----+--------
00  | IT          12  | ONE
01  | IS          13  | FOUR
02  | HALF        14  | FIVE
03  | TEN         15  | SIX
04  | QUARTER     16  | SEVEN
05  | TWENTY      17  | EIGHT
06  | FIVE        18  | NINE
07  | MINUTES     19  | TEN
08  | TO          20  | ELEVEN
09  | PAST        21  | TWELVE
10  | TWO         22  | O'CLOCK
11  | THREE             

Minut logika, że musimy wdrożyć, aby umożliwić właściwe słowa nie jest tak proste, jak mogłoby się wydawać na pierwszy rzut oka. Formuła do gry w golfa może istnieć, ale poszedłem w prosty sposób i postanowiłem po prostu na stałe zakodować każdą możliwą konfigurację:

Minutes | Words                    | Enabled bits | Value   | Value / 8
--------+--------------------------+--------------+---------+----------
  00    | O'CLOCK                  | 22           | 4194304 | 524288
  05    | FIVE MINUTES PAST        | 6, 7, 9      | 704     | 88
  10    | TEN MINUTES PAST         | 3, 7, 9      | 648     | 81
  15    | QUARTER PAST             | 4, 9         | 528     | 66
  20    | TWENTY MINUTES PAST      | 5, 7, 9      | 672     | 84
  25    | TWENTY FIVE MINUTES PAST | 5, 6, 7, 9   | 736     | 92
  30    | HALF PAST                | 2, 9         | 516     | 64.5
  35    | TWENTY FIVE MINUTES TO   | 5, 6, 7, 8   | 480     | 60
  40    | TWENTY MINUTES TO        | 5, 7, 8      | 416     | 52
  45    | QUARTER TO               | 4, 8         | 272     | 34
  50    | TEN MINUTES TO           | 3, 7, 8      | 392     | 49
  55    | FIVE MINUTES TO          | 6, 7, 8      | 448     | 56

Przypadki testowe

let f =

h=>m=>console.log(`IT IS HALF TEN
QUARTER TWENTY
FIVE MINUTES TO
PAST TWO THREE
ONE FOUR FIVE
SIX SEVEN EIGHT
NINE TEN ELEVEN
TWELVE O'CLOCK`.replace(/\S+/g,w=>(k/=2)&1?w:w.replace(/./g,' '),k=[x=1<<19,88,81,66,84,92,64.5,60,52,34,49,56,x,h=(m<33?h+11:h)%12][m/5+.4|0]*16|6|2048<<(h?h-(h<3):2)))
;

[[13,15],[13,58],[14,30],[15,35],[10,0],[12,0]].map(([h, m]) => {
  console.log('h = ' + h, 'm = ' + m);
  f(h)(m);
});

Partia, 789 bajtów

@echo off
if not "%1"=="" setlocal&set time=%1
set/a"h=%time:~0,2%,m=6%time:~3,2%%%60+2,h+=m/35,h%%=12,m=6-m/5%%12,n=m%%3,o=m%%2
set p=
set s=
call:c %m:-=% "IT IS HALF" 0 "IT IS      TEN" 4 "IT IS"
call:c %m:-=% QUARTER 3 "        TWENTY" 2 "        TWENTY" 1
if %m% lss 0 set s= TO
call:c 0 "            " %n% "     MINUTES" %o% "FIVE MINUTES"
set s=
set p=PAST 
if %m%==6 set p=     
if %m% lss 0 set p=     
call:c %h% TWO 2 "    THREE" 3
set p=
call:c %h% ONE 1 "    FOUR" 4 "          FIVE" 5
call:c %h% SIX 6 "    SEVEN" 7 "          EIGHT" 8
call:c %h% NINE 9 "     TEN" 10 "         ELEVEN" 11
if %m%==6 set s= O'CLOCK
call:c %h% TWELVE 0 "      "
exit/b
:c
set t=%1
:l
if %t%==%3 echo(%p%%~2%s%&exit/b
shift
shift
if not "%3"=="" goto l
echo(%p%%~2%s%

Uwaga: Końcowe spacje za PASTi 5 końcowych spacji w każdym z następujących dwóch wierszy.

JavaScript, 567 564 551 542 529 527 519 bajtów

f=(h,m)=>{c={m6:"HALF ",m2:"TEN\n",m3:"QUARTER ",m4:"TWENTY\n",m1:"FIVE ",m:"MINUTES ",t:"TO\n",p:"PAST ",h2:"TWO ",h3:"THREE\n",h1:"ONE ",h4:"FOUR ",h5:"FIVE\n",h6:"SIX ",h7:"SEVEN ",h8:"EIGHT\n",h9:"NINE ",h10:"TEN ",h11:"ELEVEN\n",h0:"TWELVE ",m0:"O'CLOCK"};l=[];p="push";m=Math.round(m/5);if(m>11){m=0;h++}if(m>6){l[p]("t");m=12-m;h++}else if(m)l[p]("p");if(m%3)l[p]("m");if(m==5)l[p]("m4","m1");else l[p]("m"+m);l[p]("h"+h%12);s="IT IS ";for(k in c)s+=(l.indexOf(k)>=0)?c[k]:c[k].replace(/\S/g," ");console.log(s)}

f(19, 20);
f(13, 15);
f(13, 58);
f(14, 30);
f(15, 35);
f(10, 0);
f(12, 0);

Nie wiem, czy można godzić się na godziny i minuty jako argumenty. Powiedziałeś „lista liczb całkowitych”. Czy to wciąż się liczy?

Nawiasem mówiąc, to mój pierwszy raz w golfa. Co myślisz?

Edycja: Zapisano kilka bajtów, dzieląc minuty. Dzięki, Olivier!

JavaScript (ES6) 360

Funkcja z parametrami wejściowymi godzina (0..23) i minuta (0..59).
Używanie alertwyjścia, ponieważ jest to standardowa funkcja wyjścia w javascript, nawet jeśli jest to niewygodne. (I jest krótki)

(k,n,m=(n+2)/5|0,h=(k+(m>6))%12,i=0)=>alert(`IT IS HALF TEN
QUARTER TWENTY
FIVE MINUTES TO
PAST TWO THREE
ONE FOUR FIVE
SIX SEVEN EIGHT
NINE TEN ELEVEN
TWELVE O'CLOCK`.replace(/\S+/g,w=>[,,m-6,m-2&&m-10,m-3&&m-9,m-4&&m-8&&m-5&&m-7,m-1&&m-11&&m-5&&m-7,!(m%3),m<7|m==12,!m|m>6,h-2,h-3,h-1,h-4,h-5,h-6,h-7,h-8,h-9,h-10,h-11,h%12,m%12][i++]?w.replace(/./g,' '):w))

Uwaga testowa : dla spokoju ducha fragment testowy jest przekierowywany do tekstu strony

F=
(k,n,m=(n+2)/5|0,h=(k+(m>6))%12,i=0)=>alert(`IT IS HALF TEN
QUARTER TWENTY
FIVE MINUTES TO
PAST TWO THREE
ONE FOUR FIVE
SIX SEVEN EIGHT
NINE TEN ELEVEN
TWELVE O'CLOCK`.replace(/\S+/g,w=>[,,m-6,m-2&&m-10,m-3&&m-9,m-4&&m-8&&m-5&&m-7,m-1&&m-11&&m-5&&m-7,!(m%3),m<7|m==12,!m|m>6,h-2,h-3,h-1,h-4,h-5,h-6,h-7,h-8,h-9,h-10,h-11,h%12,m%12][i++]?w.replace(/./g,' '):w))

function alert(x) { O.textContent=x }
function update() { F(+H.value,+M.value) }

update()

input { width:3em }

Hours<input id=H type=number min=0 max=23 value=17 oninput='update()'>
Minutes<input id=M type=number min=0 max=59 value=37 oninput='update()'>
<pre id=O></pre>

Python 2, 466 , 460 , 449 , 452 , 459 449 bajtów

Ponieważ może to być funkcja przyjmująca hi jako liczby całkowite, możemy zapisać kilka bajtów. Wypróbuj online .

def t(h,m):


m=(2+m)//5
 h=h%12
 n=0
 if m>6:n,m=1,12-m;h+=1
 a="""IT IS _HALF _TEN_
 _QUARTER _TWENTY_
 _FIVE _MINUTES _TO_
 _PAST _TWO _THREE_
 _ONE _FOUR _FIVE_
 _SIX _SEVEN _EIGHT_
 _NINE _TEN _ELEVEN_
 _TWELVE _O'CLOCK""".split("_")
 b=[1,m==6,m==2,1,m==3,3<m<6,1,m in[1,5],m in[1,2,4],n*m,1,(1-n)*m,h==2,h==3,1,h==1,h==4,h==5,1,h==6,h==7,h==8,1,h==9,h==10,h==11,1,h==0,m==0]
 for i,c in enumerate(a):
  if b[i]:print c,
  else:print' '*len(c),

Miałem parę błędów (obecnie stały) z logiką do TO/ PASTvs O'CLOCK. Zapisałem również kilka bajtów dla enumerate, zmieniając importi 19<m<26zamiast m in [20,25]. Zaoszczędziłem kolejne 8 za pracę w 5-minutowych kawałkach, a nie minutach. Rod zwrócił uwagę na kilka błędów, które mnie trochę kosztują, ale odrobiłem trochę więcej, dzięki wydajniejszym zadaniom i poprawce błędów, która działała na moją korzyść.

Perl 6 , 308 296 293 bajtów

->\h,\m{my \n=round(m/5)%12;say "IT IS HALF TEN
QUARTER TWENTY
FIVE MINUTES TO
PAST TWO THREE
ONE FOUR FIVE
SIX SEVEN EIGHT
NINE TEN ELEVEN
TWELVE O'CLOCK".subst: /\S+/,{++$==1|2|(0,7,4,5,6,(6|7),3)[min n,12-n]|8*?(n%3)|(23,10,9)[(n+5)/6]|(13,11,12,|(14..*))[(h+m/33-1)%12]??$_!!" "x.comb},:g}

Wypróbuj online!

Wyjaśnienie

Podstawowa struktura jest następująca:

-> \h, \m {                             # A lambda taking two args (hour and minute).
    my \n = round(m / 5) % 12;          # Index from 0 to 11, representing the minutes.
    say "...".subst: /\S+/, {           # Print the template with each word replaced:
        ++$ == ...|...|...|...          # If counter equals one of expected indices,
            ?? $_                       # then replace the word with itself,
            !! " " x .comb              # else replace it with spaces.
    }, :g                               # (Use global matching.)
}

Wyrażenie elided jak ...|...|...|...powyżej, jest połączeniem liczb całkowitych reprezentujących indeksy słów oparte na 1, i składa się z następujących elementów:

  1|2                                   # IT IS
| (0,7,4,5,6,(6|7),3)[min n,12-n]       # FIVE / TEN / QUARTER / TWENTY / TWENTY FIVE / HALF
| 8*?(n%3)                              # MINUTES
| (23,10,9)[(n+5)/6]                    # O'CLOCK / PAST / TO
| (13,11,12,|(14..*))[(h+m/33-1)%12]    # ONE / TWO / THREE / FOUR / FIVE / SIX / SEVEN / ...

Python3, (569 bajtów)

Ta odpowiedź wymaga czasu w formacie gg mm (liczby całkowite oddzielone spacją). Udało mi się wydrukować „\ n”, co jest inspirowane metodą Chrisa. Dzięki, Chris! Doceniamy wszelką pomoc dotyczącą ograniczenia kodu.

H,M=input().split()
w="""HALF _TEN_
_QUARTER _TWENTY_
_FIVE _MINUTES _TO_
_PAST _TWO _THREE_
_ONE _FOUR _FIVE_
_SIX _SEVEN _EIGHT_
_NINE _TEN _ELEVEN_
_TWELVE _O'CLOCK""".split("_")
h,m=int(H),int(M)
if h>12:h-=12
m=(m//5+1)*5 if m%5>2.5 else m//5*5
if m>30:
    m=60-m
    h=(h+1)%12
X=[m==30,m==10,1,m==15,m in[20,25],1,m in[5,25],m not in[0,15,30],int(M)>30 and m!=0,1,m!=0 and int(M)<31,h==2,h==3,1,h==1,h==4,h==5,1,h==6,h==7,h==8,1,h==9,h==10,h==11,1,h in[0,12],m==0]
t="IT IS "
for i in range(0,28):
    if(X[i]):t+=w[i]
    else:t+=" "*len(w[i])
print(t.strip())

Wypróbuj online

Python 2 , 443 440 bajtów

R=range
w="HALF TEN QUARTER TWENTY FIVE MINUTES TO PAST TWO THREE ONE FOUR FIVE SIX SEVEN EIGHT NINE TEN ELEVEN TWELVE O'CLOCK".split(' ')
h=[10,8,9]+R(11,20)
c=['IT','IS']+[' '*len(x)for x in w]
i,j=input()
i=(i,i+1)[j>30]%13-1
j=int(round(j/5.0)*5.0)%60
for z in[[20],[4,5,7],[1,5,7],[2,7],[3,5,7],[3,4,5,7],[0,7],R(3,7),[3,5,6],[2,6],[1,5,6],R(4,7)][j/5]:c[z]=w[z]
c[h[i]]=w[h[i]]
x=0
for y in[4]+R(6,22,3)+[23]:print' '.join(c[x:y]);x=y

Wypróbuj online!

Prawdopodobnie przydałoby się jeszcze trochę golfa. Dane wejściowe to lista liczb całkowitych, np. 7,23 = 7:23

SimpleTemplate , 737 708 bajtów

Tak, gadatliwość i brak „prawdziwej” matematyki poważnie zaszkodziły bajtowi.

{@seth argv.0}{@php$DATA[m]=ceil($DATA[argv][1]/5)*5%60|0}{@ifm}{@ifm is30}{@setA"HALF"}{@/}{@if"@[15]0$@"is matchesm}{@setB"TEN"}{@/}{@if"@[14]5$@"is matchesm}{@setC"QUARTER"}{@/}{@if"@[24]0$@"is matchesm}{@setD"TWENTY"}{@/}{@if"@^[25]?5$@"is matchesm}{@setE"FIVE"}{@/}{@if"@^([235]?5|[1245]0)$@" is matchesm}{@setF"MINUTES"}{@/}{@ifm is greater30}{@setG"TO"}{@else}{@setH"PAST"}{@/}{@else}{@setU"O\'CLOCK"}{@/}{@setZ"","ONE","TWO","THREE","FOUR","FIVE","SIX","SEVEN","EIGHT","NINE","TEN","ELEVEN","TWELVE"}{@setY"J"}{@incbyh Y}{@php$DATA[$DATA[Y]]=$DATA[Z][$DATA[h]]}{@print"IT IS%-6s%s\n%8s%s\n%-5s%-7s %s\n%4s %3s %s\n%3s %4s %s\n%3s %5s %s\n%4s %3s %s\n%6s %s",A,B,C,D,E,F,G,H,J,K,I,L,M,N,O,P,Q,R,S,T,U}

Oczekuje, że godzina i minuty będą pierwszym i drugim parametrem w klasie.

Nie golfowany:

{@set hour argv.0}

{@//The bitwise is required for the `@if minutes is 30`}
{@//Otherwise, I would be forced to write `@if minutes is equal to 30`}
{@php $DATA['minutes'] = ((ceil($DATA['argv'][1] / 5) * 5) % 60) | 0}

{@if minutes}
    {@if minutes is 30}
        {@set A "HALF"}
    {@/}
    {@if "@[15]0$@" is matches minutes}
        {@set B "TEN"}
    {@/}
    {@if "@[14]5$@" is matches minutes}
        {@set C "QUARTER"}
    {@/}
    {@if "@[24]0$@" is matches minutes}
        {@set D "TWENTY"}
    {@/}
    {@if "@^[25]?5$@" is matches minutes}
        {@set E "FIVE"}
    {@/}
    {@if "@^([235]?5|[1245]0)$@" is matches minutes}
        {@set F "MINUTES"}
    {@/}
    {@if m is greater than 30}
        {@set G "TO"}
    {@else}
        {@set H "PAST"}
    {@/}
{@else}
    {@set U "O\'CLOCK"}
{@/}


{@set numbers "", "ONE", "TWO", "THREE", "FOUR", "FIVE", "SIX", "SEVEN", "EIGHT", "NINE", "TEN", "ELEVEN", "TWELVE"}
{@set key "J"}
{@inc by hour key}
{@php $DATA[$DATA['key']] = $DATA['numbers'][$DATA['hour']]}

{@print "IT IS%-6s%s\n%8s%s\n%-5s%-7s %s\n%4s %3s %s\n%3s %4s %s\n%3s %5s %s\n%4s %3s %s\n%6s %s", A, B, C, D, E, F, G, H, J, K, I, L, M, N, O, P, Q, R, S, T, U}

Jak uruchomić:

1. Pobierz kod z https://github.com/ismael-miguel/SimpleTemplate

2. Uruchom następujący kod:

   <?php
       include 'SimpleTemplate.php';
   
       $template = new SimpleTemplate('<code>');
   
       $template->render($hour, $minutes);
   
       //system-time: $template->render(date('g'), date('i'));
   

3. Gotowy!

Java (OpenJDK 9) , 437 bajtów

(h,m)->{h=(h+m/35+11)%12+1;Object[]s="HALF TEN QUARTER TWENTY FIVE MINUTES TO PAST TWO THREE ONE FOUR FIVE SIX SEVEN EIGHT NINE TEN ELEVEN TWELVE O'CLOCK".split(" ");for(int i=s.length,M[]={1<<20,176,162,132,168,184,129,120,104,68,98,112};i-->0;)s[i]=(7<i&i<20?h==i-(h>3?7:h>1?6:9):(M[(m+2)/5%12]&(1<<i))>0)?s[i]:"";System.out.printf("IT IS %4s %3s%n%7s %6s%n%4s %7s %2s%n%4s %3s %5s%n%3s %4s %4s%n%3s %5s %5s%n%4s %3s %6s%n%6s %7s",s);}

Wypróbuj online!

Myślałem, że w końcu spróbuję rzucić wyzwanie;)

Perl 5 , 487 449 bajtów

($a,$_,$h)=localtime;s/[3-7]$/5/;s/[12]$/0/;$m=s/(.?)[89]$/($1+1)*10/er;$_="IT IS half ten
quarter tw
five minutes to
past 2two 3three
1one 4four 5five
6six 7seven 8eight
9nine 10ten 11eleven
12twelve oc";if($m>30){s/to/TO/;$h++;$m=60-$m}elsif($m){s/past/PAST/}$h=$h%12||12;$m!=30?$m%15?s/m\w+/uc$&/e:$m?s/q\w+/uc$&/e:s/oc/O'CLOCK/:s/half/HALF/;$m%10&&!/Q/&&s/five/FIVE/;$m>15&&$m<30?s/tw/TWENTY/:$m==10&&s/ten/TEN/;s/\b$h\w+/uc$&/es;y/a-z0-9/ /;say

Wypróbuj online!