From ea5e94b9fccd34813db40b04c286e76b30b47c59 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Tue, 23 Aug 2022 11:01:29 +0200
Subject: Solution to task 1

---
 challenge-179/jo-37/perl/ch-1.sh | 3 +++
 1 file changed, 3 insertions(+)
 create mode 100755 challenge-179/jo-37/perl/ch-1.sh

diff --git a/challenge-179/jo-37/perl/ch-1.sh b/challenge-179/jo-37/perl/ch-1.sh
new file mode 100755
index 0000000000..fbf496c437
--- /dev/null
+++ b/challenge-179/jo-37/perl/ch-1.sh
@@ -0,0 +1,3 @@
+#!/bin/sh
+
+perl -MLingua::EN::Numbers=num2en_ordinal -E "say num2en_ordinal $1"
-- 
cgit 


From fc1d2d045a1151eab74dfb69dea9fd2736c24023 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Tue, 23 Aug 2022 11:01:46 +0200
Subject: Solution to task 2

---
 challenge-179/jo-37/perl/ch-2.pl | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)
 create mode 100755 challenge-179/jo-37/perl/ch-2.pl

diff --git a/challenge-179/jo-37/perl/ch-2.pl b/challenge-179/jo-37/perl/ch-2.pl
new file mode 100755
index 0000000000..4b0f69da83
--- /dev/null
+++ b/challenge-179/jo-37/perl/ch-2.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+use v5.16;
+use List::MoreUtils 'minmax';
+use Math::Round 'round';
+
+die <<EOS unless @ARGV;
+usage: $0 N1 N2 ...
+
+N1 N2 ...
+    Numbers to be represented in a sparkline-like bar chart.
+
+EOS
+
+
+### Input and Output
+
+binmode STDOUT, ':utf8';
+say barchart(@ARGV);
+
+
+### Implementation
+
+# A vague solution for a vague task:  I didn't find any Unicode
+# symbols that could be used to produce sparklines.  Using
+# ${SEARCH_ENGINE} revealed some implementations that produce small
+# bar charts using Unicode symbols.  Following this approach.
+#
+# Starting with U+2581 ("\N{LOWER ONE EIGHTH BLOCK}"), there are eight
+# consecutive block symbols having a height of one to eight eights that
+# will be used here.  Returning a list of characters.
+
+sub barchart {
+    my ($min, $max) = minmax @_;
+    my $scale = 7 / (($max - $min) || 1);
+    map chr(0x2581 + round(($_ - $min) * $scale)), @_;
+}
-- 
cgit 


From 138e6f00cd7a994f5e63d403c40eb94faa76abd3 Mon Sep 17 00:00:00 2001
From: Jörg Sommrey <28217714+jo-37@users.noreply.github.com>
Date: Fri, 26 Aug 2022 16:48:16 +0200
Subject: Fix for task 2

---
 challenge-179/jo-37/perl/ch-2.pl | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/challenge-179/jo-37/perl/ch-2.pl b/challenge-179/jo-37/perl/ch-2.pl
index 4b0f69da83..5ff1c52ff4 100755
--- a/challenge-179/jo-37/perl/ch-2.pl
+++ b/challenge-179/jo-37/perl/ch-2.pl
@@ -2,7 +2,7 @@
 
 use v5.16;
 use List::MoreUtils 'minmax';
-use Math::Round 'round';
+use Math::Utils 'floor';
 
 die <<EOS unless @ARGV;
 usage: $0 N1 N2 ...
@@ -32,6 +32,6 @@ say barchart(@ARGV);
 
 sub barchart {
     my ($min, $max) = minmax @_;
-    my $scale = 7 / (($max - $min) || 1);
-    map chr(0x2581 + round(($_ - $min) * $scale)), @_;
+    my $scale = 7.999 / (($max - $min) || 1);
+    map chr(0x2581 + floor(($_ - $min) * $scale)), @_;
 }
-- 
cgit