Old Russian measure of length: Difference between revisions
m
→{{header|Perl}}: fixed output
SqrtNegInf (talk | contribs) (Added Perl example) |
SqrtNegInf (talk | contribs) m (→{{header|Perl}}: fixed output) |
||
Line 949:
my $prefix = $`;
my $match = $&;
my $digits = substr $match, 0, $sig;
my $nextd = substr $match, $sig, 1;
$digits =~ s/(.)$/{1+$1}/e if $nextd > 5;
Line 966 ⟶ 967:
fut: 3.2808
arshin: 1.4061
sazhen: 0.
kilometer: 0.001
versta: 0.
milia: 0.
1 milia to:
|