multiset 0.3.0

data/.document

@@ -0,0 +1,5 @@
+lib/**/*.rb
+bin/*
+- 
+features/**/*.feature
+LICENSE.txt

data/.rspec

@@ -0,0 +1 @@
+--color

data/Gemfile

@@ -0,0 +1,13 @@
+source "http://rubygems.org"
+# Add dependencies required to use your gem here.
+# Example:
+#   gem "activesupport", ">= 2.3.5"
+
+# Add dependencies to develop your gem here.
+# Include everything needed to run rake, tests, features, etc.
+group :development do
+  gem "rspec", ">= 2.3.0"
+  gem "bundler", ">= 1.0.0"
+  gem "jeweler", ">= 1.5.2"
+  gem "rcov", ">= 0"
+end

data/LICENSE.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2011 maraigue
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,19 @@
+= multiset
+
+Description goes here.
+
+== Contributing to multiset
+ 
+* Check out the latest master to make sure the feature hasn't been implemented or the bug hasn't been fixed yet
+* Check out the issue tracker to make sure someone already hasn't requested it and/or contributed it
+* Fork the project
+* Start a feature/bugfix branch
+* Commit and push until you are happy with your contribution
+* Make sure to add tests for it. This is important so I don't break it in a future version unintentionally.
+* Please try not to mess with the Rakefile, version, or history. If you want to have your own version, or is otherwise necessary, that is fine, but please isolate to its own commit so I can cherry-pick around it.
+
+== Copyright
+
+Copyright (c) 2011 maraigue. See LICENSE.txt for
+further details.
+

data/Rakefile

@@ -0,0 +1,50 @@
+require 'rubygems'
+require 'bundler'
+begin
+  Bundler.setup(:default, :development)
+rescue Bundler::BundlerError => e
+  $stderr.puts e.message
+  $stderr.puts "Run `bundle install` to install missing gems"
+  exit e.status_code
+end
+require 'rake'
+
+require 'jeweler'
+Jeweler::Tasks.new do |gem|
+  # gem is a Gem::Specification... see http://docs.rubygems.org/read/chapter/20 for more options
+  gem.name = "multiset"
+  gem.homepage = "http://github.com/maraigue/multiset"
+  gem.license = "MIT"
+  gem.summary = %Q{Multiset library for Ruby}
+  gem.description = %Q{Ruby implementation of multiset. Unlike ordinary set(see Ruby documentation for "set" library), multiset can contain two or more same items.}
+  gem.email = "main@hhiro.net"
+  gem.authors = ["H.Hiro(Maraigue)"]
+  # Include your dependencies below. Runtime dependencies are required when using your gem,
+  # and development dependencies are only needed for development (ie running rake tasks, tests, etc)
+  #  gem.add_runtime_dependency 'jabber4r', '> 0.1'
+  #  gem.add_development_dependency 'rspec', '> 1.2.3'
+end
+Jeweler::RubygemsDotOrgTasks.new
+
+require 'rspec/core'
+require 'rspec/core/rake_task'
+RSpec::Core::RakeTask.new(:spec) do |spec|
+  spec.pattern = FileList['spec/**/*_spec.rb']
+end
+
+RSpec::Core::RakeTask.new(:rcov) do |spec|
+  spec.pattern = 'spec/**/*_spec.rb'
+  spec.rcov = true
+end
+
+task :default => :spec
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "multiset #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.3.0

data/lib/multiset.rb

@@ -0,0 +1,133 @@
+#Rubyによる多重集合（マルチセット）・多重連想配列（マルチマップ）の実装です。
+#
+#Ruby implementation of multiset and multimap.
+#
+#==インストール(Installation)
+#
+#インストールはsetup.rbによって行われます。詳しくはINSTALL.ja.txtをご覧下さい。
+#
+#setup.rb performs installation. See INSTALL.en.txt for more information.
+#
+#==更新履歴(Revision history)
+#
+#* Version 0.10(2008/2/9)
+#  * 公開開始。
+#* Version 0.11(2008/2/12)
+#  * Multiset#&の実装が誤っていたのを修正。
+#  * ドキュメントの間違いを修正。
+#* Version 0.12(2008/2/16)
+#  * Hash#to_multisetに冗長な処理があったので修正。
+#  * Multisetにメソッドmap, map!, collect, collect!, map_with, map_with!を追加。
+#    * これに伴い、従来のMultiset#mapなどとは挙動が変更されました。
+#      （従来のMultiset#mapなどはEnumerable#mapを呼んでいたので、
+#      返り値は配列でした。）
+#* Version 0.13(2008/3/1)
+#  * setup.rb(http://i.loveruby.net/ja/projects/setup/)を用いたインストールに対応した。
+#* Version 0.131(2008/3/2)
+#  * ドキュメントの間違いを修正。
+#* Version 0.20(beta) (2008/3/23)
+#  * Multimapクラスを追加。またこれに伴い、Hash#to_multimap・Hash#multimap
+#    メソッドを追加。
+#  * Multiset.parse、Multiset.parse_force、Multiset.parse_string、
+#    Multiset.parse_string?メソッドを追加。
+#  * Multiset#==において、引数がMultisetのインスタンスでない場合、
+#    強制的にfalseを返すようにした。
+#  * Multiset#subset?、Multiset#superset?、Multiset#proper_subset?、
+#    Multiset#proper_superset?において、引数がMultisetのインスタンスで
+#    ない場合、強制的にArgumentErrorを発生するようにした。
+#* Version 0.201(beta) (2008/3/25)
+#  * Multiset#classify、Multiset#classify_withの返り値をMultimapにした。
+#  * Multimap#to_s、Multimap#inspectを追加。（ドキュメントは省略させていただきます）
+#  * Multiset#to_sの実装が誤っていたのを修正。
+#* Version 0.202(beta) (2008/4/23)
+#  * GNU LGPLの文書を添付していなかったので追加。申し訳ありません。
+#<em></em>
+#* Version 0.10(2008/2/9)
+#  * First distribution.
+#* Version 0.11(2008/2/12)
+#  * [Fixed] Wrong implementation of Multiset#&
+#  * [Fixed] Wrong documentation
+#* Version 0.12(2008/2/16)
+#  * [Fixed] Removing redundant process in Hash#to_multiset
+#  * [Added] Methods: map, map!, collect, collect!, map_with, map_with! on Multiset
+#    * As a result, what Multiset#map and other methods do has changed.
+#      (As of version 0.11, Multiset#map returns an array, because
+#      Multiset#map means Enumerable#map.)
+#* Version 0.13(2008/3/1)
+#  * Made setup.rb(http://i.loveruby.net/en/projects/setup/) be avaliable.
+#* Version 0.131(2008/3/2)
+#  * [Fixed] Wrong documentation
+#* Version 0.20(beta) (2008/3/23)
+#  * [Added] Multimap class, Hash#to_multimap, Hash#multimap
+#  * [Added] Multiset.parse, Multiset.parse_force, Multiset.parse_string, Multiset.parse_string?
+#  * [Changed] In Multiset#==, if the argument is not an instance of Multiset,
+#    Multiset#== always returns false.
+#  * [Changed] In Multiset#subset?, Multiset#superset?, Multiset#proper_subset?
+#    and Multiset#proper_superset?, if the argument is not an instance of Multiset,
+#    those methods always raise ArgumentError.
+#* Version 0.201(beta) (2008/3/25)
+#  * [Changed] Multiset#classify, Multiset#classify_with returns a Multimap.
+#  * [Added] Multimap#to_s, Multimap#inspect (No document)
+#  * [Fixed] Wrong implementation of Multiset#to_s
+#* Version 0.202(beta) (2008/4/23)
+#  * Added the text of GNU LGPL to the archive. I'm very sorry...
+#
+#==著作権表示(Copyright)
+#
+#Author::    Maraigue(http://f52.aaa.livedoor.jp/~maraigue/)
+#Version::   0.202(beta) (2008/4/23)
+#Copyright:: (C)2008 Maraigue
+#
+#このプログラムはBSDライセンスにて提供する 無 保 証 のプログラムです。
+#詳細はBSDLicense.txtをご覧下さい。
+#
+#日本語の参考訳は以下のURLにあります。
+#http://sourceforge.jp/projects/opensource/wiki/licenses%2Fnew_BSD_license
+#ただし、法的にはBSDLicense.txtに書かれた英語の文章のみが有効です。
+#
+#setup.rbはMinero Aoki氏（http://i.loveruby.net/）の制作です。
+#setup.rbのみは、GNU LGPL(version 2.1)のライセンスが適用されます。
+#GNU LGPLについてはGNU_LGPL.txtをご覧下さい。
+#
+#This program is distributed with ABSOLUTELY NO WARRANTY, under BSD License.
+#See BSDLicense.txt for more detail.
+#
+#setup.rb is made by Minero Aoki(http://i.loveruby.net/).
+#Only setup.rb is distributed under GNU LGPL(version 2.1).
+#See GNU_LGPL.txt for more detail.
+
+require 'multiset/libmultiset'
+require 'multiset/libmultimap'
+
+#--
+# Sample
+#++
+if __FILE__ == $0
+	puts 'Creating multisets'
+	a = {1=>5, 4=>2, 6=>0}.to_multiset
+	b = Multiset[1,1,4,4,6,6]
+	p a
+	p b
+	
+	puts 'Operations for multisets'
+	p a + b
+	p a - b
+	p a & b
+	p a | b
+	
+	puts 'Modifying multisets'
+	p a.reject!{ |item| item == 3 }
+	p a
+	p a.reject!{ |item| item == 4 }
+	p a
+	a.add(3)
+	a.add(4, 10)
+	a << 1
+	p a
+
+	puts 'Flattening multisets'
+	a = Multiset[6,6,3,4,Multiset[5,8],Multiset[6,Multiset[3,8],8],8]
+	p a
+	p a.flatten!
+	p a.flatten!
+end

data/lib/multiset/libmultimap.rb

@@ -0,0 +1,475 @@
+#==概要(Basic information)
+#
+#Rubyによる多重連想配列（マルチマップ）の実装です。
+#通常の連想配列（Rubyでは"Hash"クラス）と異なり、多重連想配列は
+#1つのキーに対して複数の要素が存在し得ます。
+#
+#メソッド名は基本的にHashクラスに合わせてあります。またHashクラスが持つ
+#メソッドの大部分を実装していますが、いくつか未実装なものもあります。
+#
+#Ruby implementation of multimap.
+#Unlike ordinary map, also known as associative array
+#(see Ruby documentation for "Hash" class),
+#multimap can contain two or more items for a key.
+#
+#Most methods' names are same as those of Hash class, and all other than
+#a few methods in Hash class is implemented on Multimap class.
+
+class Multimap
+	include Enumerable
+	
+	#--
+	# Constructors
+	#++
+	
+	# 新しい多重連想配列を生成します。Hash#newと異なり、デフォルト値は
+	# 設定できません。
+	# 
+	# Generates a new multimap. Different from Hash#new , you can not
+	# specify default value.
+	def initialize
+		@assoc = Hash.new{ |hash, key| hash[key] = Multiset.new }
+	end
+	
+	# Removes all keys in @assoc if the value associated with key is
+	# empty multiset.
+	def cleanup # :nodoc:
+		@assoc.reject!{ |key, value_list| value_list.empty? }
+	end
+	private :cleanup
+	
+	# キー<code>key</code>に対応する値（複数存在しうる）を、
+	# Multisetとして返します。Hash#fetchの場合と異なり、キーに対応する
+	# 値が存在しない場合の扱いを指定することはできません。
+	# （そのような場合、空のMultisetが返ります。）
+	# 
+	# Returns values associated with <code>key</code> with format of
+	# Multiset. Different from Hash#fetch, you can not specify
+	# a value or a process when <code>key</code> has not associated with
+	# any value. If <code>key</code> has not associated with any value,
+	# Multimap#fetch returns empty Multiset.
+	def fetch(key)
+		@assoc[key]
+	end
+	alias :[] :fetch
+	
+	# キー<code>key</code>に対応する値（複数存在しうる）を
+	# <code>value_list</code>で置き換えます。この際、
+	# <code>value_list</code>はMultiset.parseを用いてMultisetに変換されます。
+	# 
+	# <code>value_list</code>を返します。
+	# 
+	# Sets values associated with <code>key</code> to <code>value_list</code>.
+	# <code>value_list</code> is converted to a Multiset by Multiset.parse .
+	# 
+	# Returns <code>value_list</code>.
+	def store(key, value_list)
+		if value_list.class == Multiset
+			@assoc[key] = value_list.dup
+		else
+			@assoc[key] = Multiset.parse(value_list)
+		end
+		value_list
+	end
+	alias :[]= :store
+	
+	# <code>self</code>が<code>other</code>と等しいかどうかを返します。
+	# 
+	# Returns whether <code>self</code> is equal to <code>other</code>.
+	def ==(other)
+		return false unless other.instance_of?(Multimap)
+		@assoc == other.to_hash
+	end
+	
+	# <code>self</code>を<code>Hash</code>に変換して返します。
+	# 生成されるハッシュの構造については、Hash#to_multimapをご覧下さい。
+	# その際、返されるハッシュにおいて値はすべてMultimap型となります。
+	#
+	# Converts <code>self</code> to a <code>Hash</code>.
+	# See Hash#to_multimap about format of generated hash.
+	# All values in the returned hash are multimaps.
+	def to_hash
+		@assoc.dup
+	end
+	
+	# <code>self</code>に格納された要素をすべて削除します。
+	# <code>self</code>を返します。
+	# 
+	# Removes all elements stored in <code>self</code>.
+	# Returns <code>self</code>.
+	def clear
+		@assoc.clear
+	end
+	
+	# <code>self</code>の複製を生成して返します。
+	#
+	# Returns duplicated <code>self</code>.
+	def dup
+		@assoc.to_multimap
+	end
+	
+	# <code>self</code>の内容を<code>other</code>のものに置き換えます。
+	# <code>self</code>を返します。
+	# 
+	# Replaces <code>self</code> by <code>other</code>.
+	# Returns <code>self</code>.
+	def replace(other)
+		@assoc.clear
+		other.each_pair_with do |key, a_value, count|
+			@assoc[key].add a_value, count
+		end
+		self
+	end
+	
+	# <code>key</code>に割り当てられた全ての値を削除し、その値を
+	# Multisetとして返します。
+	# 
+	# Deletes all values associated with <code>key</code>, and returns
+	# those values as a Multiset.
+	def delete(key)
+		ret = @assoc[key]
+		@assoc.delete(key)
+		ret
+	end
+	
+	# delete_ifと同じですが、<code>self</code>自身からはキーと値の組を
+	# 削除せず、要素が削除された結果の多重連想配列を新たに生成して
+	# 返します。
+	# 
+	# Same as delete_if, but generates a new Multimap whose pairs of
+	# key and value are deleted, instead of deleting pairs in
+	# <code>self</code>.
+	def reject(&block) # :yields: key, single_value
+		ret = self.dup
+		ret.delete_if &block
+		ret
+	end
+	
+	# ブロックに<code>self</code>のキーと値の組（値は1つ）を順次与え、
+	# 結果が真であった組をすべて削除します。
+	# <code>self</code>を返します。
+	#
+	# Gives all pairs of a key and single value in <code>self</code>
+	# to given block, and deletes that element if the block returns true.
+	# Returns <code>self</code>.
+	def delete_if(&block) # :yields: key, single_value
+		cleanup
+		@assoc.each_pair do |key, value_list|
+			value_list.delete_if{ |single_value|
+				block.call(key, single_value)
+			}
+		end
+		self
+	end
+	
+	# delete_ifと同じですが、キーと値の組が1つも削除されなければ
+	# <code>nil</code>を返します。
+	# 
+	# Same as delete_if, but returns <code>nil</code> if no pair of
+	# key and value is deleted.
+	def reject!(&block) # :yields: key, single_value
+		cleanup
+		ret = nil
+		@assoc.each_pair do |key, value_list|
+			ret = self if value_list.reject!{ |single_value|
+				block.call(key, single_value)
+			}
+		end
+		ret
+	end
+	
+	# rejectと同じですが、ブロックへの引数が（キー、キーに割り当てられた値、
+	# その値がキーに割り当てられている個数）の3つの組で与えられます。
+	# 
+	# Same as reject, but arguments given to block is the tuple of three:
+	# (key, one value associated with the key, numbers of that value
+	# associated with the key).
+	def reject_with(&block) # :yields: key, a_value, count
+		ret = self.dup
+		ret.delete_with &block
+		ret
+	end
+	
+	# delete_ifと同じですが、ブロックへの引数が（キー、キーに割り当てられた値、
+	# その値がキーに割り当てられている個数）の3つの組で与えられます。
+	# 
+	# Same as delete_if, but arguments given to block is the tuple of three:
+	# (key, one value associated with the key, numbers of that value
+	# associated with the key).
+	def delete_with(&block) # :yields: key, a_value, count
+		cleanup
+		@assoc.each_pair do |key, value_list|
+			value_list.delete_with{ |a_value, count|
+				block.call(key, a_value, count)
+			}
+		end
+		self
+	end
+	
+	# <code>self</code>のすべてのキーと値の組について繰り返します。
+	# <code>self</code>を返します。
+	# 
+	# Iterates for each pair of a key and a value in <code>self</code>.
+	# Returns <code>self</code>.
+	def each_pair
+		cleanup
+		@assoc.each_pair do |key, value_list|
+			value_list.each do |single_value|
+				yield key, single_value
+			end
+		end
+		self
+	end
+	alias :each :each_pair
+	
+	# <code>self</code>のすべてのキーと値の組について、
+	# ブロックに（キー、キーに割り当てられた値、その値が割り当てられた数）
+	# の組を与えながら繰り返します。<code>self</code>を返します。
+	# 
+	# Iterates for each pair of a key and a value in <code>self</code>,
+	# giving the tuple of three to block:
+	# (key, one value associated with the key, numbers of that value
+	# associated with the key). Returns <code>self</code>.
+	def each_pair_with
+		cleanup
+		@assoc.each_pair do |key, value_list|
+			value_list.each_pair do |a_value, count|
+				yield key, a_value, count
+			end
+		end
+		self
+	end
+	
+	# <code>self</code>のすべてのキーと、そのキーに割り当てられた
+	# すべての値（Multisetで与えられる）の組について繰り返します。
+	# <code>self</code>を返します。
+	# 
+	# Iterates for each pair of a key and all values associated with the key
+	# (list of values is given as Multiset) in <code>self</code>.
+	# Returns <code>self</code>.
+	def each_pair_list(&block) # :yields: key, value_list
+		cleanup
+		@assoc.each_pair &block
+	end
+	
+	
+	# <code>self</code>のすべてのキーについて繰り返します。
+	# <code>self</code>を返します。
+	# 
+	# Iterates for each key in <code>self</code>. Returns <code>self</code>.
+	def each_key(&block) # :yields: key
+		cleanup
+		@assoc.each_key &block
+	end
+	
+	# <code>self</code>のすべての値について繰り返します。
+	# <code>self</code>を返します。
+	# 
+	# Iterates for each value in <code>self</code>. Returns <code>self</code>.
+	def each_value(&block) # :yields: single_value
+		cleanup
+		@assoc.each_value do |value_list|
+			value_list.each &block
+		end
+	end
+	
+	# <code>self</code>のすべてのキーを、配列として返します。
+	# 
+	# Returns an array in which keys in <code>self</code> are stored.
+	def keys
+		cleanup
+		@assoc.keys
+	end
+	
+	
+	# <code>self</code>のすべての値を、Multisetとして返します。
+	# 
+	# Returns a Multiset in which values in <code>self</code> are stored.
+	def values
+		cleanup
+		ret = Multiset.new
+		@assoc.each_value do |value_list|
+			ret.merge! value_list
+		end
+		ret
+	end
+	
+	# <code>self</code>に要素がないかどうかを返します。
+	#
+	# Returns whether <code>self</code> has no element.
+	def empty?
+		cleanup
+		@assoc.empty?
+	end
+	
+	# <code>self</code>にキー<code>key</code>かあるかどうかを返します。
+	#
+	# Returns whether <code>self</code> has a key <code>key</code>.
+	def has_key?(key)
+		cleanup
+		@assoc.has_key?(key)
+	end
+	alias :key? :has_key?
+	alias :include? :has_key?
+	alias :member? :has_key?
+
+	# <code>self</code>に値<code>value</code>かあるかどうかを返します。
+	#
+	# Returns whether <code>self</code> has a value <code>value</code>.
+	def has_value?(value)
+		self.values.items.include?(value)
+	end
+	alias :value? :has_value?
+	
+	# <code>self</code>から値が<code>value</code>であるような要素を
+	# 検索し、それに対応するキーを返します。該当するキーが複数存在する場合、
+	# そのうちの1つを返します。該当するキーが存在しなければ
+	# <code>nil</code>を返します。
+	#
+	# Search a pair of key and value from <code>self</code> such that
+	# the value is equal to the argument <code>value</code>.
+	# If two or keys are matched, returns one of them.
+	# If no key is matched, returns nil.
+	def key(value)
+		self.each_pair_with do |key, a_value, count|
+			return key if value == a_value
+		end
+		nil
+	end
+	alias :index :key
+	
+	# <code>self</code>から<code>key_list</code>の各キーに対応する値
+	# （Multiset型）を取り出し、それらを配列として返します。
+	# すなわち、Multisetを要素とする配列を返します。
+	# 
+	# Gets values (instances of Multiset) of <code>self</code>
+	# associated with <code>key_list</code>, and returns those values
+	# as an array. i.e. returns an array whose elements are multisets.
+	def values_at(*key_list)
+		key_list.map{ |key| self[key] }
+	end
+	alias :indexes :values_at
+	alias :indices :values_at
+	
+	# <code>self</code>のキーと値を入れ替えたMultimapを返します。
+	# 例えばキー:aに対応する値が2つの:xと1つの:yであれば、変換結果は
+	# キー:xに:aが2つ、キー:yに:aが1つ対応するMultimapです。
+	# 
+	# Returns a Multimap whose keys are values in <code>self</code>, and
+	# values are keys in <code>self</code>. For example,
+	# If <code>self</code> has a key :a associated with two :x and one :y,
+	# returned multimap has two keys :x and :y, and their values are
+	# two :a and one :a respectively.
+	def invert
+		ret = Multimap.new
+		self.each_pair_with do |key, a_value, count|
+			ret[a_value].add key, count
+		end
+		ret
+	end
+	
+	# <code>self</code>に含まれている要素数を返します。 
+	# 
+	# Returns number of all elements in <code>self</code>. 
+	def size
+		ret = 0
+		self.each_pair_with{ |key, a_value, count| ret += count }
+		ret
+	end
+	alias :length :size
+	
+	# <code>self</code>に<code>other</code>の要素を追加します。
+	# <code>self</code>を返します。
+	# 
+	# Add elements in <code>other</code> to <code>self</code>.
+	# Returns <code>self</code>.
+	def merge!(other)
+		other.each_pair_with do |key, a_value, count|
+			self[key].add a_value, count
+		end
+		self
+	end
+	
+	# <code>self</code>と<code>other</code>の要素を合わせた多重集合を返します。
+	#
+	# Returns merged multiset of <code>self</code> and <code>other</code>.
+	def merge(other)
+		ret = self.dup
+		ret.merge! other
+	end
+	alias :+ :merge
+	
+	def to_s(delim = "\n") # :nodoc:
+		cleanup
+		
+		buf = ''
+		init = true
+		@assoc.each_pair do |key, value_list|
+			if init
+				init = false
+			else
+				buf += delim
+			end
+			buf += "#{key.inspect}=>{"
+			
+			init_val = true
+			value_list.each_pair do |a_value, count|
+				if init_val
+					init_val = false
+				else
+					buf += ", "
+				end
+				buf += "\##{count} #{a_value.inspect}"
+			end
+			buf += "}"
+		end
+		buf
+	end
+	
+	def inspect # :nodoc:
+		buf = "#<Multimap:"
+		buf += self.to_s(', ')
+		buf += '>'
+		buf
+	end
+end
+
+class Hash
+	# <code>self</code>を多重連想配列に変換し、その結果を返します。
+	# 新しく生成される多重連想配列においてキーに割り当てられる値は、
+	# <code>self</code>におけるキーの値をMultiset.parseによって多重集合に
+	# 変換したものとなります。
+	# 
+	# （例）キー<code>:a</code>には<code>:x</code>と<code>:y</code>が1個ずつ、
+	# キー<code>:b</code>には<code>:x</code>が2個割り当てられた多重連想配列
+	# 
+	# <code>{:a => [:x, :y], :b => [:x, :x]}.to_multiset</code>
+	# 
+	# Generates multiset from <code>self</code>.
+	# In generated multiset, values associated with a key are defined by
+	# the result of Multiset.parse(values_in_<code>self</code>) .
+	# 
+	# (example)
+	# Key <code>:a</code> is associated with values one <code>:x</code> and one <code>:y</code>, and 
+	# key <code>:b</code> is associated with values two <code>:x</code>
+	# 
+	# <code>{:a => [:x, :y], :b => [:x, :x]}.to_multiset</code>
+	def to_multimap
+		ret = Multimap.new
+		self.each_pair{ |key, val| ret[key] = val }
+		ret
+	end
+	
+	# <code>self</code>を多重連想配列に変換し、その結果を返します。
+	# 新しく生成される多重連想配列においてキーに割り当てられる値は、
+	# <code>self</code>に含まれる1要素のみです。
+	# 
+	# Generates multiset from <code>self</code>.
+	# In generated multiset, only one value is associated with a key
+	# (value in <code>self</code>).
+	def multimap
+		ret = Multimap.new
+		self.each_pair{ |key, val| ret[key] = Multiset[val] }
+		ret
+	end
+end