facets 1.1.0 → 1.2.0

data/lib/facet/array/op_fetch.rb

@@ -1,40 +1 @@
-
-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
+require 'facets/core/array/op_fetch.rb'

data/lib/facet/array/op_mod.rb

@@ -1,16 +1 @@
-#--
-# Glory to the _why!
-#++
-
-class Array
-
-  # Partition an array into parts of given length.
-  def / len
-    inject([]) do |ary, x|
-      ary << [] if [*ary.last].nitems % len == 0
-      ary.last << x
-      ary
-    end
-  end
-
-end
+require 'facets/core/array/op_mod.rb'

data/lib/facet/array/op_store.rb

@@ -1,47 +1 @@
-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
+require 'facets/core/array/op_store.rb'

data/lib/facet/array/pick.rb

@@ -1,68 +1 @@
-
-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
+require 'facets/core/array/pick.rb'

data/lib/facet/array/pos.rb

@@ -1,39 +1 @@
-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
+require 'facets/core/array/pos.rb'

data/lib/facet/array/pull.rb

@@ -1,37 +1 @@
-
-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
+require 'facets/core/array/pull.rb'

data/lib/facet/array/rand_index.rb

@@ -1,30 +1 @@
-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
+require 'facets/core/array/rand_index.rb'

data/lib/facet/array/rand_subset.rb

@@ -1,56 +1 @@
-
-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
+require 'facets/core/array/rand_subset.rb'

data/lib/facet/array/range.rb

@@ -1,47 +1 @@
-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
+require 'facets/core/array/range.rb'

data/lib/facet/array/rotate.rb

@@ -1,67 +1 @@
-
-class Array
-
-  # Rotates an array's elements from back to front n times.
-  #
-  #   [1,2,3].rotate      #=> [3,1,2]
-  #   [3,1,2].rotate      #=> [2,3,1]
-  #   [3,1,2].rotate      #=> [1,2,3]
-  #   [1,2,3].rotate(3)   #=> [1,2,3]
-  #
-  # A negative parameter reverses the order from front to back.
-  #
-  #   [1,2,3].rotate(-1)  #=> [2,3,1]
-  #
-  def rotate(n=1)
-    self.dup.rotate!(n)
-  end
-
-  # Same as #rotate, but acts in place.
-  #
-  #   a = [1,2,3]
-  #   a.rotate!
-  #   a  #=> [3,1,2]
-  #
-  def rotate!(n=1)
-    n = n.to_int
-    return self if (n == 0 or self.empty?)
-    if n > 0
-      n.abs.times{ self.unshift( self.pop ) }
-    else
-      n.abs.times{ self.push( self.shift ) }
-    end
-    self
-  end
-
-end
-
-
-#  _____         _
-# |_   _|__  ___| |_
-#   | |/ _ \/ __| __|
-#   | |  __/\__ \ |_
-#   |_|\___||___/\__|
-#
-=begin test
-
-  require 'test/unit'
-
-  class TCArray < Test::Unit::TestCase
-
-    def test_rotate
-      a = [1,2,3]
-      assert_equal( [3,1,2], a.rotate, 'clockwise' )
-      assert_equal( [2,3,1], a.rotate(-1), 'counter-clockwise' )
-    end
-
-    def test_rotate!
-      a = [1,2,3]
-      a.rotate!
-      assert_equal( [3,1,2], a, 'clockwise' )
-      a.rotate!(-1)
-      assert_equal( [1,2,3], a, 'counter-clockwise' )
-    end
-
-  end
-
-=end
+require 'facets/core/array/rotate.rb'