aboutsummaryrefslogtreecommitdiff
path: root/challenge-030/james-smith/perl5/ch1-better.sh
blob: aef3dac8d27dcb6e97e771424fb46b2ed6324e95 (plain)
1
perl -E'say"@{[grep{6==(int(5*$_/4)-int($_/100)+int$_/400)%7}2019..3e3]}"'