From c4a22a0a6cb9b1adc8c6fbea527be8ed1f45895d Mon Sep 17 00:00:00 2001
From: Luca Ferrari <fluca1978@gmail.com>
Date: Mon, 24 Jan 2022 18:12:49 +0100
Subject: Task 2 done

---
 challenge-149/luca-ferrari/raku/ch-2.p6 | 15 +++++++++++++++
 1 file changed, 15 insertions(+)
 create mode 100755 challenge-149/luca-ferrari/raku/ch-2.p6

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;
+}
-- 
cgit