Skip to main content
added 42 characters in body
Source Link
Xcali
  • 16.2k
  • 2
  • 15
  • 39

Perl 5 Mbigint -p, 7676 75 bytes

/(..)(..)/;$_=$1>0&&$1<(0,31,30;$_=$1>0&&$1<substr 113130-($_%4==0$_%4?0:1),31,32,31,32,31,31,32,31.31323132313132313231,322*$2,31)[$2]2

Try it online!Try it online!

Perl 5 -p, 76 bytes

/(..)(..)/;$_=$1>0&&$1<(0,31,30-($_%4==0),31,32,31,32,31,31,32,31,32,31)[$2]

Try it online!

Perl 5 Mbigint -p, 76 75 bytes

/(..)(..)/;$_=$1>0&&$1<substr 113130-($_%4?0:1).31323132313132313231,2*$2,2

Try it online!

Source Link
Xcali
  • 16.2k
  • 2
  • 15
  • 39

Perl 5 -p, 76 bytes

/(..)(..)/;$_=$1>0&&$1<(0,31,30-($_%4==0),31,32,31,32,31,31,32,31,32,31)[$2]

Try it online!