Cho số 1≤n≤365, xuất ngày thứ n trong năm ở định dạng "Tháng thứ năm". Ví dụ: đã cho 1, bạn nên xuất "ngày 1 tháng 1", không có "của".

Lịch Gregorian sẽ được sử dụng và chương trình không nên tính đến năm nhuận, vì vậy chương trình của bạn sẽ không bao giờ xuất ra "ngày 29 tháng 2" trong mọi trường hợp. Bất kỳ phương pháp nào cũng có thể được sử dụng, miễn là tuân theo định dạng "Tháng thứ năm" được đề cập trước đó. Chương trình của bạn cũng phải xuất các số thứ tự một cách chính xác, có nghĩa là nó phải luôn luôn xuất thứ 1, 2, 3, nên 1, 2 hoặc 3 tương ứng là số ngày cho bất kỳ đầu vào nào. Không gian hàng đầu hoặc thụt đầu dòng khác được cho phép.

Đây là mã golf, vì vậy giải pháp ngắn nhất của các nhân vật sẽ thắng.

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

1 gives 1st January
2 gives 2nd January
3 gives 3rd January
365 gives 31st December
60 gives 1st March
11 gives 11th January

PHP ,38 40 30 28 byte

<?=date("jS F",86399*$argn);

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

Chạy với php -nFđầu vào là từ STDIN. Ví dụ (tập lệnh trên có tên y.php):

$ echo 1|php -nF y.php
1st January
$ echo 2| php -nF y.php
2nd January
$ echo 3| php -nF y.php
3rd January
$ echo 11|php -nF y.php
11th January
$ echo 21|php -nF y.php
21st January
$ echo 60|php -nF y.php
1st March
$ echo 365|php -nF y.php
31st December

Giải trình

Xây dựng dấu thời gian kỷ nguyên cho ngày mong muốn vào năm 1970 (thuận tiện không phải là năm nhuận) bằng cách nhân day number * number of seconds per day(86400). Tuy nhiên, điều này sẽ mang lại kết quả cao hơn một ngày vì vậy thay vào đó nhân với number of seconds in a day - 1(86399), với phạm vi số đầu vào (1≤n≤365) sẽ dẫn đến dấu thời gian vào cuối mỗi ngày chính xác. Sau đó, chỉ cần sử dụng định dạng ngày dựng sẵn của PHP cho đầu ra.

Thạch ,  79 78  77 byte

-1 sửa lỗi :) _{(không nên chuyển đổi trước để tìm chỉ mục, nên đảo ngược sau, nhưng sau đó chúng ta có thể theo đuôi thay vì đầu)}
-1 bằng cách sử dụng phản xạ _{( ⁽©ṅB+30_2¦2-> ⁽0ṗb4+28m0)}

⁽0ṗb4+28m0SRṁRƲœiµṪȮ%30%20«4ị“nḄƲf⁷»s3¤Ṗ,ị“£ṢtẒ⁽ẹ½MḊxɲȧėAṅ ɓaṾ¥D¹ṀẏD8÷ṬØ»Ḳ¤$K

Một chương trình đầy đủ in kết quả

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

Làm sao?

sẽ cập nhật điều này sau ...

⁽©ṅB+30_2¦2SRṁRƲZœiµḢȮ%30%20«4ị“nḄƲf⁷»s3¤Ṗ,ị“...»Ḳ¤$K - Main Link: integer, n
⁽©ṅB+30_2¦2SRṁRƲZœi - f(n) to get list of integers, [day, month]
⁽©ṅ                 - compressed literal 2741
   B                - to a list of binary digits -> [ 1, 0, 1, 0, 1, 0, 1, 1, 0, 1, 0, 1]
    +30             - add thirty                    [31,30,31,30,31,30,31,31,30,31,30,31]
         ¦          - sparse application...
        2           - ...to indices: [2]
       _  2         - ...action: subtract two       [31,28,31,30,31,30,31,31,30,31,30,31]
               Ʋ    - last four links as a monad - i.e. f(x):
           S        -   sum x                       365
            R       -   range                       [1..365]
              R     -   range x (vectorises)        [[1..31],[1..28],...]
             ṁ      -   mould like                  [[1..31],[32..59],...]
                Z   - transpose                     [[1,32,...],[2,33,...],...]
                 œi - 1st multi-dimensional index of n  -> [day, month]

µḢȮ%30%20«4ị“nḄƲf⁷»s3¤Ṗ,ị“...»Ḳ¤$K - given [day, month] format and print
µ                                  - start a new monadic chain - i.e. f(x=[day, month])
 Ḣ                                 - head -- get the day leaving x as [month])
  Ȯ                                - print it (with no newline) and yield it
   %30                             - modulo by thirty
      %20                          - modulo by twenty
         «4                        - minimum of that and four
                     ¤             - nilad followed by link(s) as a nilad:
            “nḄƲf⁷»                -   dictionary words "standard"+" the" = "standard the"
                   s3              -   split into threes = ["sta","nda","rd ","the"]
           ị                       - index into
                      Ṗ            - remove rightmost character
                               ¤   - nilad followed by link(s) as a nilad:
                         “...»     -   dictionary words "January"+" February"+...
                              Ḳ    -   split at spaces = ["January","February",...]
                        ị          - index into (vectorises across [month])
                       ,           - pair                  e.g. ["th", ["February"]]
                                K  - join with spaces           ["th ", "February"]
                                   - print (implicitly smashes)   th February

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

g=>$"{f=(g=p.AddDays(g-1)).Day}{"tsnr"[f=f%30%20<4?f%10:0]}{"htdd"[f]} {g:MMMM}";DateTime p;int f;

Cảm ơn @someone vì đã lưu 9 byte

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

Python 3.8 (tiền phát hành) , 112 byte

lambda x:str(d:=(t:=gmtime(x*86399)).tm_mday)+'tsnrhtdd'[d%5*(d%30%20<4)::4]+strftime(' %B',t)
from time import*

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

Thật kỳ lạ, tôi không phải ngoặc đơn d:=(t:=gmtime(~-x*86400), có lẽ vì trình thông dịch chỉ kiểm tra nếu có các ()ký tự xung quanh biểu thức gán và không phải chính biểu thức đó được ngoặc đơn.

-2 nhờ gwaugh .
-5 nhờ xnor .

Perl 6 , 166 161 byte

{~(.day~(<th st nd rd>[.day%30%20]||'th'),<January February March April May June July August September October November December>[.month-1])}o*+Date.new(1,1,1)-1

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

Hardcodes tất cả các tên tháng, chiếm phần lớn không gian. Man, Perl 6 thực sự cần một định dạng ngày thích hợp.

Hack, 115 59 39 byte

$x==>date("jS F",mktime(0,0,0,1,$x));

Vì @gwaugh có cùng giải pháp với tôi khi tôi chơi gôn, nên tôi sẽ đăng bài này lên Hack :).

JavaScript (ES6),  117  113 byte

Đã lưu 4 byte nhờ @tsh

d=>(n=(d=new Date(1,0,d)).getDate())+([,'st','nd','rd'][n%30%20]||'th')+' '+d.toLocaleString('en',{month:'long'})

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

Đã bình luận

d =>                     // d = input day
  ( n =                  //
    ( d =                // convert d to
      new Date(1, 0, d)  //   a Date object for the non leap year 1901
    ).getDate()          // save the corresponding day of month into n
  ) + (                  //
    [, 'st', 'nd', 'rd'] // ordinal suffixes
    [n % 30 % 20]        // map { 1, 2, 3, 21, 22, 23, 31 } to { 'st', 'nd', 'rd' }
    || 'th'              // or use 'th' for everything else
  ) + ' ' +              // append a space
  d.toLocaleString(      // convert d to ...
    'en',                // ... the English ...
    { month: 'long' }    // ... month name
  )                      //

Không có ngày dựng sẵn, 188 byte

f=(d,m=0)=>d>(k=31-(1115212>>m*2&3))?f(d-k,m+1):d+([,'st','nd','rd'][d%30%20]||'th')+' '+`JanuaryFebruaryMarchAprilMayJuneJulyAugustSeptemberOctoberNovemberDecember`.match(/.[a-z]*/g)[m]

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

Smalltalk, 126 byte

d:=Date year:1day:n.k:=m:=d dayOfMonth.10<k&(k<14)and:[k:=0].o:={#st.#nd.#rd}at:k\\10ifAbsent:#th.m asString,o,' ',d monthName

C # (Trình biên dịch tương tác Visual C #) , 141 139 133 124 122 byte

a=>{var d=s.AddDays(a-1);int x=d.Day,m=x%30%20;return x+"thstndrd".Substring(m<4?m*2:0,2)+d.ToString(" MMMM");};DateTime s

Cảm ơn Arnauld về phương pháp nhanh hơn để loại bỏ 11,12,13th tiết kiệm 4 byte

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

R , 158 134 byte

-24 byte @Nick Kennedy để chơi gôn 'st', 'nd', 'nd', & 'th'. Cảm ơn!

f=format;paste0(a<-as.double(f(d<-as.Date(scan(,''),'%j'),'%e')),`if`((a-1)%%10>2|a%/%10==1,'th',c("st","nd","rd")[a%%10]),f(d,' %B'))

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

MySQL, 47 45 42 byte

SELECT DATE_FORMAT(MAKEDATE(1,n),"%D %M")

Năm 1901 có thể được thay thế bằng bất kỳ năm nào / không phải là năm nhuận.

Chỉnh sửa: đã lưu hai byte bằng cách xóa khoảng trắng và ba byte khác bằng cách thay đổi năm thành 1, nhờ @Embodyment of Ignorance .

05AB1E , 81 79 78 76 75 74 73 71 70 69 byte

•ΘÏF•ºS₂+.¥-D0›©ÏθDT‰ć≠*4šß„—ÊØ3ôsè¨ð”……‚應…ä†ï€¿…Ë…ê†Ä…æ…Ì…Í”#®OèJ

-9 byte nhờ @Grimy .
-1 byte nhờ vào standard themánh khóe của @ JonathanAllan th,st,nd,rd, mà anh ta đã sử dụng trong câu trả lời Jelly của mình .

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm có thể .

Giải trình:

•ΘÏF•        # Push compressed integer 5254545
     º       # Mirror it vertically: 52545455454525
      S      # Converted to a list of digits: [5,2,5,4,5,4,5,5,4,5,4,5,2,5]
       ₂+    # And 26 to each: [31,28,31,30,31,30,31,31,30,31,30,31,28,31]
             # (the additional trailing 28,31 won't cause any issues)
.¥           # Undelta this list (with automatic leading 0):
             #  [0,31,59,90,120,151,181,212,243,273,304,334,365,393,424]
  -          # Subtract each from the (implicit) input-integer
   D0›       # Duplicate the list, and check for each if it's positive (> 0)
      ©      # Store the resulting list in the register (without popping)
       Ï     # Only leave the values at those truthy indices
        θ    # And get the last value from the list, which is our day
D            # Duplicate this day
 T‰          # Take the divmod-10 of this day: [day//10, day%10]
   ć         # Extract the head; pop and push the remainder-list and head: [day%10], day//10
    ≠        # Check whether the day//10 is NOT 1 (0 if day//10 == 1; 1 otherwise)
     *       # Multiply that by the [day%10] value
      4š     # Prepend a 4 to this list
        ß    # Pop and push the minimum of the two (so the result is one of [0,1,2,3,4],
             # where the values are mapped like this: 1..3→1..3; 4..9→4; 10..19→0; 20..23→0..3; 24..29→4; 30,31→0,1)
 …thŠØ       # Push dictionary string "th standards"
      3ô     # Split it into parts of size 3: ["th ","sta","nda","rds"]
        sè   # Swap and index the integer into this list (4 wraps around to index 0)
          ¨  # And remove the trailing character from this string
ð            # Push a space " "
”……‚應…ä†ï€¿…Ë…ê†Ä…æ…Ì…Í”
             # Push dictionary string "December January February March April May June July August September October November"
 #           # Split on spaces
  ®          # Push the list of truthy/falsey values from the register again
   O         # Get the amount of truthy values by taking the sum
    è        # Use that to index into the string-list of months (12 wraps around to index 0)
J            # Join everything on the stack together to a single string
             # (and output the result implicitly)

Xem mẹo 05AB1E này của tôi để hiểu lý do:

• (phần Cách sử dụng từ điển? ) ”……‚應…ä†ï€¿…Ë…ê†Ä…æ…Ì…Í”là"December January February March April May June July August September October November"
• (phần Cách sử dụng từ điển? ) …thŠØlà"th standards"
• (phần Cách nén số nguyên lớn? ) •ΘÏF•là5254545

bash, 82 80 byte

-2 byte chỉ nhờ @ ASCII

a=(th st nd rd);set `printf "%(%e %B)T" $[$1*86399]`;echo $1${a[$1%30%20]-th} $2

TIO

bash + ngày GNU, 77 byte

a=(th st nd rd);set `date -d@$[$1*86399] +%e\ %B`;echo $1${a[$1%30%20]-th} $2

Shell + coreutils, 112 90 byte

date -d0-12-31\ $1day +%-dth\ %B|sed 's/1th/1st/;s/2th/2nd/;s/3th/3rd/;s/\(1.\).. /\1th /'

Hãy thử trực tuyến! Liên kết bao gồm các trường hợp thử nghiệm. Chỉnh sửa: Đã lưu 22 byte nhờ @NahuelFouilleul. Giải trình:

date -d0-12-31\ $1day

Tính số ngày sau ngày đầu tiên trước một năm không nhuận. (Đáng buồn là bạn không thể thực hiện tính toán ngày tương đối từ @-1.)

+%-dth\ %B|sed

Xuất ra ngày trong tháng (không có số 0 đứng đầu) thvà tên tháng đầy đủ.

's/1th/1st/;s/2th/2nd/;s/3th/3rd/;

Fix lên 1st, 2nd, 3rd, 21st, 22nd, 23rdvà 31st.

s/\(1.\).. /\1th /'

Khôi phục 11thlại 13th.

Thạch , 115 114 101 97 byte

%30%20¹0<?4Ḥ+ؽị“thstndrd”ṭ
“5<Ḟ’b4+28ÄŻ_@µ>0T,>0$ƇZṪµ1ịị“£ṢtẒ⁽ẹ½MḊxɲȧėAṅ ɓaṾ¥D¹ṀẏD8÷ṬØ»Ḳ¤,2ịÇƊṚK

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

Dài theo tiêu chuẩn Jelly, nhưng được thực hiện từ các nguyên tắc đầu tiên.

Cảm ơn @JonathanAllan vì đã lưu 13 byte thông qua việc hiểu rõ hơn về nén chuỗi.

Google Sheets, 118 103 86 byte

=day(A1+1)&mid("stndrdth",min(7,1+2*mod(mod(day(A1+1)-1,30),20)),2)&text(A1+1," mmmm")

Tôi không thể chỉnh sửa nhận xét của mình vì vậy, đây là phiên bản hoạt động của mã Google Sheets.

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

Màu đỏ , 124 byte

func[n][d: 1-1-1 + n - 1[rejoin[d/4 either 5 > t: d/4 % 30 % 20[pick[th st nd rd]t + 1]['th]]pick system/locale/months d/3]]

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

Thêm n- 1 ngày vào 1-1-1 (1 tháng 1 năm 2001) để tạo thành một ngày, hơn là sử dụng phương pháp của Arnauld để lập chỉ mục thành các hậu tố tháng. Quá xấu Red là 1 chỉ mục, điều này đòi hỏi phải điều chỉnh bổ sung. Điều tốt là Red biết tên của tháng :)

APL (NARS), ký tự 235, 470 byte

{k←↑⍸0<w←+\v←(1-⍵),(12⍴28)+13561787⊤⍨12⍴4⋄k<2:¯1⋄d←1+v[k]-w[k]⋄(⍕d),({d∊11..13:'th'⋄1=10∣d:'st'⋄2=10∣d:'nd'⋄3=10∣d:'rd'⋄'th'}),' ',(k-1)⊃(m≠' ')⊂m←'January February March April May June July August September October November December'}

13561787 là con số mà trong cơ sở 4 có thể được tổng hợp thành (12⍴28) để có được chiều dài mỗi tháng ... kiểm tra:

  f←{k←↑⍸0<w←+\v←(1-⍵),(12⍴28)+13561787⊤⍨12⍴4⋄k<2:¯1⋄d←1+v[k]-w[k]⋄(⍕d),({d∊11..13:'th'⋄1=10∣d:'st'⋄2=10∣d:'nd'⋄3=10∣d:'rd'⋄'th'}),' ',(k-1)⊃(m≠' ')⊂m←'January February March April May June July August September October November December'}     
  ⊃f¨1 2 3 365 60 11
1st January  
2nd January  
3rd January  
31st December
1st March    
11th January 

C (gcc) , 174 155 byte

i;char a[99],*b="thstndrd";f(long x){x--;x*=86400;strftime(a,98,"%d   %B\0",gmtime(&x));i=*a==49?0:a[1]-48;a[2]=b[i=i>3?0:i*2];a[3]=b[++i];x=*a==48?a+1:a;}

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

Python 3 , 95 byte

Đã ghi nó: P

from datetime import *;f=lambda s:(datetime(2019,1,1)+timedelta(days=s-1)).strftime("%d of %B")

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