Perl 5 -p, 77 bytes
/ (.*) (.*) /;$_=(($`+$1)/5%2^($2+$')/5%2?($`-$')*($1-$2):($`-$2)*($1-$'))>=0
Perl 5
Nahuel Fouilleul
- 8.6k
- 1
- 10
- 18