diff options
| -rwxr-xr-x | challenge-149/luca-ferrari/raku/ch-2.p6 | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/challenge-149/luca-ferrari/raku/ch-2.p6 b/challenge-149/luca-ferrari/raku/ch-2.p6 new file mode 100755 index 0000000000..42ae204072 --- /dev/null +++ b/challenge-149/luca-ferrari/raku/ch-2.p6 @@ -0,0 +1,15 @@ +#!raku + +sub MAIN( Int $base where { $base >= 2 } ) { + my @alphabet = 0 .. min( $base, 9 ) - 1; + @alphabet.push: |('A' .. 'Z' )[ 0 .. $base - 10 - 1 ] if $base > 10; + + my $solution = 0; + for @alphabet.permutations { + my $current = $_.join.parse-base( $base ); + $solution = $current if $current > $solution && $current.sqrt ~~ Int; + } + + + $solution.base( $base ).say; +} |