mug 0.2.4 → 0.2.5

data/lib/mug/tau.rb

@@ -1,44 +1,44 @@
-
-module Math
-  # The true circle constant.
-  # The ratio of a circle's circumference to its radius.
-  TAU = PI * 2.0
-end
-
-module BigMath
-  ##
-  # Computes the value of tau to the specific number of digits of precision.
-  #
-  # @param [Integer] prec the number of decimal digits of precision in the computed value.
-  # @return [BigDecimal] the computed value
-  # @raise [ArgumentError] if +prec+ is not positive
-  #
-  # @example
-  #   require 'bigdecimal'
-  #   require 'bigdecimal/math'
-  #   include BigMath
-  #
-  #   puts TAU(150)
-  #
-  def TAU(prec)
-    raise ArgumentError, 'Zero or negative argument for TAU' if prec <= 0
-    PI(prec) * BigDecimal('2')
-  end
-end
-
-=begin
-Copyright (c) 2013, Matthew Kerwin <matthew@kerwin.net.au>
-
-Permission to use, copy, modify, and/or distribute this software for any
-purpose with or without fee is hereby granted, provided that the above
-copyright notice and this permission notice appear in all copies.
-
-THE SOFTWARE IS PROVIDED 'AS IS' AND THE AUTHOR DISCLAIMS ALL WARRANTIES
-WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
-MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
-ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
-WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
-ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
-OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
-=end
-
+
+module Math
+  # The true circle constant.
+  # The ratio of a circle's circumference to its radius.
+  TAU = PI * 2.0
+end
+
+module BigMath
+  ##
+  # Computes the value of tau to the specific number of digits of precision.
+  #
+  # @param [Integer] prec the number of decimal digits of precision in the computed value.
+  # @return [BigDecimal] the computed value
+  # @raise [ArgumentError] if +prec+ is not positive
+  #
+  # @example
+  #   require 'bigdecimal'
+  #   require 'bigdecimal/math'
+  #   include BigMath
+  #
+  #   puts TAU(150)
+  #
+  def TAU(prec)
+    raise ArgumentError, 'Zero or negative argument for TAU' if prec <= 0
+    PI(prec) * BigDecimal('2')
+  end
+end
+
+=begin
+Copyright (c) 2013, Matthew Kerwin <matthew@kerwin.net.au>
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED 'AS IS' AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+=end
+

data/lib/mug/top.rb

@@ -0,0 +1,128 @@
+
+module Enumerable
+
+	#
+	# Get the top +n+ items, in order from top to bottom.
+	#
+	# Returns an +Array+ even when +n+ is 1.
+	#
+	# @see Enumerable#sort
+	#
+	def top n=1, &blk
+		if block_given?
+			sort{|x,y| yield y, x }[0...n]
+		else
+			#top_by(n) {|x| x }
+			if n <= length
+				sort[-n..-1].reverse
+			else
+				sort.reverse
+			end
+		end
+	end
+
+	#
+	# Get the top +n+ items, in order from top to bottom, ordered
+	# by mapping the values through the given block.
+	#
+	# Returns an +Array+ even when +n+ is 1. Values that are tied
+	# after mapping are returned in the initial order.
+	#
+	# If no block is given, an enumerator is returned instead.
+	#
+	# @see Enumerable#sort_by
+	#
+	def top_by n=1, &blk
+		return enum_for(:top_by, n) unless block_given?
+		chain = {}
+		each do |x|
+			y = yield x
+			chain[y] ||= []
+			chain[y] << x
+		end
+		ary = []
+		chain.keys.sort.reverse.each do |k|
+			ary += chain[k]
+			break if ary.length > n
+		end
+		ary[0...n]
+	end
+
+	#
+	# Get the bottom +n+ items, ordered from bottom to top.
+	#
+	# Returns an +Array+ even when +n+ is 1.
+	#
+	# @see Enumerable#sort
+	#
+	def bottom n=1, &blk
+		if block_given?
+			sort(&blk)[0...n]
+		else
+			#bottom_by(n) {|x| x }
+			sort[0...n]
+		end
+	end
+
+	#
+	# Get the bottom +n+ items, in order from bottom to top, ordered
+	# by mapping the values through the given block.
+	#
+	# Returns an +Array+ even when +n+ is 1. Values that are tied
+	# after mapping are returned in the initial order.
+	#
+	# If no block is given, an enumerator is returned instead.
+	#
+	# @see Enumerable#sort_by
+	#
+	def bottom_by n=1, &blk
+		return enum_for(:bottom_by, n) unless block_given?
+		chain = {}
+		each do |x|
+			y = yield x
+			chain[y] ||= []
+			chain[y] << x
+		end
+		ary = []
+		chain.keys.sort.each do |k|
+			ary += chain[k]
+			break if ary.length > n
+		end
+		ary[0...n]
+	end
+
+end
+
+class Array
+	def top! n=1, &blk
+		replace(top n, &blk)
+	end
+	def top_by! n=1, &blk
+		return enum_for(:top_by!, n) unless block_given?
+		replace(top_by n, &blk)
+	end
+	def bottom! n=1, &blk
+		replace(bottom n, &blk)
+	end
+	def bottom_by! n=1, &blk
+		return enum_for(:bottom_by!, n) unless block_given?
+		replace(bottom_by n, &blk)
+	end
+end
+
+=begin
+Copyright (c) 2014, Matthew Kerwin <matthew@kerwin.net.au>
+
+Permission to use, copy, modify, and/or distribute this software for any
+purpose with or without fee is hereby granted, provided that the above
+copyright notice and this permission notice appear in all copies.
+
+THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+=end
+

data/test/test-and-or.rb

@@ -1,41 +1,41 @@
-require 'test/unit'
-$VERBOSE = true
-
-require_relative '../lib/mug/and-or'
-class Test_and_or < Test::Unit::TestCase
-
-	def test_and
-		assert_equal( 2, 1.and(2) )
-		assert_equal( 2, 0.and(2) )
-		assert_equal( 2, 'x'.and(2) )
-		assert_equal( 2, true.and(2) )
-		assert_equal( false, false.and(2) )
-		assert_equal( nil,   nil.and(2) )
-	end
-
-	def test_and_2
-		assert_equal( [1], [1].and([2], &:empty?) )
-		assert_equal( [2], [].and([2], &:empty?) )
-		assert_equal( 'abc', 'abc'.and(''){|x|x =~ /\d/} )
-		assert_equal( '',    'a1c'.and(''){|x|x =~ /\d/} )
-	end
-
-
-	def test_or
-		assert_equal( 1,    1.or(2) )
-		assert_equal( 0,    0.or(2) )
-		assert_equal( 'x',  'x'.or(2) )
-		assert_equal( true, true.or(2) )
-		assert_equal( 2,    false.or(2) )
-		assert_equal( 2,    nil.or(2) )
-	end
-
-	def test_or_2
-		assert_equal( [2], [1].or([2], &:empty?) )
-		assert_equal( [],  [].or([2], &:empty?) )
-		assert_equal( '',    'abc'.or(''){|x|x =~ /\d/} )
-		assert_equal( 'a1c', 'a1c'.or(''){|x|x =~ /\d/} )
-	end
-
-end
-
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/and-or'
+class Test_and_or < Test::Unit::TestCase
+
+	def test_and
+		assert_equal( 2, 1.and(2) )
+		assert_equal( 2, 0.and(2) )
+		assert_equal( 2, 'x'.and(2) )
+		assert_equal( 2, true.and(2) )
+		assert_equal( false, false.and(2) )
+		assert_equal( nil,   nil.and(2) )
+	end
+
+	def test_and_2
+		assert_equal( [1], [1].and([2], &:empty?) )
+		assert_equal( [2], [].and([2], &:empty?) )
+		assert_equal( 'abc', 'abc'.and(''){|x|x =~ /\d/} )
+		assert_equal( '',    'a1c'.and(''){|x|x =~ /\d/} )
+	end
+
+
+	def test_or
+		assert_equal( 1,    1.or(2) )
+		assert_equal( 0,    0.or(2) )
+		assert_equal( 'x',  'x'.or(2) )
+		assert_equal( true, true.or(2) )
+		assert_equal( 2,    false.or(2) )
+		assert_equal( 2,    nil.or(2) )
+	end
+
+	def test_or_2
+		assert_equal( [2], [1].or([2], &:empty?) )
+		assert_equal( [],  [].or([2], &:empty?) )
+		assert_equal( '',    'abc'.or(''){|x|x =~ /\d/} )
+		assert_equal( 'a1c', 'a1c'.or(''){|x|x =~ /\d/} )
+	end
+
+end
+

data/test/test-fragile-method-chain.rb

@@ -1,65 +1,65 @@
-require 'test/unit'
-$VERBOSE = true
-
-module FMCTest
-	class A
-		def initialize; @b = B.new; end
-		attr_accessor :b
-	end
-
-	class B
-		def initialize; @c = C.new; end
-		attr_accessor :c
-	end
-
-	class C
-		def to_i; 1; end
-	end
-end
-
-def false.c
-	2
-end
-
-require_relative '../lib/mug/fragile-method-chain'
-class Test_fmc < Test::Unit::TestCase
-	def test_fmc_nil
-		a = FMCTest::A.new
-		assert_equal( 1, a._?.b.c.to_i._! )
-		assert_equal( 1, a._?.b.c._!.to_i )
-		assert_equal( 1, a._?.b._!.c.to_i )
-		a.b.c = nil
-		assert_nil( a._?.b.c.to_i._! )
-		assert_equal( 0, a._?.b.c._!.to_i )
-		assert_equal( 0, a._?.b._!.c.to_i )
-		a.b = nil
-		assert_nil( a._?.b.c.to_i._! )
-		assert_equal( 0, a._?.b.c._!.to_i )
-		assert_raise(NoMethodError) { a._?.b._!.c.to_i }
-		a = nil
-		assert_nil( a._?.b.c.to_i._! )
-	end
-	def test_fmc_false
-		a = FMCTest::A.new
-		assert_equal( 1, a._?.b.c.to_i._! )
-		assert_equal( 1, a._?.b.c._!.to_i )
-		assert_equal( 1, a._?.b._!.c.to_i )
-		a.b.c = false
-		assert_equal( false, a._?.b.c.to_i._! )
-		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
-		assert_raise(NoMethodError) { a._?.b._!.c.to_i }
-		a.b = false
-		assert_equal( false, a._?.b.c.to_i._! )
-		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
-		assert_equal( 2, a._?.b._!.c.to_i )
-		a = false
-		assert_equal( false, a._?.b.c.to_i._! )
-		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
-		assert_equal( 2, a._?.b._!.c.to_i )
-	end
-	def test_fmc_nested
-		a = FMCTest::A.new
-		assert_equal( 1, a._?.b._?.c._!.to_i._! )
-	end
-end
-
+require 'test/unit'
+$VERBOSE = true
+
+module FMCTest
+	class A
+		def initialize; @b = B.new; end
+		attr_accessor :b
+	end
+
+	class B
+		def initialize; @c = C.new; end
+		attr_accessor :c
+	end
+
+	class C
+		def to_i; 1; end
+	end
+end
+
+def false.c
+	2
+end
+
+require_relative '../lib/mug/fragile-method-chain'
+class Test_fmc < Test::Unit::TestCase
+	def test_fmc_nil
+		a = FMCTest::A.new
+		assert_equal( 1, a._?.b.c.to_i._! )
+		assert_equal( 1, a._?.b.c._!.to_i )
+		assert_equal( 1, a._?.b._!.c.to_i )
+		a.b.c = nil
+		assert_nil( a._?.b.c.to_i._! )
+		assert_equal( 0, a._?.b.c._!.to_i )
+		assert_equal( 0, a._?.b._!.c.to_i )
+		a.b = nil
+		assert_nil( a._?.b.c.to_i._! )
+		assert_equal( 0, a._?.b.c._!.to_i )
+		assert_raise(NoMethodError) { a._?.b._!.c.to_i }
+		a = nil
+		assert_nil( a._?.b.c.to_i._! )
+	end
+	def test_fmc_false
+		a = FMCTest::A.new
+		assert_equal( 1, a._?.b.c.to_i._! )
+		assert_equal( 1, a._?.b.c._!.to_i )
+		assert_equal( 1, a._?.b._!.c.to_i )
+		a.b.c = false
+		assert_equal( false, a._?.b.c.to_i._! )
+		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
+		assert_raise(NoMethodError) { a._?.b._!.c.to_i }
+		a.b = false
+		assert_equal( false, a._?.b.c.to_i._! )
+		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
+		assert_equal( 2, a._?.b._!.c.to_i )
+		a = false
+		assert_equal( false, a._?.b.c.to_i._! )
+		assert_raise(NoMethodError) { a._?.b.c._!.to_i }
+		assert_equal( 2, a._?.b._!.c.to_i )
+	end
+	def test_fmc_nested
+		a = FMCTest::A.new
+		assert_equal( 1, a._?.b._?.c._!.to_i._! )
+	end
+end
+

data/test/test-iterator-for.rb

@@ -1,18 +1,18 @@
-require 'test/unit'
-$VERBOSE = true
-
-require_relative '../lib/mug/iterator/for'
-class IterForTest < Test::Unit::TestCase
-	def test_iter_for
-		# Test on Integer#next => Integer
-		assert_equal([0, 1, 2, 3, 4], 0.iter_for(:next).take(5))
-		# Test on String#succ => String
-		assert_equal(%w[a b c d e f g h i j], 'a'.iter_for(:succ).take(10))
-		# Test on Integer#inspect => String#inspect => String
-		assert_equal([1, "1", "\"1\""], 1.iter_for(:inspect).take(3))
-	end
-	def test_iter_for_args
-		# Test with a parameter
-		assert_equal([0, 2, 4, 6, 8], 0.iter_for(:+, 2).take(5))
-	end
-end
+require 'test/unit'
+$VERBOSE = true
+
+require_relative '../lib/mug/iterator/for'
+class IterForTest < Test::Unit::TestCase
+	def test_iter_for
+		# Test on Integer#next => Integer
+		assert_equal([0, 1, 2, 3, 4], 0.iter_for(:next).take(5))
+		# Test on String#succ => String
+		assert_equal(%w[a b c d e f g h i j], 'a'.iter_for(:succ).take(10))
+		# Test on Integer#inspect => String#inspect => String
+		assert_equal([1, "1", "\"1\""], 1.iter_for(:inspect).take(3))
+	end
+	def test_iter_for_args
+		# Test with a parameter
+		assert_equal([0, 2, 4, 6, 8], 0.iter_for(:+, 2).take(5))
+	end
+end