diff options
Diffstat (limited to '038.pl')
-rwxr-xr-x | 038.pl | 14 |
1 files changed, 14 insertions, 0 deletions
@@ -0,0 +1,14 @@ +#!/usr/bin/perl +use strict; +use warnings; + +my $max = 0; +for my $n (2..9) { + for my $val (1..99999) { + my $pandigital = join '', map { $val * $_ } 1..$n; + next if length($pandigital) != 9; + next if join('', sort split //, $pandigital) ne '123456789'; + $max = $pandigital if $pandigital > $max; + } +} +print "$max\n"; |