From 6f2acf2eaca534ff5656b82f051702beb7b1a14f Mon Sep 17 00:00:00 2001
From: Ruben Westerberg <drclaw@mac.com>
Date: Thu, 29 Aug 2019 20:39:19 +1000
Subject: Added ch-1 p5 and p6

---
 challenge-023/ruben-westerberg/perl5/ch-1.pl | 15 +++++++++++++++
 challenge-023/ruben-westerberg/perl6/ch-1.p6 |  7 +++++++
 2 files changed, 22 insertions(+)
 create mode 100755 challenge-023/ruben-westerberg/perl5/ch-1.pl
 create mode 100755 challenge-023/ruben-westerberg/perl6/ch-1.p6

diff --git a/challenge-023/ruben-westerberg/perl5/ch-1.pl b/challenge-023/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..9751a5ac90
--- /dev/null
+++ b/challenge-023/ruben-westerberg/perl5/ch-1.pl
@@ -0,0 +1,15 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use List::Util qw<reduce>;
+use Getopt::Long;
+use v5.26;
+my $order=1;
+
+GetOptions("order=i" => \$order);
+my @values=@ARGV?@ARGV:(5, 9, 2, 8, 1, 6);
+
+for (0..$order-1) {
+	@values=map( { reduce {$a-$b} @values[$_, $_-1];} 1..@values-1);
+}
+print join " ", @values;
diff --git a/challenge-023/ruben-westerberg/perl6/ch-1.p6 b/challenge-023/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..19dd7c2b31
--- /dev/null
+++ b/challenge-023/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,7 @@
+#!/usr/bin/env perl6
+#
+sub MAIN(:$order=1,*@values){
+	@values=(5, 9, 2, 8, 1, 6 ) if !@values;
+	@values= map( { [-] @values[$_,$_-1]}, @values.keys[1..*-1]) for ^$order ;
+	put @values;
+}
-- 
cgit