Range

# File lib/facets/range/combine.rb, line 23
def self.combine(*intervals)
  intype = intervals.first.class
  result = []

  intervals = intervals.collect do |i|
    [i.first, i.last]
  end

  intervals.sort.each do |(from, to)|  #inject([]) do |result,
    if result.empty? or from > result.last[1]
      result << [from, to]
    elsif to > result.last[1]
      result.last[1] = to
    end
    #result
  end

  if intype <= Range
    result.collect{ |i| ((i.first)..(i.last)) }
  else
    result
  end
end

# File lib/facets/range/combine.rb, line 12
def combine(*intervals)
  Range.combine(self, *intervals)
end

# File lib/facets/range/overlap.rb, line 7
def overlap?(other)
  include?(other.first) or other.include?(first)
end

# File lib/facets/range/quantile.rb, line 12
def quantile(k, n=100)
  return 1 if k < first
  return n if k >= last
  ((k - first) / ((last - first) / n.to_f)).to_i + 1
end

# File lib/facets/range/to_r.rb, line 8
def to_r
  self
end

# File lib/facets/range/to_r.rb, line 21
def to_range
  self
end

# File lib/facets/range/within.rb, line 49
def umbrella(r)
  s = first <=> r.first
  e = r.last <=> last

  if e == 0
    if r.exclude_end? and exclude_end?
      e = r.max <=> max
    else
      e = (r.exclude_end? ? 0 : 1) <=> (exclude_end? ? 0 : 1)
    end
  end

  return s,e
end

# File lib/facets/range/within.rb, line 10
def within?(rng)
  case rng.umbrella(self)
  when [0,0], [-1,0], [0,-1], [-1,-1]
    return true
  else
    return false
  end
end