4 -3 bytes

# Perl 6, 166163161 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


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, 166163 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, 166161 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

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

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