Solutions to W26 ch-1 and ch-2. p5 and p6

5 files changed, 48 insertions, 8 deletions

diff --git a/challenge-026/ruben-westerberg/README b/challenge-026/ruben-westerberg/README
index e7a3e41132..b22be03bd3 100644
--- a/challenge-026/ruben-westerberg/README
+++ b/challenge-026/ruben-westerberg/README
@@ -2,15 +2,15 @@ Solution by Ruben Westerberg
 
 ch-1.pl and ch-1.p6
 ===
-Longest Pokemon name sequence.
-Simply run the program to see the sequence update. Last one printed in the longest one
-
+Stone and Jewels
+Run the program with two arguments, the first one being the stone, and the second one the jewel.
+The total number of letters in the jewel present in the stone is printed. 
+If no arguments are given a test set is used.
 
 ch-2.pl and ch-2.p6
 ===
-Implements the chaochiper
-usage example (encode and decode pipeline reading from standard input)
-	ch-2.pl | ch-2.pl decode
-
-	ch-2.p6 | ch-2.p6 --decode
+Angular average
+Run the program with at least one argument. Each argument is an angle in degrees.
+The output is the average of the list of angles supplied.
+If no arguments are given, a test list is used.
 
diff --git a/challenge-026/ruben-westerberg/perl5/ch-1.pl b/challenge-026/ruben-westerberg/perl5/ch-1.pl
new file mode 100755
index 0000000000..314f86073a
--- /dev/null
+++ b/challenge-026/ruben-westerberg/perl5/ch-1.pl
@@ -0,0 +1,11 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use List::Util qw(uniqstr);
+
+my ($stones, $jewels)= @ARGV?@ARGV: qw(chancellor chocolate);
+print "Alphabet (stone) word: $stones\nTest (jewel) word: $jewels\n";
+$_=$jewels;
+my @stones= uniqstr(split "", $stones);
+s/[@stones]//g;
+print "Number of letters of Alphabet found in Test: ", length($jewels) - length, "\n";
diff --git a/challenge-026/ruben-westerberg/perl5/ch-2.pl b/challenge-026/ruben-westerberg/perl5/ch-2.pl
new file mode 100755
index 0000000000..147fc7a2d8
--- /dev/null
+++ b/challenge-026/ruben-westerberg/perl5/ch-2.pl
@@ -0,0 +1,14 @@
+#!/usr/bin/env perl
+use strict;
+use warnings;
+use List::Util qw<reduce>;
+use Math::Trig;
+
+my @angles= @ARGV?@ARGV:(181,179);
+print "Average of angles [ @angles ] is: ";
+my $avgCos= (reduce {$a+$b} map {cos $_ * pi/180} @angles)/@angles;
+my $avgSin= (reduce {$a+$b} map {sin  $_ * pi/180} @angles)/@angles;
+my $avg=atan2($avgSin, $avgCos)*180/pi;
+$avg+=360 if $avg <0;
+print "$avg\n";
+
diff --git a/challenge-026/ruben-westerberg/perl6/ch-1.p6 b/challenge-026/ruben-westerberg/perl6/ch-1.p6
new file mode 100755
index 0000000000..6106d49293
--- /dev/null
+++ b/challenge-026/ruben-westerberg/perl6/ch-1.p6
@@ -0,0 +1,6 @@
+#!/usr/bin/env perl6
+
+my ($stones,$jewels)=@*ARGS??@*ARGS!! <chancellor chocolate>;
+print "Alphabet (stone) word: $stones\nTest (jewel) word: $jewels\n";
+my @stones= $stones.comb.unique;
+put "Number of letters of Alphabet found in Test: ", $jewels.chars-(S:g/[@stones]// given $jewels).chars;
diff --git a/challenge-026/ruben-westerberg/perl6/ch-2.p6 b/challenge-026/ruben-westerberg/perl6/ch-2.p6
new file mode 100755
index 0000000000..9973484074
--- /dev/null
+++ b/challenge-026/ruben-westerberg/perl6/ch-2.p6
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+
+my @angles=@*ARGS??@*ARGS!![181,179];
+print "Average of [ @angles[] ] is: ";
+my $avgCos= ( [+] @angles.map({($_*pi/180).cos}))/@angles;
+my $avgSin= ( [+] @angles.map({($_*pi/180).sin}))/@angles;
+my $avg=atan2($avgSin,$avgCos)*180/pi;
+$avg+=360 if $avg < 0;
+put $avg;