Lịch Mel được sử dụng trong thế giới hư cấu của Kaldia. Mục tiêu của bạn là chuyển đổi ngày thành lịch Mel.

Lịch này có 13 tháng mỗi 28 ngày, cộng thêm 1 hoặc 2 ngày sau tháng cuối cùng. Một năm chia hết cho 4 nhưng không chia hết cho 100 hoặc chia hết cho 400 có 365 ngày và các năm khác có 365 (tức là quy tắc năm nhuận của chúng tôi, nhưng có năm trong lịch Mel).

Bạn nên sử dụng tên viết tắt tháng và ngày :

tháng: dia vio lis gil Ful dyu mel ral zan pal mik fav ruj

ngày: dia vio lis gil Ful dyu mel ral zan pal mik fav ruj ser rav tan lin rez jil din ket len ​​lax nen pin mat kun mir

Các ngày thêm bên ngoài của bất kỳ tháng nào có tên tháng myuxet(không viết tắt ở đây) và tên ngày tương ứng là axetvà teems.

0 dia dia là 1988/11/30.

Bạn có thể lấy ngày đầu vào dưới dạng một chuỗi hoặc một tuple (năm, tháng, ngày); cách khác, đối với các hàm, tham số có thể nằm trong loại ngày của thư viện chuẩn của bạn. Đầu ra phải là một chuỗi phân tách không gian.

Các trường hợp thử nghiệm

1776-07-04 => -213 ral ket
1859-12-15 => -129 dia rav
1917-04-14 => -72 ful nen
1981-02-04 => -8 lis mik
1988-11-30 => 0 dia dia
1988-12-01 => 0 dia vio
1988-12-28 => 0 vio dia
2017-01-01 => 28 vio ful
2019-04-22 => 30 dyu lis
2019-11-30 => 30 myuxet axet
2019-12-01 => 31 dia dia
2021-11-29 => 32 myuxet axet
2021-11-30 => 32 myuxet teems
2089-11-30 => 101 dia dia
2389-11-30 => 400 myuxet teems

Bạn sẽ có thể xử lý ít nhất là từ 1 AD đến 9999 AD.

Tham chiếu thực hiện trong Perl 6

Sơ hở tiêu chuẩn bị cấm.

Perl 6 , 174 byte

{~(.year,(|[X]("diaviolisgilfuldyumelralzanpalmikfavrujserravtanlinrezjildinketlenlaxnenpinmatkunmir".comb(3)xx 2)[^364],|("myuxet"X <axet teems>))[.day-of-year-1])}o*-726436

Hãy thử trực tuyến!

Tạo một danh sách tất cả các ngày hợp lệ và sau đó lập chỉ mục ngày trong năm vào danh sách đó.

Giải trình

{                                                   }  # Anonymous code block
                                                     o*-726436  # Subtract some days from the input
  (.year,                               # Output the year
           [X]("...".comb(3))[^365]     # Then produce a list of all months/days
         (|                        ,
          |("myuxet"X <axet teems>))    # And the extra days
                                    [.day-of-year-1]   # And get the current date
 ~   # Stringify the list

Ruby , 199 195 193 byte

Oof, chỉ có 23 27 29 byte được lưu trên mã Perl mẫu ...

-4 byte từ @NickKennedy.

-2 byte từ @Neil.

->d{d-=62764e6;y=d.yday;s="diaviolisgilfuldyumelralzanpalmikfavrujserravtanlinrezjildinketlenlaxnenpinmatkunmir".scan /.../;[d.year,y<364?s[y/28]:"myuxet",(y<364?s:%w[axet teems])[y%28-1]]*' '}

Hãy thử trực tuyến!

Japt -S , 148 byte

ÐUVW;f1Uf -726436
-ÐTT i1Ui¹z864e5
`¹avio¦sgÅ~ldyu´llzpal·kfavruj rvt¦nzjÅanket¤nlaxnpµtkun·r`pD ò3
[Ui Vz28 gW¯D p"myuxet")VgWp"axet"`ems`]

Đã lưu 4 byte nhờ @Shaggy. + Nhiều byte hơn do sửa lỗi. Mất vài tháng là số 0 được lập chỉ mục.

Japt có xử lý ngày tháng tích hợp, nhưng nó không tốt lắm. Nghiêm túc, 34 byte để khởi tạo một ngày, sau đó trừ ngày từ nó, và sau đó tính ngày nào trong năm?

Thử nó

ÐUVW;                Initialize date object with given inputs
f1Uf -726436         Subtract 726436 days; Store in variable 'U'
-ÐTT i1Ui¹z864e5     Store the day of year in variable 'V'
`...`                Compressed string of all the days
  pD                 Repeated 13 times
    ò3               Split into chunks, where each chunks is 3 chars long, store in variable 'W'
[Ui                  Year
Vz28 gW¯D p"myuxet") Month
VgWp"axet"`ems`]    Day

Thạch , 181 164 byte

“BƥṠĿZȧ{ḷċ'#1ƇIræżzḤ$ḅ3ṃefɲ⁴S⁵ẊKḲ&8ɲz⁸Ẋ⁼ṣẸÇɼ:İ~¢ȥ³QⱮ:Ṗỵrɼ¬ṂĿZ⁵ṣ»Ḳḣ€3ḣ13pƊ;“¬ỵƇnḄẋFƬ@§Żị»ḲḢWpƊ¤
“ÇġƁʠÇỤḷṁÑWðṫ⁷m¥ṛʂɲðḊk¶`Ḣ»ḲjḢ$;;“","%Y%m%d"))+3499e5)”ŒVm7_2ȷ;ị¢$}ʋ/K

Hãy thử trực tuyến!

Jelly không có xử lý ngày tích hợp, do đó, điều này rơi vào chức năng trong mô-đun thời gian của Python.

Giải trình

“Bƥ...⁵ṣ»                      | Compressed string "diact viol lisk gild full dyu mela rale zanja palay miked fava ruj ser rave tanas linac rez jilt dinar ket lend lax nene pinas mat kune mire"
         Ḳ                     | split at spaces
          ḣ€3                  | first 3 characters of each
                 Ɗ             | following links as a monad
             ḣ13               |    first 13
                p              |    Cartesian product (with all 28)
                 ;           ¤ | concatenate to:
                  “¬...ị»      |   compressed string "myuxet axet teems"
                         Ḳ     |   split at spaces
                            Ɗ  |   following two links as a monad
                          Ḣ    |     head
                           p   |     Cartesian product (with last two)

“Ç...Ḣ»                             | Compressed string 'time  .local ( .mk ( .strp ("'
       Ḳ                            | split at spaces
        jḢ$                         | join using first item (i.e. time)
           ;                        | concatenate to input
            ;“"...)”                | concatenate this to '","%Y%m%d"))+3499e5)'
                    ŒV              | eval as Python
                      m7            | take every 7th item (year and day in year)
                                ʋ/  | reduce using following links as a dyad
                        _2ȷ         |   subtract 2000 (from first value, the year)
                           ;ị¢$}    |   concatenate with right argument (day in year) indexed into above link
                                  K | join with spaces

C # (Trình biên dịch tương tác Visual C #) , 247 byte

n=>$"{(n=n.AddDays(4049)).Year-2e3} {((k=n.DayOfYear-1)<365?s.Substring(k/28*3,3):"myuxet")} {(k<365?s.Substring(k%28*3,3):k<366?"axets":"teems")}";var s="diaviolisgilfuldyumelralzanpalmikfavrujserravtanlinrezjildinketlenlaxnenpinmatkunmir";int k;

Hãy thử trực tuyến!

JavaScript (ES6), 297 269 252 249 245 byte

f=
d=>(d=new Date(+d+3498336e5),d=(d-Date.UTC(y=d.getUTCFullYear(a=`diaviolisgilfuldyumelralzanpalmikfavrujserravtanlinrezjildinketlenlaxnenpinmatkunmir`.match(/.../g))))/864e5,y-2e3+` ${d<364?a[d/28|0]+` `+a[d%28]:`myuxet ${d&1?`teems`:`axet`}`}`)

<input type=date oninput=o.textContent=f(this.valueAsDate)><pre id=o>

Lấy đầu vào dưới dạng đối tượng ngày JavaScript trong UTC (sẽ ít hơn 1 byte dưới dạng số dấu thời gian JavaScript). Chỉnh sửa: Đã lưu 3 7 byte nhờ @Arnauld.

Hãy thử trực tuyến! nếu đoạn mã vẫn không hoạt động cho bạn vì một số lý do.

Haskell , 387 373 372 byte

import Data.Time.Calendar
t(a:b:c:r)=[a,b,c]:t r
t _=[]
w=t"diaviolisgilfuldyumelralzanpalmikfavrujserravtanlinrezjildinketlenlaxnenpinmatkunmir"
(%)=mod
a y=map(show y++)$[' ':m++' ':d|m<-take 13 w,d<-w]++" myuxet axet":[" myuxet teems"|y%4<1,y%400<1||y%100>0]
f d|n<-read.show$diffDays d$fromGregorian 1988 11 30=last$(a=<<[0..])!!n:[(reverse.a=<<[-1,-2..])!!(-n-1)|n<0]

Hãy thử trực tuyến!

Đưa đầu vào như một Dayđối tượng.

Điều này khá thú vị để viết! Ý tưởng cơ bản là xây dựng một danh sách các ngày và chỉ mục vào đó cho kết quả. Hàm amất một năm và xuất ra mỗi ngày trong năm đó theo thứ tự thời gian. Chức năng fmở rộng trêna kết hợp chúng lại với nhau trong nhiều năm liên tiếp bắt đầu từ 0. Bí quyết là đối với các ngày trước kỷ nguyên chúng ta cần di chuyển ngược bắt đầu từ năm -1 để chúng ta chuyển các giá trị -1, -2 ... và đảo ngược từng danh sách cá nhân trước khi nối chúng lại với nhau. Cuối cùng, trong chức năng, fchúng tôi tính toán số ngày giữa kỷ nguyên và ngày của chúng tôi (chuyển đổi từ Integerthành Int) và lập chỉ mục vào danh sách của chúng tôi, chú ý sửa chỉ mục của chúng tôi nếu nó âm.

EDIT: đánh gôn xuống (-14)

EDIT 2: đánh xuống danh sách tên ngày / tháng (-1)