fjwhittle: week 3, part 2, perl 6

1 files changed, 24 insertions, 0 deletions

diff --git a/challenge-003/fjwhittle/perl6/ch-2.p6 b/challenge-003/fjwhittle/perl6/ch-2.p6
new file mode 100644
index 0000000000..5149fb1447
--- /dev/null
+++ b/challenge-003/fjwhittle/perl6/ch-2.p6
@@ -0,0 +1,24 @@
+#!/usr/bin/env perl6
+
+use v6;
+
+subset Count of Int where * >= 3;
+
+#| Generates a single row of the triangle.
+multi sub generate-row(Int $n) {
+  my @row = [1];
+
+  for 1..^$n -> $m {
+    my $fr = ($n - $m) / $m;
+    @row.push: @row.tail * $fr;
+  }
+
+  @row;
+}
+
+#| Generate Pascal's Triangle
+sub MAIN(
+  Count :$rows = 3 #= Number of rows to make (minimum 3).
+) {
+  generate-row($_).put for 1..$rows;
+}