भूल गए स्थानों की तारीख कैलकुलेटर

Question

अंतर्निहित लाइब्रेरी और बिना उन भाषाओं के बीच खेल के क्षेत्र को समतल करने के प्रयास में, चलो एक काल्पनिक कैलेंडर के साथ काम करते हैं। भूल गए लोग डंगऑन और ड्रेगन के लिए एक ( ? ) अभियान सेटिंग हैं। बेशक, प्रत्येक का अपना कैलेंडर है।

हार्प्टोस का कैलेंडर

आसानी से, एक साल के लिए भूल गए स्थानों में भी 365 दिन होते हैं। इसके अलावा, कैलेंडर में 12 महीने भी होते हैं। हालांकि, यह वह जगह है जहां यह दिलचस्प हो जाता है। प्रत्येक माह ठीक 30 दिनों का होता है। शेष 5 दिन छुट्टियां हैं जो महीनों के बीच आते हैं । यहां महीने और अवकाश क्रम में हैं (छुट्टियों के साथ इंडेंटेड):

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

ध्यान दें कि मैंने कोष्ठक में छठा अवकाश डाला है। यह छलांग का दिन है जो केवल हर चार साल में होता है (हां, यह बात है - सदियों के साथ कोई अतिरिक्त शेंनिगन नहीं हैं)।

महीने के नामों के बारे में ध्यान दें: प्रत्येक महीने में एक औपचारिक और एक सामान्य नाम होता है। उपरोक्त सामान्य नाम हैं। मैंने उन्हें चुना है क्योंकि मुझे लगता है कि वे अधिक दिलचस्प संपीड़न के लिए अनुमति देते हैं।

वहाँ कई वर्षों की संख्या है, लेकिन सबसे व्यापक एक Dalereckoning है , डॉ के लिए छोटा है । (इसके अलावा, हर साल एक या एक से अधिक नाम होते हैं , लेकिन हम इससे परेशान नहीं होंगे।)

दिनांक के घटकों को अल्पविराम और एक स्थान से अलग किया जाना चाहिए। सभी में, एक मान्य तिथि लग सकती है:

4, The Melting, 1491 DR

या

Shieldmeet, 1464 DR

ध्यान दें कि छुट्टियों के लिए कोई दिन की संख्या नहीं है। (मुझे लगता 4th of The Meltingहै कि महीनों के दिनों के लिए अच्छा होगा, लेकिन मैं इसमें क्रमिक संख्याओं को नहीं खींचना चाहता।)

_{फुटनोट: मैं इसके साथ आया था जब xnor ने शिकायत की थी कि हर एक तारीख की चुनौती को लीप वर्ष की गणना की आवश्यकता होती है। मैं इसे पूरी तरह से समाप्त करने में विफल रहा हूं, लेकिन कम से कम यह इस कैलेंडर में केवल एक मोडुलो है।}

चुनौती

हार्प्टोस के कैलेंडर की एक मान्य तिथि और साथ ही एक पूर्णांक को देखते हुए D, तिथि के Dबाद के दिनों का उत्पादन करते हैं । ध्यान दें कि Dनकारात्मक हो सकता है, जिस स्थिति में आपको तारीख वापस करनी चाहिएD दिन ।

आप STDIN (या निकटतम विकल्प), कमांड-लाइन तर्क या फ़ंक्शन तर्क के माध्यम से इनपुट ले रहे हैं और STDOUT (या निकटतम विकल्प), फ़ंक्शन रिटर्न मान या फ़ंक्शन (आउट) पैरामीटर के माध्यम से परिणाम लिख सकते हैं।

आप मान सकते हैं कि वर्ष सकारात्मक है और 2000 से कम है।

मानक कोड-गोल्फ नियम लागू होते हैं।

परीक्षण के मामलों

पहले दर्जन या तो परीक्षण मामलों में छुट्टियों और लीप वर्षों के आसपास के सभी किनारे के मामलों का परीक्षण करना चाहिए। अगला सेट यह परीक्षण करने के लिए है कि कई वर्षों के काम की सीमा है और सभी महीने और छुट्टियों को लागू किया गया है। उत्तरार्ध फिर से एक ही परीक्षण के मामले हैं लेकिन नकारात्मक ऑफसेट के साथ।

"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"

Comments

DragonLance एक और प्रमुख डी एंड डी अभियान सेटिंग है। मुझे उनके कैलेंडर के बारे में बहुत कुछ याद नहीं है, सिवाय उनके तीन चन्द्रमाओं के, जिनके बारे में कुछ संदर्भ पुस्तक में विस्तार से बताया गया था।

— CJ डेनिस

Answer 1

रूबी, 543 523 521 498 511 509 बाइट्स

इस प्रश्न के अधिक उत्तरों को प्रोत्साहित करने के लिए, मैं अपने पायथन उत्तर का एक रूबी संस्करण पोस्ट करने जा रहा हूं, क्योंकि मुझे लगा कि यह छोटा होगा। इस उत्तर है छोटा लेकिन बहुत से नहीं। क्या आप कर सकते हैं? बेहतर ?

संपादित करें: यहां मार्टिन बटनर और उनके सुझाव के लिए धन्यवाद ।

संपादित करें: मैंने "महीने में दिनों की संख्या" को काफी नीचे सूचीबद्ध किया।

संपादित करें: एक ओर जहां नीचे गोल्फ कैसे मैं संभाला d[10]=r%4<1?1:0करने के लिए d[10]=0**(r%4)एक बाइट के लिए, मैंने देखा मैं एक बग की शुरुआत की थी, जबकि नीचे गोल्फ dदिनों सूची की संख्या,, ताकि Shieldmeet दुर्घटना से 30 दिनों के लिए किया था। और इसलिए, बाइट गिनती वापस आ गई है। मैं इस बग को ठीक करने के लिए पायथन उत्तर को भी संपादित करूंगा।

संपादित करें: मैं यह भूल गया कि इस प्रश्न में नाम रखने की आवश्यकता नहीं है।

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

Ungolfed:

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

Answer 2

पायथन 3, 712 652 636 567 563 552 550 548 529 540 बाइट्स

अंत में, मुझे इस उत्कृष्ट प्रश्न का उत्तर लिखने का समय मिला। यह अभी तक बहुत गोल्फ नहीं है (महीने के नाम की सूची और दिनों की सूची की संख्या इस मामले में विशेष रूप से प्रबल है , और नकारात्मक Dको संभालने वाले तथ्य को लूप करते समय एक अलग आवश्यकता होती है ) लेकिन कम से कम इसका जवाब है।

संपादित करें: बग को ठीक करना

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"

Ungolfed:

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"