From b1061f77086e86549d1a13cef90976f2720cf3b6 Mon Sep 17 00:00:00 2001
From: Jan Krňávek <Jan.Krnavek@gmail.com>
Date: Sat, 16 Oct 2021 12:48:55 +0200
Subject: solutions week 134

---
 challenge-134/wambash/raku/ch-1.raku | 20 ++++++++++++++++++++
 challenge-134/wambash/raku/ch-2.raku | 26 ++++++++++++++++++++++++++
 2 files changed, 46 insertions(+)
 create mode 100644 challenge-134/wambash/raku/ch-1.raku
 create mode 100644 challenge-134/wambash/raku/ch-2.raku

diff --git a/challenge-134/wambash/raku/ch-1.raku b/challenge-134/wambash/raku/ch-1.raku
new file mode 100644
index 0000000000..2d913e4f42
--- /dev/null
+++ b/challenge-134/wambash/raku/ch-1.raku
@@ -0,0 +1,20 @@
+#!/usr/bin/env raku
+
+
+sub pandigital-numbers($n=5) {
+    1,0,slip 2..9
+    andthen .permutations
+    andthen .head($n)
+    andthen .map: *.join
+}
+
+
+multi MAIN (Bool :test($)!) {
+    use Test;
+    is pandigital-numbers, <1023456789 1023456798 1023456879 1023456897 1023456978>;
+    done-testing;
+}
+
+multi MAIN ($n=5) {
+    .put for pandigital-numbers($n);
+}
diff --git a/challenge-134/wambash/raku/ch-2.raku b/challenge-134/wambash/raku/ch-2.raku
new file mode 100644
index 0000000000..f9e1450646
--- /dev/null
+++ b/challenge-134/wambash/raku/ch-2.raku
@@ -0,0 +1,26 @@
+#!/usr/bin/env raku
+
+class DistinctTermsCount {
+    has Int $.m;
+    has Int $.n;
+
+    has $.table;
+    has $.distinct-terms handles count => <elems>;
+
+    submethod TWEAK () {
+        with (1..$!m X* 1..$!n).cache {
+            $!table := .batch(3);
+            $!distinct-terms := .unique;
+        }
+    }
+}
+
+multi MAIN (Bool :test($)!){
+    use Test;
+    is-deeply DistinctTermsCount.new(:3m,:3n).table, ((1,2,3),(2,4,6),(3,6,9));
+    is DistinctTermsCount.new(:3m,:3n).distinct-terms, <1 2 3 4 6 9>;
+    is DistinctTermsCount.new(:3m,:3n).count, 6;
+    is DistinctTermsCount.new(:3m,:5n).distinct-terms, <1 2 3 4 5 6 8 10 9 12 15>;
+    is DistinctTermsCount.new(:3m,:5n).count, 11;
+    done-testing;
+}
-- 
cgit