Merge pull request #10035 from arnesom/branch-for-challenge-267

Arne Sommer

5 files changed, 103 insertions, 0 deletions

diff --git a/challenge-267/arne-sommer/blog.txt b/challenge-267/arne-sommer/blog.txt
new file mode 100644
index 0000000000..1ae65d1aa0
--- /dev/null
+++ b/challenge-267/arne-sommer/blog.txt
@@ -0,0 +1 @@
+https://raku-musings.com/every-product-counts.html
diff --git a/challenge-267/arne-sommer/raku/ch-1.raku b/challenge-267/arne-sommer/raku/ch-1.raku
new file mode 100755
index 0000000000..d117fe8ef4
--- /dev/null
+++ b/challenge-267/arne-sommer/raku/ch-1.raku
@@ -0,0 +1,11 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (*@ints where all(@ints) ~~ Int && @ints.elems > 0, :v(:$verbose));
+
+my $product = [*] @ints;
+
+say ": Product: $product" if $verbose;
+
+# say $product ?? ( $product / $product.abs ) !! 0;
+
+say + ($product <=> 0);
diff --git a/challenge-267/arne-sommer/raku/ch-2.raku b/challenge-267/arne-sommer/raku/ch-2.raku
new file mode 100755
index 0000000000..c6a96bb110
--- /dev/null
+++ b/challenge-267/arne-sommer/raku/ch-2.raku
@@ -0,0 +1,40 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN ($str,
+               *@widths where all(@widths) ~~ UInt && @widths.elems == 26,
+               :v(:$verbose));
+
+my %width;
+
+for 'a' .. 'z' -> $letter
+{
+  %width{$letter} = @widths.shift.Int;
+}
+
+say ": Widths: { %width.raku }" if $verbose;
+
+my $line  = "";
+my $width = 0;
+my $id    = 0;
+
+for $str.comb -> $letter
+{
+  if $width + %width{$letter} > 100
+  {
+    $id++;
+    say ": Line $id: $line ($width pixels)" if $verbose;
+    $line  = "";
+    $width = 0;
+  }
+
+  $line  ~= $letter;
+  $width += %width{$letter};
+}
+
+if $line
+{
+  $id++;
+  say ": Line $id: $line ($width pixels)" if $verbose;
+}
+
+say "($id, $width)";
diff --git a/challenge-267/arne-sommer/raku/line-counts b/challenge-267/arne-sommer/raku/line-counts
new file mode 100755
index 0000000000..c6a96bb110
--- /dev/null
+++ b/challenge-267/arne-sommer/raku/line-counts
@@ -0,0 +1,40 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN ($str,
+               *@widths where all(@widths) ~~ UInt && @widths.elems == 26,
+               :v(:$verbose));
+
+my %width;
+
+for 'a' .. 'z' -> $letter
+{
+  %width{$letter} = @widths.shift.Int;
+}
+
+say ": Widths: { %width.raku }" if $verbose;
+
+my $line  = "";
+my $width = 0;
+my $id    = 0;
+
+for $str.comb -> $letter
+{
+  if $width + %width{$letter} > 100
+  {
+    $id++;
+    say ": Line $id: $line ($width pixels)" if $verbose;
+    $line  = "";
+    $width = 0;
+  }
+
+  $line  ~= $letter;
+  $width += %width{$letter};
+}
+
+if $line
+{
+  $id++;
+  say ": Line $id: $line ($width pixels)" if $verbose;
+}
+
+say "($id, $width)";
diff --git a/challenge-267/arne-sommer/raku/product-sign b/challenge-267/arne-sommer/raku/product-sign
new file mode 100755
index 0000000000..d117fe8ef4
--- /dev/null
+++ b/challenge-267/arne-sommer/raku/product-sign
@@ -0,0 +1,11 @@
+#! /usr/bin/env perl6
+
+unit sub MAIN (*@ints where all(@ints) ~~ Int && @ints.elems > 0, :v(:$verbose));
+
+my $product = [*] @ints;
+
+say ": Product: $product" if $verbose;
+
+# say $product ?? ( $product / $product.abs ) !! 0;
+
+say + ($product <=> 0);