package EGE::Russian::Animals;

use strict;
use warnings;
use utf8;

use EGE::Utils;

our @list =
qw(
Акула
Антилопа
Бабочка
Бабуин
Баклан
Баран
Барсук
Бегемот
Белочка
Бизон
Бобр
Броненосец
Буйвол
Верблюд
Викунья
Вол
Волк
Ворон
Ворона
Вошь
Выдра
Гаер
Газель
Гепард
Гиена
Гну
Голубь
Горилла
Гуанако
Гусь
Дельфин
Дикобраз
Долгопят
Дюгонь
Еж
Енот
Ехидна
Жаба
Жаворонок
Жирафа
Замша
Заяц
Зебра
Землеройка
Змея
Зяблик
Индюк
Кабан
Кальмар
Карибу
Кенгуру
Кит
Кобра
Козел
Койот
Комар
Комодо
Корова
Котик
Кошка
Краб
Кран
Крокодил
Кролик
Крыса
Кряква
Куду
Курица
Куропатка
Лама
Ламантин
Ласка
Лебедь
Лев
Лемур
Леопард
Лиса
Лорис
Лось
Лошадь
Лягушка
Медведь
Медуза
Моль
Морж
Мул
Муравей
Муравьед
Муха
Мышь
Норка
Носорог
Обезьяна
Овца
Окапи
Олень
Омар
Орел
Оса
Осел
Павлин
Панда
Пантера
Паук
Пеликан
Песчанка
Пони
Пчела
Саламандра
Свинья
Сернобык
Скунс
Слон
Собака
Сова
Сокол
Соловей
Сорока
Страус
Стрекоза
Тапир
Таракан
Тигр
Трубкозуб
Угорь
Улитка
Устрица
Утка
Хомяк
Хорек
Цапля
Цесарка
Чайка
Червь
Черепаха
Шакал
Шершень
Шимпанзе
Ягуар
Як
Ястреб
Ящерица
);

our @distinct_letters = grep length == EGE::Utils::distinct_letters_count(uc $_), @list;

1;
