* numeric.c (num_step): try to reduce residual on Float operations.
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2403 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
This commit is contained in:
parent
a117cec653
commit
936ad409ad
@ -1,3 +1,7 @@
|
|||||||
|
Wed Apr 24 14:06:35 2002 Yukihiro Matsumoto <matz@ruby-lang.org>
|
||||||
|
|
||||||
|
* numeric.c (num_step): try to reduce residual on Float operations.
|
||||||
|
|
||||||
Wed Apr 24 06:48:31 2002 Koji Arai <jca02266@nifty.ne.jp>
|
Wed Apr 24 06:48:31 2002 Koji Arai <jca02266@nifty.ne.jp>
|
||||||
|
|
||||||
* io.c (rb_io_mode_flags): both 'r+b' and 'rb+' should be allowed.
|
* io.c (rb_io_mode_flags): both 'r+b' and 'rb+' should be allowed.
|
||||||
|
41
numeric.c
41
numeric.c
@ -769,8 +769,6 @@ num_step(argc, argv, from)
|
|||||||
VALUE from;
|
VALUE from;
|
||||||
{
|
{
|
||||||
VALUE to, step;
|
VALUE to, step;
|
||||||
VALUE i = from;
|
|
||||||
ID cmp;
|
|
||||||
|
|
||||||
if (rb_scan_args(argc, argv, "11", &to, &step) == 1) {
|
if (rb_scan_args(argc, argv, "11", &to, &step) == 1) {
|
||||||
step = INT2FIX(1);
|
step = INT2FIX(1);
|
||||||
@ -798,19 +796,40 @@ num_step(argc, argv, from)
|
|||||||
i += diff;
|
i += diff;
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
return from;
|
|
||||||
}
|
}
|
||||||
|
else if (TYPE(from) == T_FLOAT || TYPE(to) == T_FLOAT || TYPE(step) == T_FLOAT) {
|
||||||
|
double beg = NUM2DBL(from);
|
||||||
|
double end = NUM2DBL(to);
|
||||||
|
double unit = NUM2DBL(step);
|
||||||
|
double n = beg;
|
||||||
|
long i = 0;
|
||||||
|
|
||||||
if (RTEST(rb_funcall(step, '>', 1, INT2FIX(0)))) {
|
if (unit > 0) {
|
||||||
cmp = '>';
|
for (i=0; n<=end; i++, n=unit*i+beg) {
|
||||||
|
rb_yield(rb_float_new(n));
|
||||||
|
}
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
for (i=0; n>=end; i++, n=unit*i+beg) {
|
||||||
|
rb_yield(rb_float_new(n));
|
||||||
|
}
|
||||||
|
}
|
||||||
}
|
}
|
||||||
else {
|
else {
|
||||||
cmp = '<';
|
VALUE i = from;
|
||||||
}
|
ID cmp;
|
||||||
for (;;) {
|
|
||||||
if (RTEST(rb_funcall(i, cmp, 1, to))) break;
|
if (RTEST(rb_funcall(step, '>', 1, INT2FIX(0)))) {
|
||||||
rb_yield(i);
|
cmp = '>';
|
||||||
i = rb_funcall(i, '+', 1, step);
|
}
|
||||||
|
else {
|
||||||
|
cmp = '<';
|
||||||
|
}
|
||||||
|
for (;;) {
|
||||||
|
if (RTEST(rb_funcall(i, cmp, 1, to))) break;
|
||||||
|
rb_yield(i);
|
||||||
|
i = rb_funcall(i, '+', 1, step);
|
||||||
|
}
|
||||||
}
|
}
|
||||||
return from;
|
return from;
|
||||||
}
|
}
|
||||||
|
Loading…
x
Reference in New Issue
Block a user