~tim/scheme-vm

ref: 9584a02ae8b83940275762c5c6f4df4948bc80d4 scheme-vm/vm/int.rb -rw-r--r-- 806 bytes
9584a02aTim Morgan Implement equivalence semantics for empty lists and pairs 4 years ago
                                                                                
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
class VM
  class Int
    include Comparable

    MIN = 2**63 * -1
    MAX = 2**63 - 1

    def initialize(num)
      @num = num.to_i
      fail 'integer out of range' if @num < MIN || @num > MAX
    end

    def raw
      @num
    end

    def eq?(other)
      return false unless other.is_a?(Int)
      raw == other.raw
    end

    alias_method :==, :eq?
    alias_method :eqv?, :eq?

    def +(other)
      Int.new(raw + other.raw)
    end

    def -(other)
      Int.new(raw - other.raw)
    end

    def *(other)
      Int.new(raw * other.raw)
    end

    def /(other)
      Int.new(raw / other.raw)
    end

    def %(other)
      Int.new(raw % other.raw)
    end

    def to_s
      raw.to_s
    end

    def to_ruby
      @num
    end

    def <=>(other)
      raw <=> other.raw
    end
  end
end