'
Mei Version 0.60 (12 February 1994)
on 15 March 1994 at 3:26:42 pm
'!


MeiSampleSpaceWithReplacement subclass: #MeiSampleSpaceWithoutReplacement
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Mei-Distributions-SampleSpace'!
MeiSampleSpaceWithoutReplacement comment:
'
Copyright (c) 1991-1994
Atsushi Aoki (SRA Boulder),
Katsuhiro Watanabe (SRA Tokyo),
Taiji Matsuoka (SRA Tokyo),
Yoshiyuki Nishinaka (SRA Tokyo) and
Makoto Minagawa (FXIS Tokyo).
Software Research Associates, Inc.
1113 Spruce Street, Suite 502
Boulder, Colorado 80302 the U.S.A.
TEL: +1-303-440-3582
FAX: +1-303-440-3930
'!


!MeiSampleSpaceWithoutReplacement methodsFor: 'accessing'!

next
	^data remove: super next! !

!MeiSampleSpaceWithoutReplacement methodsFor: 'private'!

setData: aCollection 
	data := aCollection asOrderedCollection! !
"-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- "!

MeiSampleSpaceWithoutReplacement class
	instanceVariableNames: ''!


!MeiSampleSpaceWithoutReplacement class methodsFor: 'examples'!

example1
	"MeiSampleSpaceWithoutReplacement example1."

	| data space bag set value point |
	MeiTestView openDisplayBlock: [:view :gstate | ]
		actionBlock: 
			[:view :gstate | 
			gstate clear.
			data := 0 to: 99.
			space := MeiSampleSpaceWithoutReplacement data: data.
			bag := Bag new.
			set := Set new.
			100
				timesRepeat: 
					[value := space next rounded.
					bag add: value.
					set add: value.
					set
						do: 
							[:each | 
							point := each @ (bag occurrencesOf: each).
							gstate displayLineFrom: point to: point]]]! !