'From Squeak3.6 of ''6 October 2003'' [latest update: #5424]'!
Object subclass: #YukiFraction
	instanceVariableNames: 'up down '
	classVariableNames: ''
	poolDictionaries: ''
	category: 'Category-Yuki Quiz'!

!YukiFraction methodsFor: 'private'!
setUp: upInteger down: downInteger
	up := upInteger.
	down := downInteger! !


!YukiFraction methodsFor: 'converting'!
asString
	^ up asString, '/', down asString! !

!YukiFraction methodsFor: 'converting'!
makeBetween: aFraction
	^ YukiFraction up: (self up + aFraction up) down: (self down + aFraction down)! !


!YukiFraction methodsFor: 'printing'!
printOn: aStream
	aStream nextPutAll: self asString! !


!YukiFraction methodsFor: 'accessing'!
down
	^ down! !

!YukiFraction methodsFor: 'accessing'!
up
	^ up! !


!YukiFraction class methodsFor: 'instance creation'!
up: upInteger down: downInteger
	^ self new setUp: upInteger down: downInteger; yourself! !