Challenge 2 done

1 files changed, 13 insertions, 0 deletions

diff --git a/challenge-051/simon-proctor/raku/ch-2.p6 b/challenge-051/simon-proctor/raku/ch-2.p6
new file mode 100644
index 0000000000..028447c9c6
--- /dev/null
+++ b/challenge-051/simon-proctor/raku/ch-2.p6
@@ -0,0 +1,13 @@
+#!/usr/bin/env perl6
+
+use v6;
+
+#| Print all the colourful 3 digit numbers
+sub MAIN() {
+    .say for (111..999).grep( &is-colourful );
+}
+
+sub is-colourful( Int $number ) {
+    my @vals = $number.comb;
+    [!==] @vals[0] * @vals[1], @vals[1] * @vals[2], @vals[0] * @vals[1] * @vals[2], @vals[0] * @vals[1];
+}