From d7a80c2c47dfc31f1fb2c5ca11353d6f5574b4e1 Mon Sep 17 00:00:00 2001
From: Sergiotarxz <sergiotarxz@posteo.net>
Date: Tue, 14 Nov 2023 12:13:03 +0100
Subject: [PATCH] Adding range support.

---
 README.md           |  2 +-
 number_generator.pl | 14 ++++++++++----
 2 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index 84b8bf7..71c975c 100644
--- a/README.md
+++ b/README.md
@@ -5,6 +5,6 @@
 Perl 5.36.0 or later is required to run this script.
 
 ```shell
-perl number_generator.pl <The desired number to convert into text>
+perl number_generator.pl <start of range> <end of range>
 
 ```
diff --git a/number_generator.pl b/number_generator.pl
index 57c68d5..69aecc0 100644
--- a/number_generator.pl
+++ b/number_generator.pl
@@ -12,11 +12,17 @@ my @numbers_one_to_nineteen = (@numbers_one_to_nine, qw/ten eleven twelve thirte
 
 my @decenes = (undef, qw/twenty thirty forty fifty sixty seventy eighty ninety/);
 sub main {
-    my $number = $ARGV[0];
-    if (!defined $number) {
-        $number = 1_111_111;
+    my $start_of_range = $ARGV[0];
+    my $end_of_range = $ARGV[1];
+    if (!defined $end_of_range) {
+        $end_of_range = 9_999_999;
+    }
+    if (!defined $start_of_range) {
+        $start_of_range = 0;
+    }
+    for (my $i = $start_of_range; $i <= $end_of_range; $i++) {
+        say convert_number_to_words($i)
     }
-    say convert_number_to_words($number)
 }
 
 sub convert_number_to_words($number) {