Merge pull request #6650 from steve-g-lynn/branch-for-challenge-179

challenge-179

7 files changed, 131 insertions, 0 deletions

diff --git a/challenge-179/steve-g-lynn/blog.txt b/challenge-179/steve-g-lynn/blog.txt
new file mode 100644
index 0000000000..595d6a2f44
--- /dev/null
+++ b/challenge-179/steve-g-lynn/blog.txt
@@ -0,0 +1 @@
+https://thiujiac.blogspot.com/2022/08/pwc-179.html
diff --git a/challenge-179/steve-g-lynn/julia/ch-1.jl b/challenge-179/steve-g-lynn/julia/ch-1.jl
new file mode 100755
index 0000000000..f3d02b2a6c
--- /dev/null
+++ b/challenge-179/steve-g-lynn/julia/ch-1.jl
@@ -0,0 +1,14 @@
+#!/usr/bin/env julia
+
+#-- this is really perl 5 using the Lingua::EN::Numbers module
+#-- illustrates calling perl 5 one-liners from Julia
+
+#-- https://docs.julialang.org/en/v1/manual/running-external-programs/
+
+run(`perl -MLingua::EN::Numbers -e 'print Lingua::EN::Numbers::num2en_ordinal(11),"\n"'`)
+
+run(`perl -MLingua::EN::Numbers -e 'print Lingua::EN::Numbers::num2en_ordinal(62),"\n"'`)
+
+run(`perl -MLingua::EN::Numbers -e 'print Lingua::EN::Numbers::num2en_ordinal(99),"\n"'`)
+
+
diff --git a/challenge-179/steve-g-lynn/julia/ch-2.jl b/challenge-179/steve-g-lynn/julia/ch-2.jl
new file mode 100755
index 0000000000..aaac7afe00
--- /dev/null
+++ b/challenge-179/steve-g-lynn/julia/ch-2.jl
@@ -0,0 +1,30 @@
+#!/usr/bin/env julia
+
+using Statistics
+
+function sparkline(data::Vector{Float64})
+	med = median(data)
+	stddev = std(data)
+	for datum in data
+		if ((datum >= med - stddev) && (datum <= med+stddev))
+			print("▂")
+		elseif (datum < med - stddev)
+			print("▁")
+		elseif (datum > med + stddev)
+			print("▃")
+		else
+			break
+		end
+	end
+	println("")
+end
+
+mydata=[1.0,2.0,3.0,4.0,5.0,4.0,3.0,2.0,1.0]
+
+sparkline(mydata)
+
+#▁▂▂▂▃▂▂▂▁
+
+
+
+
diff --git a/challenge-179/steve-g-lynn/perl/ch-1.pl b/challenge-179/steve-g-lynn/perl/ch-1.pl
new file mode 100755
index 0000000000..9ab62d235c
--- /dev/null
+++ b/challenge-179/steve-g-lynn/perl/ch-1.pl
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl
+
+use Lingua::EN::Numbers qw(num2en_ordinal);
+
+print num2en_ordinal(11),"\n";
+print num2en_ordinal(62),"\n";
+print num2en_ordinal(99),"\n";
+
+
diff --git a/challenge-179/steve-g-lynn/perl/ch-2.pl b/challenge-179/steve-g-lynn/perl/ch-2.pl
new file mode 100755
index 0000000000..900d120c11
--- /dev/null
+++ b/challenge-179/steve-g-lynn/perl/ch-2.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/env -S perl -CSDA
+
+use utf8;
+use Statistics::Lite qw(median stddev);
+
+my @data=(1,2,3,4,5,4,3,2,1);
+
+&sparkline(@data);
+#▁▂▂▂▃▂▂▂▁
+
+sub sparkline {
+	my @data = @_;
+	my $median=median(@data);
+	my $stddev=stddev(@data);
+	
+	for my $data (@data) {
+		if ( ($data >= ($median-$stddev)) && 
+		($data <= ($median+$stddev)) ) {
+			print '▂';
+		}
+		elsif ( $data < ($median-$stddev) ) {
+			print '▁';
+		}
+		elsif ( $data > ($median+$stddev) ) {
+			print '▃';
+		}
+		else {
+			die "Something wrong.\n";
+		}
+	}
+	print "\n";
+	return;
+}
+
+
diff --git a/challenge-179/steve-g-lynn/raku/ch-1.p6 b/challenge-179/steve-g-lynn/raku/ch-1.p6
new file mode 100755
index 0000000000..98d5dee949
--- /dev/null
+++ b/challenge-179/steve-g-lynn/raku/ch-1.p6
@@ -0,0 +1,9 @@
+#!/usr/bin/env perl6
+
+use Lingua::EN::Numbers:from<Perl5> <num2en_ordinal>;
+
+say num2en_ordinal(11);
+say num2en_ordinal(62);
+say num2en_ordinal(99);
+
+
diff --git a/challenge-179/steve-g-lynn/raku/ch-2.p6 b/challenge-179/steve-g-lynn/raku/ch-2.p6
new file mode 100755
index 0000000000..565dead268
--- /dev/null
+++ b/challenge-179/steve-g-lynn/raku/ch-2.p6
@@ -0,0 +1,33 @@
+#!/usr/bin/env perl6
+
+use Stats;
+
+my @data=(1,2,3,4,5,4,3,2,1);
+
+&sparkline(@data);
+#▁▂▂▂▃▂▂▂▁
+
+sub sparkline (@data) {
+	my $median=median @data;
+	my $stddev=sd @data;
+	
+	for (@data) -> $data {
+		if ( ($data >= ($median-$stddev)) && 
+		($data <= ($median+$stddev)) ) {
+			print '▂';
+		}
+		elsif ( $data < ($median-$stddev) ) {
+			print '▁';
+		}
+		elsif ( $data > ($median+$stddev) ) {
+			print '▃';
+		}
+		else {
+			die "Something wrong.\n";
+		}
+	}
+	print "\n";
+	return;
+}
+
+