Kalender Mel digunakan dalam dunia fiksi Kaldia. Tujuan Anda adalah untuk mengubah tanggal menjadi kalender Mel.

Kalender ini masing-masing memiliki 13 bulan 28 hari, ditambah 1 atau 2 hari ekstra setelah bulan lalu. Satu tahun yang dapat dibagi oleh 4 tetapi tidak oleh 100, atau dibagi oleh 400 memiliki 366 hari, dan tahun-tahun lainnya memiliki 365 (yaitu aturan tahun kabisat kami, tetapi dengan tahun dalam kalender Mel).

Anda harus menggunakan singkatan nama bulan dan hari :

bulan: dia vio lis gil ful dyu mel ral zan sobat mik fav ruj

hari: 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

Hari tambahan di luar bulan apa pun memiliki nama bulan myuxet(tidak ada singkatan di sini), dan nama hari masing-masing adalah axetdan teems.

0 dia dia adalah 1988/11/30.

Anda dapat mengambil tanggal input sebagai string atau tupel (tahun, bulan, hari); sebagai alternatif, untuk fungsi, parameter bisa dalam tipe tanggal perpustakaan standar Anda. Outputnya harus berupa string yang dipisahkan spasi.

Uji kasus

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

Anda harus dapat menangani tanggal dari setidaknya 1 AD hingga 9999 AD.

Implementasi referensi dalam Perl 6

Celah standar dilarang.

Perl 6 , 174 byte

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

Cobalah online!

Buat daftar semua tanggal yang valid dan kemudian indeks hari dalam setahun ke dalam daftar itu.

Penjelasan

{                                                   }  # 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, hanya 23 27 29 byte yang disimpan di atas kode Perl sampel ...

-4 byte dari @NickKennedy.

-2 byte dari @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]]*' '}

Cobalah online!

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`]

Disimpan 4 byte berkat @Shaggy. + Lebih banyak byte karena perbaikan bug. Membutuhkan bulan sebagai angka yang diindeks 0.

Japt memang memiliki penanganan tanggal bawaan, tapi itu tidak terlalu baik. Serius, 34 byte untuk menginisialisasi tanggal, lalu kurangi hari darinya, dan kemudian hitung hari apa dalam setahun?

Cobalah

Ð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

Jelly , 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

Cobalah online!

Jelly tidak memiliki penanganan tanggal bawaan, jadi ini kembali pada fungsi dalam modul waktu Python.

Penjelasan

“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 # (Visual C # Interactive Compiler) , 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;

Cobalah online!

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>

Mengambil input sebagai objek tanggal JavaScript dalam UTC (akan 1 byte lebih sedikit sebagai nomor cap waktu JavaScript). Sunting: Disimpan 3 7 byte berkat @Arnauld.

Cobalah online! jika cuplikan masih tidak berfungsi untuk Anda karena alasan tertentu.

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]

Cobalah online!

Mengambil input sebagai Dayobjek.

Ini cukup menyenangkan untuk ditulis! Ide dasarnya adalah membuat daftar tanggal dan mengindeksnya untuk hasilnya. Fungsi amembutuhkan waktu satu tahun dan menghasilkan setiap tanggal pada tahun itu dalam urutan kronologis. Fungsi fmeluas untuk amenyatukan mereka bersama-sama selama bertahun-tahun berturut-turut mulai dari 0. Kuncinya adalah bahwa untuk tanggal sebelum zaman kita perlu melintasi mundur mulai dari tahun -1 sehingga kita melewati nilai -1, -2 ... dan membalikkan setiap daftar secara individu sebelum menyatukan mereka. Akhirnya, dalam fungsi fkami menghitung jumlah hari antara zaman dan tanggal kami (mengubahnya dari Integermenjadi Int) dan indeks ke dalam daftar kami, berhati-hati untuk memperbaiki indeks kami jika itu negatif.

SUNTING: memutarnya (-14)

EDIT 2: bermain golf pada daftar nama hari / bulan (-1)