Class: Number

Inherits:
Numeric show all
Defined in:
opal/opal/corelib/number.rb

Class Method Summary collapse

Instance Method Summary collapse

Methods inherited from Numeric

#__coerced__, #clone, #conj, #div, #dup, #i, #imag, #polar, #real, #real?, #rect, #step, #to_c

Methods included from Comparable

#between?, #clamp

Class Method Details

.allocateObject

Raises:


9
10
11
# File 'opal/opal/corelib/number.rb', line 9

def allocate
  raise TypeError, "allocator undefined for #{name}"
end

Instance Method Details

#%(other) ⇒ Object Also known as: modulo


88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
# File 'opal/opal/corelib/number.rb', line 88

def %(other)
  %x{
    if (other.$$is_number) {
      if (other == -Infinity) {
        return other;
      }
      else if (other == 0) {
        #{raise ZeroDivisionError, 'divided by 0'};
      }
      else if (other < 0 || self < 0) {
        return (self % other + other) % other;
      }
      else {
        return self % other;
      }
    }
    else {
      return #{__coerced__ :%, other};
    }
  }
end

#&(other) ⇒ Object


110
111
112
113
114
115
116
117
118
119
# File 'opal/opal/corelib/number.rb', line 110

def &(other)
  %x{
    if (other.$$is_number) {
      return self & other;
    }
    else {
      return #{__coerced__ :&, other};
    }
  }
end

#*(other) ⇒ Object


64
65
66
67
68
69
70
71
72
73
# File 'opal/opal/corelib/number.rb', line 64

def *(other)
  %x{
    if (other.$$is_number) {
      return self * other;
    }
    else {
      return #{__coerced__ :*, other};
    }
  }
end

#**(other) ⇒ Object


254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
# File 'opal/opal/corelib/number.rb', line 254

def **(other)
  if Integer === other
    if !(Integer === self) || other > 0
      `Math.pow(self, other)`
    else
      Rational.new(self, 1)**other
    end
  elsif self < 0 && (Float === other || Rational === other)
    Complex.new(self, 0)**other.to_f
  elsif `other.$$is_number != null`
    `Math.pow(self, other)`
  else
    __coerced__ :**, other
  end
end

#+(other) ⇒ Object


42
43
44
45
46
47
48
49
50
51
# File 'opal/opal/corelib/number.rb', line 42

def +(other)
  %x{
    if (other.$$is_number) {
      return self + other;
    }
    else {
      return #{__coerced__ :+, other};
    }
  }
end

#[email protected]Object


242
243
244
# File 'opal/opal/corelib/number.rb', line 242

def [email protected]
  `+self`
end

#-(other) ⇒ Object


53
54
55
56
57
58
59
60
61
62
# File 'opal/opal/corelib/number.rb', line 53

def -(other)
  %x{
    if (other.$$is_number) {
      return self - other;
    }
    else {
      return #{__coerced__ :-, other};
    }
  }
end

#[email protected]Object


246
247
248
# File 'opal/opal/corelib/number.rb', line 246

def [email protected]
  `-self`
end

#/(other) ⇒ Object Also known as: fdiv


75
76
77
78
79
80
81
82
83
84
# File 'opal/opal/corelib/number.rb', line 75

def /(other)
  %x{
    if (other.$$is_number) {
      return self / other;
    }
    else {
      return #{__coerced__ :/, other};
    }
  }
end

#<(other) ⇒ Object


143
144
145
146
147
148
149
150
151
152
# File 'opal/opal/corelib/number.rb', line 143

def <(other)
  %x{
    if (other.$$is_number) {
      return self < other;
    }
    else {
      return #{__coerced__ :<, other};
    }
  }
end

#<<(count) ⇒ Object


216
217
218
219
220
# File 'opal/opal/corelib/number.rb', line 216

def <<(count)
  count = Opal.coerce_to! count, Integer, :to_int

  `#{count} > 0 ? self << #{count} : self >> -#{count}`
end

#<=(other) ⇒ Object


154
155
156
157
158
159
160
161
162
163
# File 'opal/opal/corelib/number.rb', line 154

def <=(other)
  %x{
    if (other.$$is_number) {
      return self <= other;
    }
    else {
      return #{__coerced__ :<=, other};
    }
  }
end

#<=>(other) ⇒ Object


210
211
212
213
214
# File 'opal/opal/corelib/number.rb', line 210

def <=>(other)
  `spaceship_operator(self, other)`
rescue ArgumentError
  nil
end

#==(other) ⇒ Object Also known as: eql?


284
285
286
287
288
289
290
291
292
293
294
295
296
# File 'opal/opal/corelib/number.rb', line 284

def ==(other)
  %x{
    if (other.$$is_number) {
      return self.valueOf() === other.valueOf();
    }
    else if (#{other.respond_to? :==}) {
      return #{other == self};
    }
    else {
      return false;
    }
  }
end

#===(other) ⇒ Object


270
271
272
273
274
275
276
277
278
279
280
281
282
# File 'opal/opal/corelib/number.rb', line 270

def ===(other)
  %x{
    if (other.$$is_number) {
      return self.valueOf() === other.valueOf();
    }
    else if (#{other.respond_to? :==}) {
      return #{other == self};
    }
    else {
      return false;
    }
  }
end

#>(other) ⇒ Object


165
166
167
168
169
170
171
172
173
174
# File 'opal/opal/corelib/number.rb', line 165

def >(other)
  %x{
    if (other.$$is_number) {
      return self > other;
    }
    else {
      return #{__coerced__ :>, other};
    }
  }
end

#>=(other) ⇒ Object


176
177
178
179
180
181
182
183
184
185
# File 'opal/opal/corelib/number.rb', line 176

def >=(other)
  %x{
    if (other.$$is_number) {
      return self >= other;
    }
    else {
      return #{__coerced__ :>=, other};
    }
  }
end

#>>(count) ⇒ Object


222
223
224
225
226
# File 'opal/opal/corelib/number.rb', line 222

def >>(count)
  count = Opal.coerce_to! count, Integer, :to_int

  `#{count} > 0 ? self >> #{count} : self << -#{count}`
end

#[](bit) ⇒ Object


228
229
230
231
232
233
234
235
236
237
238
239
240
# File 'opal/opal/corelib/number.rb', line 228

def [](bit)
  bit = Opal.coerce_to! bit, Integer, :to_int

  %x{
    if (#{bit} < 0) {
      return 0;
    }
    if (#{bit} >= 32) {
      return #{ self } < 0 ? 1 : 0;
    }
    return (self >> #{bit}) & 1;
  }
end

#^(other) ⇒ Object


132
133
134
135
136
137
138
139
140
141
# File 'opal/opal/corelib/number.rb', line 132

def ^(other)
  %x{
    if (other.$$is_number) {
      return self ^ other;
    }
    else {
      return #{__coerced__ :^, other};
    }
  }
end

#__id__Object Also known as: object_id


36
37
38
# File 'opal/opal/corelib/number.rb', line 36

def __id__
  `(self * 2) + 1`
end

#absObject Also known as: magnitude


298
299
300
# File 'opal/opal/corelib/number.rb', line 298

def abs
  `Math.abs(self)`
end

#abs2Object


302
303
304
# File 'opal/opal/corelib/number.rb', line 302

def abs2
  `Math.abs(self * self)`
end

#allbits?(mask) ⇒ Boolean

Returns:


306
307
308
309
# File 'opal/opal/corelib/number.rb', line 306

def allbits?(mask)
  mask = Opal.coerce_to! mask, Integer, :to_int
  `(self & mask) == mask`
end

#angleObject Also known as: arg, phase


316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
# File 'opal/opal/corelib/number.rb', line 316

def angle
  return self if nan?

  %x{
    if (self == 0) {
      if (1 / self > 0) {
        return 0;
      }
      else {
        return Math.PI;
      }
    }
    else if (self < 0) {
      return Math.PI;
    }
    else {
      return 0;
    }
  }
end

#anybits?(mask) ⇒ Boolean

Returns:


311
312
313
314
# File 'opal/opal/corelib/number.rb', line 311

def anybits?(mask)
  mask = Opal.coerce_to! mask, Integer, :to_int
  `(self & mask) !== 0`
end

#bit_lengthObject


340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
# File 'opal/opal/corelib/number.rb', line 340

def bit_length
  unless Integer === self
    raise NoMethodError.new("undefined method `bit_length` for #{self}:Float", 'bit_length')
  end

  %x{
    if (self === 0 || self === -1) {
      return 0;
    }

    var result = 0,
        value  = self < 0 ? ~self : self;

    while (value != 0) {
      result   += 1;
      value  >>>= 1;
    }

    return result;
  }
end

#ceil(ndigits = 0) ⇒ Object


362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
# File 'opal/opal/corelib/number.rb', line 362

def ceil(ndigits = 0)
  %x{
    var f = #{to_f};

    if (f % 1 === 0 && ndigits >= 0) {
      return f;
    }

    var factor = Math.pow(10, ndigits),
        result = Math.ceil(f * factor) / factor;

    if (f % 1 === 0) {
      result = Math.round(result);
    }

    return result;
  }
end

#chr(encoding = undefined) ⇒ Object


381
382
383
# File 'opal/opal/corelib/number.rb', line 381

def chr(encoding = undefined)
  `Opal.enc(String.fromCharCode(self), encoding || "BINARY")`
end

#coerce(other) ⇒ Object


16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
# File 'opal/opal/corelib/number.rb', line 16

def coerce(other)
  %x{
    if (other === nil) {
      #{raise TypeError, "can't convert #{other.class} into Float"};
    }
    else if (other.$$is_string) {
      return [#{Float(other)}, self];
    }
    else if (#{other.respond_to?(:to_f)}) {
      return [#{Opal.coerce_to!(other, Float, :to_f)}, self];
    }
    else if (other.$$is_number) {
      return [other, self];
    }
    else {
      #{raise TypeError, "can't convert #{other.class} into Float"};
    }
  }
end

#denominatorObject


385
386
387
388
389
390
391
# File 'opal/opal/corelib/number.rb', line 385

def denominator
  if nan? || infinite?
    1
  else
    super
  end
end

#digits(base = 10) ⇒ Object


738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
# File 'opal/opal/corelib/number.rb', line 738

def digits(base = 10)
  if self < 0
    raise Math::DomainError, 'out of domain'
  end

  base = Opal.coerce_to! base, Integer, :to_int

  if base < 2
    raise ArgumentError, "invalid radix #{base}"
  end

  %x{
    var value = self, result = [];

    while (value !== 0) {
      result.push(value % base);
      value = parseInt(value / base, 10);
    }

    return result;
  }
end

#divmod(other) ⇒ Object


761
762
763
764
765
766
767
768
769
# File 'opal/opal/corelib/number.rb', line 761

def divmod(other)
  if nan? || other.nan?
    raise FloatDomainError, 'NaN'
  elsif infinite?
    raise FloatDomainError, 'Infinity'
  else
    super
  end
end

#downto(stop, &block) ⇒ Object


393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
# File 'opal/opal/corelib/number.rb', line 393

def downto(stop, &block)
  unless block_given?
    return enum_for(:downto, stop) do
      raise ArgumentError, "comparison of #{self.class} with #{stop.class} failed" unless Numeric === stop
      stop > self ? 0 : self - stop + 1
    end
  end

  %x{
    if (!stop.$$is_number) {
      #{raise ArgumentError, "comparison of #{self.class} with #{stop.class} failed"}
    }
    for (var i = self; i >= stop; i--) {
      block(i);
    }
  }

  self
end

#equal?(other) ⇒ Boolean

Returns:


415
416
417
# File 'opal/opal/corelib/number.rb', line 415

def equal?(other)
  self == other || `isNaN(self) && isNaN(other)`
end

#even?Boolean

Returns:


419
420
421
# File 'opal/opal/corelib/number.rb', line 419

def even?
  `self % 2 === 0`
end

#finite?Boolean

Returns:


804
805
806
# File 'opal/opal/corelib/number.rb', line 804

def finite?
  `self != Infinity && self != -Infinity && !isNaN(self)`
end

#floor(ndigits = 0) ⇒ Object


423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
# File 'opal/opal/corelib/number.rb', line 423

def floor(ndigits = 0)
  %x{
    var f = #{to_f};

    if (f % 1 === 0 && ndigits >= 0) {
      return f;
    }

    var factor = Math.pow(10, ndigits),
        result = Math.floor(f * factor) / factor;

    if (f % 1 === 0) {
      result = Math.round(result);
    }

    return result;
  }
end

#gcd(other) ⇒ Object


442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
# File 'opal/opal/corelib/number.rb', line 442

def gcd(other)
  unless Integer === other
    raise TypeError, 'not an integer'
  end

  %x{
    var min = Math.abs(self),
        max = Math.abs(other);

    while (min > 0) {
      var tmp = min;

      min = max % min;
      max = tmp;
    }

    return max;
  }
end

#gcdlcm(other) ⇒ Object


462
463
464
# File 'opal/opal/corelib/number.rb', line 462

def gcdlcm(other)
  [gcd(other), lcm(other)]
end

#infinite?Boolean

Returns:


808
809
810
811
812
813
814
815
816
817
818
819
820
# File 'opal/opal/corelib/number.rb', line 808

def infinite?
  %x{
    if (self == Infinity) {
      return +1;
    }
    else if (self == -Infinity) {
      return -1;
    }
    else {
      return nil;
    }
  }
end

#instance_of?(klass) ⇒ Boolean

Returns:


480
481
482
483
484
485
486
# File 'opal/opal/corelib/number.rb', line 480

def instance_of?(klass)
  return true if klass == Integer && Integer === self
  return true if klass == Integer && Integer === self
  return true if klass == Float && Float === self

  super
end

#integer?Boolean

Returns:


466
467
468
# File 'opal/opal/corelib/number.rb', line 466

def integer?
  `self % 1 === 0`
end

#is_a?(klass) ⇒ Boolean Also known as: kind_of?

Returns:


470
471
472
473
474
475
476
# File 'opal/opal/corelib/number.rb', line 470

def is_a?(klass)
  return true if klass == Integer && Integer === self
  return true if klass == Integer && Integer === self
  return true if klass == Float && Float === self

  super
end

#lcm(other) ⇒ Object


488
489
490
491
492
493
494
495
496
497
498
499
500
501
# File 'opal/opal/corelib/number.rb', line 488

def lcm(other)
  unless Integer === other
    raise TypeError, 'not an integer'
  end

  %x{
    if (self == 0 || other == 0) {
      return 0;
    }
    else {
      return Math.abs(self * other / #{gcd(other)});
    }
  }
end

#nan?Boolean

Returns:


800
801
802
# File 'opal/opal/corelib/number.rb', line 800

def nan?
  `isNaN(self)`
end

#negative?Boolean

Returns:


826
827
828
# File 'opal/opal/corelib/number.rb', line 826

def negative?
  `self == -Infinity || 1 / self < 0`
end

#nextObject Also known as: succ


507
508
509
# File 'opal/opal/corelib/number.rb', line 507

def next
  `self + 1`
end

#nobits?(mask) ⇒ Boolean

Returns:


511
512
513
514
# File 'opal/opal/corelib/number.rb', line 511

def nobits?(mask)
  mask = Opal.coerce_to! mask, Integer, :to_int
  `(self & mask) == 0`
end

#nonzero?Boolean

Returns:


516
517
518
# File 'opal/opal/corelib/number.rb', line 516

def nonzero?
  `self == 0 ? nil : self`
end

#numeratorObject


520
521
522
523
524
525
526
# File 'opal/opal/corelib/number.rb', line 520

def numerator
  if nan? || infinite?
    self
  else
    super
  end
end

#odd?Boolean

Returns:


528
529
530
# File 'opal/opal/corelib/number.rb', line 528

def odd?
  `self % 2 !== 0`
end

#ordObject


532
533
534
# File 'opal/opal/corelib/number.rb', line 532

def ord
  self
end

#positive?Boolean

Returns:


822
823
824
# File 'opal/opal/corelib/number.rb', line 822

def positive?
  `self != 0 && (self == Infinity || 1 / self > 0)`
end

#pow(b, m = undefined) ⇒ Object


536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
# File 'opal/opal/corelib/number.rb', line 536

def pow(b, m = undefined)
  %x{
    if (self == 0) {
      #{raise ZeroDivisionError, 'divided by 0'}
    }

    if (m === undefined) {
      return #{self**b};
    } else {
      if (!(#{Integer === b})) {
        #{raise TypeError, 'Integer#pow() 2nd argument not allowed unless a 1st argument is integer'}
      }

      if (b < 0) {
        #{raise TypeError, 'Integer#pow() 1st argument cannot be negative when 2nd argument specified'}
      }

      if (!(#{Integer === m})) {
        #{raise TypeError, 'Integer#pow() 2nd argument not allowed unless all arguments are integers'}
      }

      if (m === 0) {
        #{raise ZeroDivisionError, 'divided by 0'}
      }

      return #{(self**b) % m}
    }
  }
end

#predObject


566
567
568
# File 'opal/opal/corelib/number.rb', line 566

def pred
  `self - 1`
end

#quo(other) ⇒ Object


570
571
572
573
574
575
576
# File 'opal/opal/corelib/number.rb', line 570

def quo(other)
  if Integer === self
    super
  else
    self / other
  end
end

#rationalize(eps = undefined) ⇒ Object


578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
# File 'opal/opal/corelib/number.rb', line 578

def rationalize(eps = undefined)
  %x{
    if (arguments.length > 1) {
      #{raise ArgumentError, "wrong number of arguments (#{`arguments.length`} for 0..1)"};
    }
  }

  if Integer === self
    Rational.new(self, 1)
  elsif infinite?
    raise FloatDomainError, 'Infinity'
  elsif nan?
    raise FloatDomainError, 'NaN'
  elsif `eps == null`
    f, n  = Math.frexp self
    f     = Math.ldexp(f, Float::MANT_DIG).to_i
    n    -= Float::MANT_DIG

    Rational.new(2 * f, 1 << (1 - n)).rationalize(Rational.new(1, 1 << (1 - n)))
  else
    to_r.rationalize(eps)
  end
end

#remainder(y) ⇒ Object


602
603
604
# File 'opal/opal/corelib/number.rb', line 602

def remainder(y)
  self - y * (self / y).truncate
end

#round(ndigits = undefined) ⇒ Object


606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
# File 'opal/opal/corelib/number.rb', line 606

def round(ndigits = undefined)
  if Integer === self
    if `ndigits == null`
      return self
    end

    if Float === ndigits && ndigits.infinite?
      raise RangeError, 'Infinity'
    end

    ndigits = Opal.coerce_to!(ndigits, Integer, :to_int)

    if ndigits < Integer::MIN
      raise RangeError, 'out of bounds'
    end

    if `ndigits >= 0`
      return self
    end

    ndigits = -ndigits

    %x{
      if (0.415241 * ndigits - 0.125 > #{size}) {
        return 0;
      }

      var f = Math.pow(10, ndigits),
          x = Math.floor((Math.abs(self) + f / 2) / f) * f;

      return self < 0 ? -x : x;
    }
  else
    if nan? && `ndigits == null`
      raise FloatDomainError, 'NaN'
    end

    ndigits = Opal.coerce_to!(`ndigits || 0`, Integer, :to_int)

    if ndigits <= 0
      if nan?
        raise RangeError, 'NaN'
      elsif infinite?
        raise FloatDomainError, 'Infinity'
      end
    elsif ndigits == 0
      return `Math.round(self)`
    elsif nan? || infinite?
      return self
    end

    _, exp = Math.frexp(self)

    if ndigits >= (Float::DIG + 2) - (exp > 0 ? exp / 4 : exp / 3 - 1)
      return self
    end

    if ndigits < -(exp > 0 ? exp / 3 + 1 : exp / 4)
      return 0
    end

    `Math.round(self * Math.pow(10, ndigits)) / Math.pow(10, ndigits)`
  end
end

#sizeObject

Since bitwise operations are 32 bit, declare it to be so.


796
797
798
# File 'opal/opal/corelib/number.rb', line 796

def size
  4
end

#times(&block) ⇒ Object


673
674
675
676
677
678
679
680
681
682
683
# File 'opal/opal/corelib/number.rb', line 673

def times(&block)
  return enum_for(:times) { self } unless block

  %x{
    for (var i = 0; i < self; i++) {
      block(i);
    }
  }

  self
end

#to_fObject


685
686
687
# File 'opal/opal/corelib/number.rb', line 685

def to_f
  self
end

#to_iObject Also known as: to_int


689
690
691
# File 'opal/opal/corelib/number.rb', line 689

def to_i
  `self < 0 ? Math.ceil(self) : Math.floor(self)`
end

#to_rObject


695
696
697
698
699
700
701
702
703
704
705
# File 'opal/opal/corelib/number.rb', line 695

def to_r
  if Integer === self
    Rational.new(self, 1)
  else
    f, e  = Math.frexp(self)
    f     = Math.ldexp(f, Float::MANT_DIG).to_i
    e    -= Float::MANT_DIG

    (f * (Float::RADIX**e)).to_r
  end
end

#to_s(base = 10) ⇒ Object Also known as: inspect


707
708
709
710
711
712
713
714
715
# File 'opal/opal/corelib/number.rb', line 707

def to_s(base = 10)
  base = Opal.coerce_to! base, Integer, :to_int

  if base < 2 || base > 36
    raise ArgumentError, "invalid radix #{base}"
  end

  `self.toString(base)`
end

#truncate(ndigits = 0) ⇒ Object


717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
# File 'opal/opal/corelib/number.rb', line 717

def truncate(ndigits = 0)
  %x{
    var f = #{to_f};

    if (f % 1 === 0 && ndigits >= 0) {
      return f;
    }

    var factor = Math.pow(10, ndigits),
        result = parseInt(f * factor, 10) / factor;

    if (f % 1 === 0) {
      result = Math.round(result);
    }

    return result;
  }
end

#upto(stop, &block) ⇒ Object


771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
# File 'opal/opal/corelib/number.rb', line 771

def upto(stop, &block)
  unless block_given?
    return enum_for(:upto, stop) do
      raise ArgumentError, "comparison of #{self.class} with #{stop.class} failed" unless Numeric === stop
      stop < self ? 0 : stop - self + 1
    end
  end

  %x{
    if (!stop.$$is_number) {
      #{raise ArgumentError, "comparison of #{self.class} with #{stop.class} failed"}
    }
    for (var i = self; i <= stop; i++) {
      block(i);
    }
  }

  self
end

#zero?Boolean

Returns:


791
792
793
# File 'opal/opal/corelib/number.rb', line 791

def zero?
  `self == 0`
end

#|(other) ⇒ Object


121
122
123
124
125
126
127
128
129
130
# File 'opal/opal/corelib/number.rb', line 121

def |(other)
  %x{
    if (other.$$is_number) {
      return self | other;
    }
    else {
      return #{__coerced__ :|, other};
    }
  }
end

#~Object


250
251
252
# File 'opal/opal/corelib/number.rb', line 250

def ~
  `~self`
end