sergiotarxz/15giftsTask
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Adding comment.

Browse Source
This commit is contained in:
Sergiotarxz 2023-11-14 12:31:42 +01:00
parent 574a0104d5
commit bd8921a241
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
number_generator.pl
View File

@ -61,6 +61,8 @@ sub append_decene($number_ref, $return_ref) {
sub append_decene_thousands($number_ref, $return_ref, $there_is_hundred_thousands) { sub append_decene_thousands($number_ref, $return_ref, $there_is_hundred_thousands) {
my $number = ${$number_ref}; my $number = ${$number_ref};
my $thousand_decene_unit = int ($number / 1_000); my $thousand_decene_unit = int ($number / 1_000);
# This is needed for numbers such as 1_100_001 that do not have thousand decenes
# but have thousand hundreds.
if ($there_is_hundred_thousands && $thousand_decene_unit < 1) { if ($there_is_hundred_thousands && $thousand_decene_unit < 1) {
${$return_ref} .= ' thousand'; ${$return_ref} .= ' thousand';
}; };