Aby wyrównać szanse między językami z wbudowanymi bibliotekami dat i tymi bez, pracujmy z fikcyjnym kalendarzem. Forgotten Realms to ustawienie kampanii ( ? ) Dla Dungeons & Dragons. Oczywiście każdy z nich ma swój własny kalendarz.

Kalendarz Harptos

Dogodnie rok w Forgotten Realms ma również 365 dni. Ponadto kalendarz ma również 12 miesięcy. Tutaj jednak robi się ciekawie. Każdy miesiąc trwa dokładnie 30 dni. Pozostałe 5 dni to święta przypadające między miesiącami. Oto miesiące i święta w kolejności (z wcięciami urlopowymi):

1   Deepwinter
        Midwinter
2   The Claw of Winter
3   The Claw of the Sunsets
4   The Claw of the Storms
        Greengrass
5   The Melting
6   The Time of Flowers
7   Summertide
        Midsummer
        [Shieldmeet]
8   Highsun
9   The Fading
        Highharvestide
10  Leaffall
11  The Rotting
        The Feast of the Moon
12  The Drawing Down

Zauważ, że wstawiłem szóste wakacje w nawiasach. To dzień przestępny, który pojawia się tylko co cztery lata (tak, to jest to - z wiekami nie ma żadnych dodatkowych shenaniganów).

Uwaga dodatkowa na temat nazw miesięcy: każdy miesiąc ma formalną i wspólną nazwę. Powyżej są pospolite nazwy. Wybrałem je, ponieważ myślę, że pozwalają one na bardziej interesującą kompresję.

Istnieje kilka numeracji lat, ale najbardziej rozpowszechnioną jest Dalereckoning , w skrócie DR . (Co roku ma co najmniej jedno imię , ale nie będziemy się tym przejmować.)

Składniki daty powinny być oddzielone przecinkiem i spacją. W sumie poprawna data może wyglądać następująco:

4, The Melting, 1491 DR

lub

Shieldmeet, 1464 DR

Pamiętaj, że nie ma numeru dnia świątecznego. (Przypuszczam 4th of The Melting, że byłoby ładniej na kilka dni, ale nie chcę przeciągać do tego liczb porządkowych).

_{Przypis: Wymyśliłem to, gdy xnor narzekał, że każde wyzwanie związane z datą wymaga obliczenia roku przestępnego. Nie udało mi się go całkowicie wyeliminować, ale przynajmniej jest to tylko jeden moduł w tym kalendarzu.}

Wyzwanie

Biorąc pod uwagę prawidłową datę Kalendarza Harptos, a także liczbę całkowitą D, wypisz datę Dpóźniej. Pamiętaj, że Dmoże być negatywne, w takim przypadku powinieneś zwrócić datę Dwcześniej.

Możesz napisać program lub funkcję, pobierając dane wejściowe przez STDIN (lub najbliższą alternatywę), argument wiersza poleceń lub argument funkcji i wypisując wynik przez STDOUT (lub najbliższą alternatywę), wartość zwracaną funkcji lub parametr funkcji (wyjściowej).

Możesz założyć, że rok jest dodatni i krótszy niż 2000.

Obowiązują standardowe zasady gry w golfa .

Przypadki testowe

Około kilkunastu pierwszych przypadków testowych powinno przetestować wszystkie przypadkowe przypadki otaczające wakacje i lata przestępne. Następnym zestawem jest testowanie, które obejmuje wiele lat pracy i wszystkie miesiące i święta zostały wdrożone. Druga połowa to znowu te same przypadki testowe, ale z przesunięciami ujemnymi.

"30, Summertide, 1491 DR" 1                 => "Midsummer, 1491 DR"
"30, Summertide, 1491 DR" 2                 => "1, Highsun, 1491 DR"
"Midsummer, 1491 DR" 1                      => "1, Highsun, 1491 DR"
"30, Summertide, 1492 DR" 1                 => "Midsummer, 1492 DR"
"30, Summertide, 1492 DR" 2                 => "Shieldmeet, 1492 DR"
"30, Summertide, 1492 DR" 3                 => "1, Highsun, 1492 DR"
"Midsummer, 1492 DR" 1                      => "Shieldmeet, 1492 DR"
"Midsummer, 1492 DR" 2                      => "1, Highsun, 1492 DR"
"Shieldmeet, 1492 DR" 1                     => "1, Highsun, 1492 DR"
"1, Highsun, 1490 DR" 365                   => "1, Highsun, 1491 DR"
"1, Highsun, 1491 DR" 365                   => "Shieldmeet, 1492 DR"
"Shieldmeet, 1492 DR" 365                   => "Midsummer, 1493 DR"
"Midsummer, 1493 DR" 365                    => "Midsummer, 1494 DR"
"Shieldmeet, 1500 DR" 365                   => "Midsummer, 1501 DR"

"14, Deepwinter, 654 DR" 5069               => "The Feast of the Moon, 667 DR"
"Midwinter, 17 DR" 7897                     => "15, The Fading, 38 DR"
"3, The Claw of Winter, 1000 DR" 813        => "25, The Claw of the Storms, 1002 DR"
"Greengrass, 5 DR" 26246                    => "9, The Claw of the Sunsets, 77 DR"
"30, The Melting, 321 DR" 394               => "29, The Time of Flowers, 322 DR"
"17, The Time of Flowers, 867 DR" 13579     => "20, Highsun, 904 DR"
"Highharvestide, 1814 DR" 456               => "30, The Drawing Down, 1815 DR"
"23, The Rotting, 1814 DR" 3616             => "16, Leaffall, 1824 DR"
"1, Deepwinter, 1 DR" 730499                => "30, The Drawing Down, 2000 DR"

"Midsummer, 1491 DR" -1                     => "30, Summertide, 1491 DR"
"1, Highsun, 1491 DR" -2                    => "30, Summertide, 1491 DR"
"1, Highsun, 1491 DR" -1                    => "Midsummer, 1491 DR"
"Midsummer, 1492 DR" -1                     => "30, Summertide, 1492 DR"
"Shieldmeet, 1492 DR" -2                    => "30, Summertide, 1492 DR"
"1, Highsun, 1492 DR" -3                    => "30, Summertide, 1492 DR"
"Shieldmeet, 1492 DR" -1                    => "Midsummer, 1492 DR"
"1, Highsun, 1492 DR" -2                    => "Midsummer, 1492 DR"
"1, Highsun, 1492 DR" -1                    => "Shieldmeet, 1492 DR"
"1, Highsun, 1491 DR" -365                  => "1, Highsun, 1490 DR"
"Shieldmeet, 1492 DR" -365                  => "1, Highsun, 1491 DR"
"Midsummer, 1493 DR" -365                   => "Shieldmeet, 1492 DR"
"Midsummer, 1494 DR" -365                   => "Midsummer, 1493 DR"
"Midsummer, 1501 DR" -365                   => "Shieldmeet, 1500 DR"

"The Feast of the Moon, 667 DR" -5069       => "14, Deepwinter, 654 DR"
"15, The Fading, 38 DR" -7897               => "Midwinter, 17 DR"
"25, The Claw of the Storms, 1002 DR" -813  => "3, The Claw of Winter, 1000 DR"
"9, The Claw of the Sunsets, 77 DR" -26246  => "Greengrass, 5 DR"
"29, The Time of Flowers, 322 DR" -394      => "30, The Melting, 321 DR"
"20, Highsun, 904 DR" -13579                => "17, The Time of Flowers, 867 DR"
"30, The Drawing Down, 1815 DR" -456        => "Highharvestide, 1814 DR"
"16, Leaffall, 1824 DR" -3616               => "23, The Rotting, 1814 DR"
"30, The Drawing Down, 2000 DR" -730499     => "1, Deepwinter, 1 DR"

Rubinowy, 543 523 521 498 511 509 bajtów

Aby zachęcić więcej odpowiedzi na to pytanie, zamierzam opublikować Rubinową wersję mojej odpowiedzi w Pythonie, ponieważ uznałem, że będzie ona krótsza. Ta odpowiedź jest krótsza, ale niewiele. Czy potrafisz lepiej?

Edycja: Z podziękowaniami dla Martina Büttnera i jego sugestii tutaj .

Edycja: Znacząco obniżyłem listę „liczby dni w miesiącu”.

Edycja: Podczas gry w golfa, jak radziłem d[10]=r%4<1?1:0sobie d[10]=0**(r%4)z bajtem, zauważyłem, że wprowadziłem błąd podczas gry w golfa d, listę dni, tak że Shieldmeet miał 30 dni przez przypadek. I tak liczba bajtów wróciła. Będę również edytować odpowiedź w języku Python, aby naprawić ten błąd.

Edycja: Zapomniałem, że funkcje nie muszą być nazwane w tym pytaniu.

->s,n{x=s[0..-4].split(", ");x=x[2]?x:[1,*x];t=(["Deepwinter,Midwinter","Winter","Sunsets","the Storms,Greengrass,The Melting,The Time of Flowers,Summertide,Midsummer,Shieldmeet,Highsun,The Fading,Highharvestide,Leaffall,The Rotting,The Feast of the Moon,The Drawing Down"]*',The Claw of ').split(?,);p,q,r=x[0].to_i+n,t.index(x[1]),x[2].to_i;d=[30,1,30,30]*4+[1,30];d[10]=0**(r%4);(a=p<1?1:-1;q=(q-a)%18;p+=a*d[a<0?q-1:q];r-=a*0**q;d[10]=0**(r%4))until(1..d[q])===p;z=d[q]<2?[t[q],r]:[p,t[q],r];z*", "+" DR"}

Nie golfowany:

def h(s,n)
  x=s[0..-4].split(", ")
  x=x[2]?x:[1,*x]
  t=["Deepwinter,Midwinter","Winter","Sunsets","the Storms,Greengrass,The Melting,The Time of Flowers,Summertide,Midsummer,Shieldmeet,Highsun,The Fading,Highharvestide,Leaffall,The Rotting,The Feast of the Moon,The Drawing Down"]
  t=t*',The Claw of '           # turns the above array into a string with "Claw"s inserted
  t=t.split(?,)                 # then splits that string back up again by ","
  p=x[0].to_i+n
  q=t.index(x[1])
  r=x[2].to_i
  d=[30,1,30,30]*4+[1,30]
  d[10]=0**(r%4)
  until(1..d[q])===p
    a=p<1?1:-1
    q=(q-a)%18
    p+=a*d[a<0?q-1:q]
    r-=a*0**q
    d[10]=0**(r%4)
  end
  z=d[q]<2?[t[q],r]:[p,t[q],r]  # putting z=[t[q],r] on another line saved me no bytes
  z*", "+" DR"
end

Python 3, 712 652 636 567 563 552 550 548 529 540 bajtów

W końcu znalazłem czas, aby napisać odpowiedź na to doskonałe pytanie. Nie jest jeszcze bardzo golfowy (lista nazw miesięcy i lista dni są szczególnie rażące w tym przypadku , a fakt, że obsługa negatywów Dwymaga osobnej pętli while ), ale przynajmniej jest to odpowiedź.

Edytować: Naprawianie błędu

def h(s,n):
 x=s[:-3].split(", ");x=[1]*(len(x)<3)+x;t="Deepwinter,Midwinter,The Claw of Winter,The Claw of the Sunsets,The Claw of the Storms,Greengrass,The Melting,The Time of Flowers,Summertide,Midsummer,Shieldmeet,Highsun,The Fading,Highharvestide,Leaffall,The Rotting,The Feast of the Moon,The Drawing Down".split(",");p,q,r=int(x[0])+n,t.index(x[1]),int(x[2]);d=[30,1,30,30]*4+[1,30];d[10]=r%4<1
 while p>d[q]or p<1:a=[-1,1][p<1];q=(q-a)%18;p+=a*d[q-(a<0)];r-=a*0**q;d[10]=r%4<1
 return', '.join([str(p)]*(d[q]>2)+[t[q],str(r)])+" DR"

Nie golfowany:

def harptos(date, num):
    t = "Deepwinter,Midwinter,The Claw of Winter,The Claw of the Sunsets,The Claw of the Storms,Greengrass,The Melting,The Time of Flowers,Summertide,Midsummer,Shieldmeet,Highsun,The Fading,Highharvestide,Leaffall,The Rotting,The Feast of the Moon,The Drawing Down"
    t = t.split(",")        # split up the names of the months
    x = date[:-3]           # removes " DR"
    x = x.split(", ")
    if len(x) < 3:
        x = [1] + x         # if we have two items (holiday), append a "day of the month"
    p = int(x[0]) + num     # initialize the "date" by adding num to it
    q = t.index(x[1])
    r = int(x[2])
    d=[30,1,30,30]*4+[1,30] # all the month lengths
    d[10] = r%4 < 1         # leap year toggle
    while p > d[q]:         # while the "date" > the number of days in the current month
        p -= d[q]           # decrement by number of days in current month
        q = (q+1)%18        # increment month
        r += 0**q           # increment year if the incremented month == the first month
        d[10] = r%4 < 1     # leap year toggle
    while p < 1:            # while the "date" is negative
        q = (q-1)%18        # decrement month first
        p += d[q]           # add the number of days in the decremented month
        r -= 0**q            # decrement year if the decremented month == the first month
        d[10] = r%4 < 1     # leap year toggle
    m = [t[q],str(r)]       # start the result array
    if d[q] > 2:
        m = [str(p)] + m    # if the month is NOT a holiday, add the day
    return ", ".join(m) + " DR"