facets 1.0.0 → 1.0.1

data/lib/facet/array/mid.rb

@@ -1,50 +0,0 @@
-
-class Array
-
-  # Returns the middle element of an array, or the element offset
-  # from middle if the parameter is given. Even-sized arrays,
-  # not having an exact middle, return the middle-right element.
-  #
-  #   [1,2,3,4,5].mid        #=> 3
-  #   [1,2,3,4,5,6].mid      #=> 4
-  #   [1,2,3,4,5,6].mid(-1)  #=> 3
-  #   [1,2,3,4,5,6].mid(-2)  #=> 2
-  #   [1,2,3,4,5,6].mid(1)   #=> 5
-  #
-  # In other words, If there are an even number of elements the
-  # higher-indexed of the two center elements is indexed as
-  # orgin (0).
-  def mid(offset=0)
-    self.at( (self.length / 2) + offset )
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_mid
-      a = [1,2,3,4,5]
-      b = [1,2,3,4,5,6]
-      assert_equal( 3, a.mid )
-      assert_equal( 4, b.mid )
-      assert_equal( 4, a.mid(1) )
-      assert_equal( 5, b.mid(1) )
-      assert_equal( 6, b.mid(2) )
-      assert_equal( 3, b.mid(-1) )
-    end
-
-  end
-
-=end

data/lib/facet/array/middle.rb

@@ -1,45 +0,0 @@
-
-class Array
-
-  # Returns the middle element(s) of an array. Even-sized arrays,
-  # not having an exact middle, returns a two-element array
-  # of the two middle elements.
-  #
-  #   [1,2,3,4,5].mid        #=> 3
-  #   [1,2,3,4,5,6].mid      #=> [3,4]
-  #
-  # In contrast to #mid which utilizes an offset.
-  def middle
-    if size % 2 == 0
-      [ at((size/2)-1), at(size/2) ]
-    else
-      at(size/2)
-    end
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_middle
-      a = [1,2,3,4,5]
-      b = [1,2,3,4,5,6]
-      assert_equal( 3, a.middle )
-      assert_equal( [3,4], b.middle )
-    end
-
-  end
-
-=end

data/lib/facet/array/op_fetch.rb

@@ -1,40 +0,0 @@
-
-class Array
-
-  # Modifies #[] to also accept an array of indexes.
-  #
-  #   a = ['a','b','c','d','e','f']
-  #
-  #   a[[1]]      #=> ['b']
-  #   a[[1,1]]    #=> ['b','b']
-  #   a[[1,-1]]   #=> ['b','f']
-  #   a[[0,2,4]]  #=> ['a','c','e']
-  #
-  def [](*args)
-    return values_at(*args.at(0)) if Array === args.at(0)
-    return slice(*args)
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_op_fetch
-      a = ['a','b','c','d','e','f']
-      assert_equal( ['b','f'], a[[1,-1]] )
-    end
-
-  end
-
-=end

data/lib/facet/array/op_store.rb

@@ -1,47 +0,0 @@
-require 'facet/array/store'
-
-class Array
-
-  # Modifies #[]= to accept an array of indexes for assignment.
-  #
-  #   a = ['a','b','c','d']
-  #
-  #   a[[1,-1]] = ['m','n']    #=> ['m','n']
-  #   a                        #=> ['a','m','c','n']
-  #
-  def []=(*args)
-    if Array === args.at(0)
-      idx,vals = args.at(0),args.at(1)
-      idx.each_with_index{ |a,i| store(a,vals.at(i)) }
-      return values_at( *idx )
-    else
-      return store(*args)
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_op_stroe
-      a = ['a','o','z']
-      a[[0,2]] = ['A','Z']
-      assert_equal( ['A','o','Z'], a )
-      a[[0,-1]] = ['W','Y']
-      assert_equal( ['W','o','Y'], a )
-    end
-
-  end
-
-=end

data/lib/facet/array/pick.rb

@@ -1,68 +0,0 @@
-
-class Array
-
-  # Similar to #at_rand, but will return an array of randomly
-  # picked exclusive elements if given a number.
-  def pick(n=nil)
-    if n
-      a = self.dup
-      a.pick!(n)
-    else
-      at( Kernel.rand( size ) )
-    end
-  end
-
-  # Similar to #at_rand!, but given a number will return
-  # an array of exclusive elements.
-  def pick!(n=nil)
-    if n
-      if n > self.size
-        r = self.dup
-        self.replace([])
-        r
-      else
-        r = []
-        n.times { r << delete_at( Kernel.rand( size ) ) }
-        r
-      end
-    else
-      delete_at( Kernel.rand( size ) )
-    end
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_pick
-      a = ['a','b','c']
-      assert_equal( 3, a.pick(3).length )
-      assert_equal( 3, a.length )
-      a = ['a','b','c']
-      assert_equal( 3, a.pick(4).length )
-      assert_equal( 3, a.length )
-    end
-
-    def test_pick!
-      a = ['a','b','c']
-      assert_equal( 3, a.pick!(3).length )
-      assert_equal( 0, a.length )
-      a = ['a','b','c']
-      assert_equal( 3, a.pick!(4).length )
-      assert_equal( 0, a.length )
-    end
-
-  end
-
-=end

data/lib/facet/array/pos.rb

@@ -1,39 +0,0 @@
-class Array
-  # Returns the positive ordinal index given
-  # a cardinal position, 1 to n or -n to -1.
-  #
-  #   [1,2,3,4,5].pos(1)   #=> 0
-  #   [1,2,3,4,5].pos(-1)  #=> 4
-  #
-  def pos(i)
-    if i > 0
-      return i - 1
-    else
-      self.length + i
-    end
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_pos
-      a = [1,2,3,4,5]
-      assert_equal( 0, a.pos(1) )
-      assert_equal( 4, a.pos(-1) )
-    end
-
-  end
-
-=end

data/lib/facet/array/pull.rb

@@ -1,37 +0,0 @@
-
-class Array
-
-  # Alias for shift which removes an object
-  # off first slot of an array. This is
-  # the contrary of pop.
-  #
-  #   a=[1,2,3]
-  #   a.pull  #=> 1
-  #   a       #=> [2,3]
-  #
-  alias_method( :pull, :shift )
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_pull
-      a = [1,2,3]
-      assert_equal( 1, a.pull )
-      assert_equal( [2,3], a )
-    end
-
-  end
-
-=end

data/lib/facet/array/rand_index.rb

@@ -1,30 +0,0 @@
-class Array
-  def rand_index
-    rand( size )
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_rand_index
-      10.times {
-        i = [1,2,3].rand_index
-        assert( (0..2).include?(i) )
-      }
-    end
-
-  end
-
-=end

data/lib/facet/array/rand_subset.rb

@@ -1,56 +0,0 @@
-
-class Array
-
-  # Returns a random subset of an Array. If a _number_
-  # of elements is specified then returns that number of
-  # elements, otherwise returns a random number of elements
-  # upto the size of the Array.
-  #
-  # By defualt the returned values are exclusive of
-  # each other, but if _exclusive_ is set to <tt>false</tt>,
-  # the same values can be choosen more than once.
-  #
-  # When _exclusive_ is <tt>true</tt> (the default) and the
-  # _number_ given is greater than the size of the array,
-  # then all values are returned.
-  #
-  #   [1, 2, 3, 4].rand_subset(1)        #=> [2]
-  #   [1, 2, 3, 4].rand_subset(4)        #=> [2, 1, 3, 4]
-  #   [1, 2, 3, 4].rand_subset           #=> [1, 3, 4]
-  #   [1, 2, 3, 4].rand_subset           #=> [2, 3]
-  #
-  def rand_subset( number=nil, exclusive=true )
-    number = rand( size ) unless number
-    number = number.to_int
-    #return self.dup if (number >= size and exlusive)
-    return sort_by{rand}.slice(0,number) if exclusive
-    ri =[]; number.times { |n| ri << rand( size ) }
-    return values_at(*ri)
-  end
-
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_rand_subset
-      10.times {
-        a = [1,2,3,4].rand_subset
-        assert( a.size <= 4 )
-      }
-    end
-
-  end
-
-=end

data/lib/facet/array/range.rb

@@ -1,47 +0,0 @@
-class Array
-  # Returns the index range between two elements.
-  # If no elements are given, returns the range
-  # from first to last.
-  #
-  #   ['a','b','c','d'].range            #=> 0..3
-  #   ['a','b','c','d'].range('b','d')   #=> 1..2
-  #
-  #--
-  # This could surely use a little error catch code (todo).
-  #++
-  def range(a=nil,z=nil)
-    if !a
-      0..self.length-1
-    else
-      index(a)..index(z)
-    end
-  end
-end
-
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_range
-      a = [1,2,3,4,5]
-      b = [1,2,3,4,5,6]
-      assert_equal( (0..4), a.range )
-      assert_equal( (0..5), b.range )
-      assert_equal( (1..3), a.range(2,4) )
-      assert_equal( (1..2), b.range(2,3) )
-      assert_equal( (3..1), b.range(4,2) )
-    end
-
-  end
-
-=end