mjd coding fun

# https://twitter.com/mjdominus/status/574937856298369024
# What is the biggest five digit number ABCDE that is divisible by BCDE, CDE, DE and E?
use strict;
for (my $i = 99999; $i>9999; $i--){
  map {
        my $div = join '', (split '', $i)[$_ .. 4];
        next if ($div == 0 ) || ( $i % $div );
      } 1 .. 4;
  print "$i\n";
  exit;
}