|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : HB 2:5020/400 25 Jun 2001 23:33:58
To : All
Subject : Re: round()
--------------------------------------------------------------------------------
vitus@ice.ru wrote in <9h747m$9h6$3@Ft1.Ftcenter.RU>...
>sub round {
> my ($num,$prec) = @_;
> $num=~s/([^\.]+\.\d{1,$prec})\d*/$1/;
> return $num;
>}
>
>sub round {
> my ($num,$prec) = @_;
> my $multiplier = "1". ("0" x $prec);
> return int($num*$multiplier)/$multiplier;
>}
Обе функции -- скорее trunc(), чем round(). Они не округляют, они усекают.
Кроме того, round(exp(-10), 5) даст '4.53999e-005', а не желаемые '0.00005',
как нормальный вар-т с sprintf.
--
HB mailto:npecca@yahoo.com?subject=Usenet
--- ifmail v.2.15dev5
* Origin: VoronezhSvyazInform ISP (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
| Тема: |
Автор: |
Дата: |
|
round() |
Denis Roshchin |
25 Jun 2001 13:08:52 |
 Re: round() |
Konstantin Ryabov |
25 Jun 2001 13:19:10 |
  Re: round() |
Denis Roshchin |
25 Jun 2001 13:39:25 |
 Re: round() |
vitus@ice.ru |
25 Jun 2001 14:38:02 |
|
Re: round() |
HB |
25 Jun 2001 23:33:58 |
|
Re: round() |
Konstantin Ryabov |
25 Jun 2001 15:00:16 |
|
Re: round() |
Eugene Bodin |
25 Jun 2001 18:51:59 |
|
round() |
Igor Ivlev |
05 Jun 2001 09:40:32 |
|
Re: round() |
Alexander Babanov |
08 Jul 2001 18:26:18 |
|
Re: round() |
Alexander Babanov |
25 Jun 2001 14:39:07 |
|
Re: round() |
Denis Roshchin |
26 Jun 2001 09:45:56 |
|
round() |
Igor Ivlev |
05 Jun 2001 09:36:33 |
|
|
