From 098d668c1318b7616d4219a2fcdbf20197f9f316 Mon Sep 17 00:00:00 2001
From: Ruben Westerberg <drclaw@mac.com>
Date: Wed, 1 May 2019 19:33:31 +1000
Subject: W6 ch1 and ch2 p5 and p6 solutions added

---
 challenge-006/ruben-westerberg/perl5/ch-1.pl | 30 ++++++++++++++++++++++++++++
 challenge-006/ruben-westerberg/perl6/ch-1.p6 | 11 ++++++++++
 2 files changed, 41 insertions(+)
 create mode 100755 challenge-006/ruben-westerberg/perl5/ch-1.pl
 create mode 100755 challenge-006/ruben-westerberg/perl6/ch-1.p6

diff --git a/challenge-006/ruben-westerberg/perl5/ch-1.pl b/challenge-006/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..d8ae69a771
--- /dev/null
+++ b/challenge-006/ruben-westerberg/perl5/ch-1.pl
@@ -0,0 +1,30 @@
+#!/usr/bin/env perl
+#
+my $string=join ',', @ARGV;
+
+my @a=split ',' , $string;
+my %bag;
+foreach (@a) {
+	$bag{$_}++;
+}
+my @k1= sort { $a <=> $b} keys %bag;
+my @k2= @k1; push @k2, shift @k2;
+my @p;
+for (my $i=0; $i<=$#k1; $i++) {
+	if (abs($k2[$i]-$k1[$i]) > 1 ) {
+		push @p,$i;
+		push @p ,$i+1;
+	}
+}
+unshift @p, 0;
+pop @p;
+my @out;
+for (my $i=0; $i<$#p; $i+=2) {
+	my $a=$k1[$p[$i]];
+	my $b=$k1[$p[$i+1]];
+	my $val= $a-$b == 0? $a: "$a-$b";
+	push @out, $val;
+}
+print (join ",", @out);
+print "\n";
+	
diff --git a/challenge-006/ruben-westerberg/perl6/ch-1.p6 b/challenge-006/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..9438726911
--- /dev/null
+++ b/challenge-006/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl6
+my $string= @*ARGS ?? @*ARGS.join(",")!! prompt "Enter numbers: ";
+my $a=$string.split(",",:skip-empty)>>.trim.grep({!/^$/})>>.Int.Bag;
+my @r1=$a.keys.sort;
+my @diff=@r1.rotate >>-<< @r1;
+my @p=(0,|map {|($^k,$k+1) if abs($^v) > 1}, @diff.kv);
+
+@p.pop;
+say join ",", map {@r1[$^a]==@r1[$^b]??@r1[$^a]!!"@r1[$^a]-@r1[$^b]"}, @p;
+
+
-- 
cgit