fork download
copy 
  1. #!/usr/bin/perl
  2. # your code goes here
  3. {
  4.     my @data;
  5.  
  6.     $data[1] = 1;       # x1 день
  7.  
  8.     for (2..4) {
  9.         $data[$_] = 2;  # x2-x4 дня
  10.     }
  11.  
  12.     for (0, 5..9, 10..19) {
  13.         $data[$_] = 3;  # x5-x0 дней
  14.     }
  15.  
  16.     sub plural($$$$) {
  17.         return $_[0] < 20
  18.             ? $_[$data[$_[0]]]
  19.             : $_[$data[$_[0] % 10]];
  20.     }
  21. }
  22.  
  23. for (11, 21, 2, 5, 25, 30, 100501) {
  24.     printf "%d %s\n", $_, plural($_, 'день','дня','дней');
  25. }
Success #stdin #stdout 0s 3608KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
11 дней
21 день
2 дня
5 дней
25 дней
30 дней
100501 день
https://ideone.com/nUt0rT
language:
Perl (perl 5.28.1)
created:
9 years ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!