Stack Exchange Network

Stack Exchange network consists of 175 Q&A communities including Stack Overflow, the largest, most trusted online community for developers to learn, share their knowledge, and build their careers.

Visit Stack Exchange
4 -3 bytes
source | link

Perl 6, 166 163161 bytes

{~(.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

Try it online!Try it online!

When you hardcodeHardcodes all the month names, but still beatwhich takes up most of the previousspace. Man, Perl 6 answer that didn't >.<really needs a proper date formatter.

Perl 6, 166 163 bytes

{.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

Try it online!

When you hardcode the month names, but still beat the previous Perl 6 answer that didn't >.<

Perl 6, 166 161 bytes

{~(.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

Try it online!

Hardcodes all the month names, which takes up most of the space. Man, Perl 6 really needs a proper date formatter.

3 -3 bytes
source | link

Perl 6, 166166 163 bytes

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

Try it online!Try it online!

When you hardcode the month names, but still beat the previous Perl 6 answer that didn't >.<

Perl 6, 166 bytes

{.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}

Try it online!

When you hardcode the month names, but still beat the previous Perl 6 answer that didn't >.<

Perl 6, 166 163 bytes

{.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

Try it online!

When you hardcode the month names, but still beat the previous Perl 6 answer that didn't >.<

2 -1
source | link

Perl 6, 167166 bytes

{.day~(<st<th st nd rd>[(.day-1)%30%20]||'th'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}

Try it online!Try it online!

When you hardcode the month names, but still beat the previous Perl 6 answer that didn't >.<

Perl 6, 167 bytes

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

Try it online!

When you hardcode the month names, but still beat the previous Perl 6 answer >.<

Perl 6, 166 bytes

{.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}

Try it online!

When you hardcode the month names, but still beat the previous Perl 6 answer that didn't >.<

1
source | link