File Coverage

blib/lib/Lingua/UKR/Num2Word.pm

Criterion	Covered	Total	%
statement	27	117	23.0
branch	2	78	2.5
condition	3	48	6.2
subroutine	8	10	80.0
pod	3	3	100.0
total	43	256	16.8

# For Emacs: -*- mode:cperl; mode:folding; coding:utf-8 -*-

package Lingua::UKR::Num2Word;
# ABSTRACT: Number to word conversion in Ukrainian

use 5.16.0;
use utf8;
use warnings;

# {{{ use block

use Carp;
use Export::Attrs;

# }}}
# {{{ var block
our $VERSION = '0.2603300';
my %token1 = (
     0 => 'нуль',
     1 => 'один',          2 => 'два',
     3 => 'три',           4 => 'чотири',
     5 => "п'ять",         6 => 'шість',
     7 => 'сім',           8 => 'вісім',
     9 => "дев'ять",      10 => 'десять',
    11 => 'одинадцять',   12 => 'дванадцять',
    13 => 'тринадцять',   14 => 'чотирнадцять',
    15 => "п'ятнадцять",  16 => 'шістнадцять',
    17 => 'сімнадцять',   18 => 'вісімнадцять',
    19 => "дев'ятнадцять",
);
my %token2 = (
    20 => 'двадцять',     30 => 'тридцять',
    40 => 'сорок',        50 => "п'ятдесят",
    60 => 'шістдесят',    70 => 'сімдесят',
    80 => 'вісімдесят',   90 => "дев'яносто",
);
my %token3 = (
    100 => 'сто',         200 => 'двісті',
    300 => 'триста',      400 => 'чотириста',
    500 => "п'ятсот",     600 => 'шістсот',
    700 => 'сімсот',      800 => 'вісімсот',
    900 => "дев'ятсот",
);

# }}}

# {{{ num2ukr_cardinal           number to string conversion

sub num2ukr_cardinal :Export {
    my $result = '';
    my $number = shift;

    croak 'You should specify a number from interval [0, 999_999_999]'
        if    !defined $number
           || $number !~ m{\A\d+\z}xms
           || $number < 0
           || $number > 999_999_999;

    my $reminder = 0;

    if ($number < 20) {
        $result = $token1{$number};
    }
    elsif ($number < 100) {
        $reminder = $number % 10;
        if ($reminder == 0) {
            $result = $token2{$number};
        }
        else {
            $result = $token2{$number - $reminder}.' '.num2ukr_cardinal($reminder);
        }
    }
    elsif ($number < 1_000) {
        $reminder = $number % 100;
        if ($reminder != 0) {
            $result = $token3{$number - $reminder}.' '.num2ukr_cardinal($reminder);
        }
        else {
            $result = $token3{$number};
        }
    }
    elsif ($number < 1_000_000) {
        $reminder = $number % 1_000;
        my $tmp1 = ($reminder != 0) ? ' '.num2ukr_cardinal($reminder) : '';
        my $tmp2 = substr($number, 0, length($number)-3);
        my $tmp3 = $tmp2 % 100;
        my $tmp4 = $tmp2 % 10;

        if ($tmp3 < 9 || $tmp3 > 20) {
            if ($tmp4 == 1 && $tmp2 == 1) {
                $tmp2 = 'тисяча';
            }
            elsif ($tmp4 == 1) {
                $tmp2 = num2ukr_cardinal($tmp2 - $tmp4).' одна тисяча';
            }
            elsif ($tmp4 == 2 && $tmp2 == 2) {
                $tmp2 = 'дві тисячі';
            }
            elsif ($tmp4 == 2) {
                $tmp2 = num2ukr_cardinal($tmp2 - $tmp4).' дві тисячі';
            }
            elsif ($tmp4 > 2 && $tmp4 < 5) {
                $tmp2 = num2ukr_cardinal($tmp2).' тисячі';
            }
            else {
                $tmp2 = num2ukr_cardinal($tmp2).' тисяч';
            }
        }
        else {
            $tmp2 = num2ukr_cardinal($tmp2).' тисяч';
        }
        $result = $tmp2.$tmp1;
    }
    elsif ($number < 1_000_000_000) {
        $reminder = $number % 1_000_000;
        my $tmp1 = ($reminder != 0) ? ' '.num2ukr_cardinal($reminder) : '';
        my $tmp2 = substr($number, 0, length($number)-6);
        my $tmp3 = $tmp2 % 100;
        my $tmp4 = $tmp2 % 10;

        if ($tmp3 < 9 || $tmp3 > 20) {
            if ($tmp4 == 1 && $tmp2 == 1) {
                $tmp2 = 'мільйон';
            }
            elsif ($tmp4 == 1) {
                $tmp2 = num2ukr_cardinal($tmp2 - $tmp4).' один мільйон';
            }
            elsif ($tmp4 > 1 && $tmp4 < 5) {
                $tmp2 = num2ukr_cardinal($tmp2).' мільйони';
            }
            else {
                $tmp2 = num2ukr_cardinal($tmp2).' мільйонів';
            }
        }
        else {
            $tmp2 = num2ukr_cardinal($tmp2).' мільйонів';
        }

        $result = $tmp2.$tmp1;
    }

    return $result;
}

# }}}

# {{{ num2ukr_ordinal           number to ordinal string conversion

sub num2ukr_ordinal :Export {
    my $number = shift;

    croak 'You should specify a number from interval [0, 999_999_999]'
        if    !defined $number
           || $number !~ m{\A\d+\z}xms
           || $number < 0
           || $number > 999_999_999;

    # Irregular ordinals 0-10
    my %irregular = (
        0  => 'нульовий',
        1  => 'перший',
        2  => 'другий',
        3  => 'третій',
        4  => 'четвертий',
        5  => "п'ятий",
        6  => 'шостий',
        7  => 'сьомий',
        8  => 'восьмий',
        9  => "дев'ятий",
        10 => 'десятий',
    );

    return $irregular{$number} if exists $irregular{$number};

    # Teens ordinals 11-19
    my %teens = (
        11 => 'одинадцятий',
        12 => 'дванадцятий',
        13 => 'тринадцятий',
        14 => 'чотирнадцятий',
        15 => "п'ятнадцятий",
        16 => 'шістнадцятий',
        17 => 'сімнадцятий',
        18 => 'вісімнадцятий',
        19 => "дев'ятнадцятий",
    );

    return $teens{$number} if exists $teens{$number};

    # Tens ordinals
    my %tens_ord = (
        20 => 'двадцятий',
        30 => 'тридцятий',
        40 => 'сороковий',
        50 => "п'ятдесятий",
        60 => 'шістдесятий',
        70 => 'сімдесятий',
        80 => 'вісімдесятий',
        90 => "дев'яностий",
    );

    # Hundreds ordinals
    my %hundreds_ord = (
        100 => 'сотий',
        200 => 'двохсотий',
        300 => 'трьохсотий',
        400 => 'чотирьохсотий',
        500 => "п'ятисотий",
        600 => 'шестисотий',
        700 => 'семисотий',
        800 => 'восьмисотий',
        900 => "дев'ятисотий",
    );

    # For numbers >= 1_000_000
    if ($number >= 1_000_000) {
        my $millions = int($number / 1_000_000);
        my $remainder = $number % 1_000_000;
        if ($remainder == 0) {
            if ($millions == 1) {
                return 'мільйонний';
            }
            return num2ukr_cardinal($millions) . ' мільйонний';
        }
        my $prefix = num2ukr_cardinal($millions);
        my $tmp4 = $millions % 10;
        my $tmp3 = $millions % 100;
        my $mil_word;
        if ($tmp3 < 9 || $tmp3 > 20) {
            if ($tmp4 == 1) {
                $mil_word = 'мільйон';
            }
            elsif ($tmp4 > 1 && $tmp4 < 5) {
                $mil_word = 'мільйони';
            }
            else {
                $mil_word = 'мільйонів';
            }
        }
        else {
            $mil_word = 'мільйонів';
        }
        return $prefix . ' ' . $mil_word . ' ' . num2ukr_ordinal($remainder);
    }

    if ($number >= 1_000) {
        my $thousands = int($number / 1_000);
        my $remainder = $number % 1_000;
        if ($remainder == 0) {
            if ($thousands == 1) {
                return 'тисячний';
            }
            return num2ukr_cardinal($thousands) . ' тисячний';
        }
        my $thou_cardinal;
        if ($thousands == 1) {
            $thou_cardinal = 'тисяча';
        }
        elsif ($thousands == 2) {
            $thou_cardinal = 'дві тисячі';
        }
        elsif ($thousands >= 3 && $thousands <= 4) {
            $thou_cardinal = num2ukr_cardinal($thousands) . ' тисячі';
        }
        else {
            $thou_cardinal = num2ukr_cardinal($thousands) . ' тисяч';
        }
        return $thou_cardinal . ' ' . num2ukr_ordinal($remainder);
    }

    if ($number >= 100) {
        my $h = int($number / 100) * 100;
        my $remainder = $number % 100;
        if ($remainder == 0) {
            return $hundreds_ord{$h};
        }
        return $token3{$h} . ' ' . num2ukr_ordinal($remainder);
    }

    # 20-99 compound
    if ($number >= 20) {
        my $t = int($number / 10) * 10;
        my $remainder = $number % 10;
        if ($remainder == 0) {
            return $tens_ord{$t};
        }
        return $tens_ord{$t} . ' ' . $irregular{$remainder};
    }

    # Should not reach here
    return;
}

# }}}

# {{{ capabilities              declare supported features

sub capabilities {
    return {
        cardinal => 1,
        ordinal  => 1,
    };
}

# }}}
1;

__END__