From 6ce7466c475fbfe25b23992049fdf15153dc34dd Mon Sep 17 00:00:00 2001
From: Mohammad S Anwar <mohammad.anwar@yahoo.com>
Date: Tue, 14 Jan 2020 17:11:54 +0000
Subject: - Moved lib to the right place.

---
 .../perl6/lib/Math/SelfDescriptiveNumbers.pm6      | 33 ----------------------
 .../raku/lib/Math/SelfDescriptiveNumbers.pm6       | 33 ++++++++++++++++++++++
 2 files changed, 33 insertions(+), 33 deletions(-)
 delete mode 100644 challenge-043/markus-holzer/perl6/lib/Math/SelfDescriptiveNumbers.pm6
 create mode 100644 challenge-043/markus-holzer/raku/lib/Math/SelfDescriptiveNumbers.pm6

diff --git a/challenge-043/markus-holzer/perl6/lib/Math/SelfDescriptiveNumbers.pm6 b/challenge-043/markus-holzer/perl6/lib/Math/SelfDescriptiveNumbers.pm6
deleted file mode 100644
index 974f0c532a..0000000000
--- a/challenge-043/markus-holzer/perl6/lib/Math/SelfDescriptiveNumbers.pm6
+++ /dev/null
@@ -1,33 +0,0 @@
-unit module Math::SelfDescriptiveNumbers;
-
-multi sub is-self-descriptive( Int $number, Int $base ) is export {
-    is-self-descriptive( :$number, :$base );
-}
-
-multi sub is-self-descriptive( Int :$number, Int :$base ) is export {
-    $number.base( $base ) ∈ self-descriptive-numbers-of( $base );
-}
-
-multi sub is-self-descriptive( Str $number, Int $base ) is export {
-    is-self-descriptive( :$number, :$base );
-}
-
-multi sub is-self-descriptive( Str :$number, Int :$base ) is export {
-    $number ∈ self-descriptive-numbers-of( $base );
-}
-
-sub self-descriptive-numbers is export {
-    ( 1 .. 36 ).map( -> $base { ( $base, self-descriptive-numbers-of( $base ) ) });
-}
-
-sub self-descriptive-numbers-dec is export {
-    ( 1 .. 36 ).map( -> $base { ( $base, self-descriptive-numbers-of( $base ).map({ parse-base($_, $base ) }) ) });
-}
-
-multi sub self-descriptive-numbers-of( Int $base where $_ ~~ 1|2|3|6 ) is export { () }
-multi sub self-descriptive-numbers-of( Int $base where $_ == 4 ) is export { ('1210', '2020') }
-multi sub self-descriptive-numbers-of( Int $base where $_ == 5 ) is export { ('21200') }
-multi sub self-descriptive-numbers-of( Int $base ) is export { 
-    ( ($base - 4).base( $base ) ~  "21" ~ ( '0' x ($base - 7) ) ~ '1000' )
-}
-
diff --git a/challenge-043/markus-holzer/raku/lib/Math/SelfDescriptiveNumbers.pm6 b/challenge-043/markus-holzer/raku/lib/Math/SelfDescriptiveNumbers.pm6
new file mode 100644
index 0000000000..974f0c532a
--- /dev/null
+++ b/challenge-043/markus-holzer/raku/lib/Math/SelfDescriptiveNumbers.pm6
@@ -0,0 +1,33 @@
+unit module Math::SelfDescriptiveNumbers;
+
+multi sub is-self-descriptive( Int $number, Int $base ) is export {
+    is-self-descriptive( :$number, :$base );
+}
+
+multi sub is-self-descriptive( Int :$number, Int :$base ) is export {
+    $number.base( $base ) ∈ self-descriptive-numbers-of( $base );
+}
+
+multi sub is-self-descriptive( Str $number, Int $base ) is export {
+    is-self-descriptive( :$number, :$base );
+}
+
+multi sub is-self-descriptive( Str :$number, Int :$base ) is export {
+    $number ∈ self-descriptive-numbers-of( $base );
+}
+
+sub self-descriptive-numbers is export {
+    ( 1 .. 36 ).map( -> $base { ( $base, self-descriptive-numbers-of( $base ) ) });
+}
+
+sub self-descriptive-numbers-dec is export {
+    ( 1 .. 36 ).map( -> $base { ( $base, self-descriptive-numbers-of( $base ).map({ parse-base($_, $base ) }) ) });
+}
+
+multi sub self-descriptive-numbers-of( Int $base where $_ ~~ 1|2|3|6 ) is export { () }
+multi sub self-descriptive-numbers-of( Int $base where $_ == 4 ) is export { ('1210', '2020') }
+multi sub self-descriptive-numbers-of( Int $base where $_ == 5 ) is export { ('21200') }
+multi sub self-descriptive-numbers-of( Int $base ) is export { 
+    ( ($base - 4).base( $base ) ~  "21" ~ ( '0' x ($base - 7) ) ~ '1000' )
+}
+
-- 
cgit