challenge 333, raku solutions

3 files changed, 42 insertions, 0 deletions

diff --git a/challenge-333/feng-chang/raku/ch-1.raku b/challenge-333/feng-chang/raku/ch-1.raku
new file mode 100755
index 0000000000..35dc349941
--- /dev/null
+++ b/challenge-333/feng-chang/raku/ch-1.raku
@@ -0,0 +1,8 @@
+#!/bin/env raku
+
+unit sub MAIN(Str:D $points);
+
+use MONKEY-SEE-NO-EVAL;
+
+my (\x1, \y1, \x2, \y2, \x3, \y3) = (EVAL $points).flat;
+put so x1*(y2 - y3) + x2*(y3 - y1) + x3*(y1 - y2) == 0;
diff --git a/challenge-333/feng-chang/raku/ch-2.raku b/challenge-333/feng-chang/raku/ch-2.raku
new file mode 100755
index 0000000000..9447935c6f
--- /dev/null
+++ b/challenge-333/feng-chang/raku/ch-2.raku
@@ -0,0 +1,5 @@
+#!/bin/env raku
+
+unit sub MAIN(*@ints);
+
+put @ints.map({ $_ == 0 ?? (0,0) !! $_ }).flat(:hammer).head(+@ints);
diff --git a/challenge-333/feng-chang/raku/test.raku b/challenge-333/feng-chang/raku/test.raku
new file mode 100755
index 0000000000..01ef30199e
--- /dev/null
+++ b/challenge-333/feng-chang/raku/test.raku
@@ -0,0 +1,29 @@
+#!/bin/env raku
+
+# The Weekly Challenge 333
+use Test;
+
+sub pwc-test(Str:D $script, Bool :$deeply? = False, *@input) {
+    my ($expect, $assertion) = @input.splice(*-2, 2);
+    my $p = run $script, |@input, :out;
+    if $deeply {
+        is-deeply $p.out.slurp(:close).chomp.words.Bag, $expect, $assertion;
+    } else {
+        is $p.out.slurp(:close).chomp, $expect, $assertion;
+    }
+}
+
+# Task 1, Straight Line
+pwc-test './ch-1.raku', '[2,1],[2,3],[2,5]',  'True',  'Straight Line: [2,1],[2,3],[2,5]  => true';
+pwc-test './ch-1.raku', '[1,4],[3,4],[10,4]', 'True',  'Straight Line: [1,4],[3,4],[10,4] => true';
+pwc-test './ch-1.raku', '[0,0],[1,1],[2,3]',  'False', 'Straight Line: [0,0],[1,1],[2,3]  => false';
+pwc-test './ch-1.raku', '[1,1],[1,1],[1,1]',  'True',  'Straight Line: [1,1],[1,1],[1,1]  => true';
+pwc-test './ch-1.raku', '[1000000,1000000],[2000000,2000000],[3000000,3000000]', 'True',
+         'Straight Line: [1000000,1000000],[2000000,2000000],[3000000,3000000] => true';
+
+# Task 2, Duplicate Zeros
+pwc-test './ch-2.raku', <1 0 2 3 0 4 5 0>, '1 0 0 2 3 0 0 4', 'Duplicate Zeros: 1,0,2,3,0,4,5,0 => 1,0,0,2,3,0,0,4';
+pwc-test './ch-2.raku', <1 2 3>,           '1 2 3',           'Duplicate Zeros: 1,2,3           => 1,2,3';
+pwc-test './ch-2.raku', <1 2 3 0>,         '1 2 3 0',         'Duplicate Zeros: 1,2,3,0         => 1,2,3,0';
+pwc-test './ch-2.raku', <0 0 1 2>,         '0 0 0 0',         'Duplicate Zeros: 0,0,1,2         => 0,0,0,0';
+pwc-test './ch-2.raku', <1 2 0 3 4>,       '1 2 0 0 3',       'Duplicate Zeros: 1,2,0,3,4       => 1,2,0,0,3';