# Функция броска кубиков. Принимает в качестве аргумента строку
# xdn, где "x" количество бросков, "n" количество граней кубика,
# а "d" - разделитель. Возвращает массив результатов бросков.
sub dice_throw {
    my @throw_result;
    my $i = 0;
    my @throw_params = split(/d/, $_[0]);
    while($_[0] =~ /d/g) {
        $i++;
    }
    if ($i != 1) {
        error(3);
    }
    for ($i = 0; $i <= 1; $i++) {
        if (! $throw_params[$i] || $throw_params[$i] !~ /^\d+$/) {
            error(3);
        }
    }
    $#throw_result = $throw_params[0]-1;
    for ($i = 0; $i <= $#throw_result; $i++) {
        $throw_result[$i] = int(rand($throw_params[1]))+1;
    }
    return @throw_result;
}