Collection

• anyOne
• capacity
• size

• ,
• add:
• addAll:
• addIfNotPresent:

• *
• +
• -
• /
• //
• \\

• hash

• adaptToCollection:andSend:
• adaptToNumber:andSend:
• adaptToPoint:andSend:
• adaptToString:andSend:
• asBag
• asCharacterSet
• asOrderedCollection
• asSet
• asSortedArray
• asSortedCollection
• asSortedCollection:
• flattened

• anySatisfy:
• associationsDo:
• collect:
• collect:thenSelect:
• count:
• detect:
• detect:ifNone:
• detectMax:
• detectMin:
• detectSum:
• do:
• do:separatedBy:
• do:without:
• inject:into:
• reject:
• select:
• select:thenCollect:

• contents
• flattenOnStream:
• write:

• abs
• average
• ceiling
• floor
• log
• max
• median
• min
• negated
• range
• reciprocal
• rounded
• sqrt
• squared
• sum
• truncated

• printOn:
• storeOn:

• emptyCheck
• errorEmptyCollection
• errorNoMatch
• errorNotFound
• errorNotKeyed
• maxSize
• toBraceStack:

• remove:
• remove:ifAbsent:
• removeAll:
• removeAllFoundIn:
• removeAllSuchThat:

• intersectionWith:
• intersectionWithSet:

• allSatisfy:
• consistsOf:
• includes:
• includesAll:
• includesAllOccurrences:
• includesAllOf:
• includesAny:
• includesAnyOf:
• includesSubstringAnywhere:
• isCollection
• isEmpty
• isEmptyOrNil
• isSequenceable
• notEmpty
• occurrencesOf:

• newLarge
• with:
• with:with:
• with:with:with:
• with:with:with:with:
• with:with:with:with:with:
• with:with:with:with:with:with:
• withAll:

• initialize

InitialValue:

a Random

inferredType:

Random

 
	"Answer a copy of the receiver agregated with the argument, aCollection."

	^self copy 
		addAll: aCollection;
		yourself

	"Answer a new collection containing all my elements, flattened,
	which means: if an element is a collection, then flatten it as well (recursively).
	<#(1 #(2 3 4) #(10 #(12 13 14 #(#(100) 200 #(251 252) 300 400)))) flattened>"

	| newCollection |
	newCollection := self species new: self size.
	self do: 
		[:each | 
		each isCollection
			ifTrue: [newCollection addAll: each flattened]
			ifFalse: [newCollection add: each]].
	^newCollection

	"Return the elements in common with receiver and anotherCollection 
	as an appropriate collection with one instance of each element."

	^anotherCollection intersectionWithSet: self asSet

	"Return the elements in common with receiver and anotherCollection 
	as an appropriate collection with one instance of each element."

	^self asSet intersectionWithSet: aSet

 
	"Note that an empty collection will return true!
	<'some' allSatisfy: [:each | each isCharacter]>
	<#() allSatisfy: [:each | each isNumber]>
	<'some' allSatisfy: [:each | each == true]>"
	
	^(self select: aBlock) includesAll: self

 
	"Returns true if the contents of the receiver and <aCollection> 
	are exactly the same - order doesn't matter."

	^self size = aCollection size and: [self includesAllOccurrences: aCollection]

	"Answer whether the receiver includes each element of aCollection."

	aCollection do: [:each | (self includes: each) ifFalse: [^false]].
	^true

 
	"Return true if the receiver includes all elements in aCollection. 
	If aCollection contains duplicate elements, the receiver must have one for each of them."

	| meAsBag otherBag |
	aCollection size > self size ifTrue: [^false].
	otherBag := aCollection asBag.
	meAsBag := self asBag.
	otherBag do: [:each | (meAsBag occurrencesOf: each) < (otherBag occurrencesOf: each) ifTrue: [^false]].
	^true

	"Return true if the receiver includes any of the elements in aCollection."

	aCollection do: [:each | (self includes: each) ifTrue: [^true]].
	^false

	"Answer whether the receiver contains at least one element."

	^self isEmpty not

	^self new: 100