#TUNING by stefan
class: Fraction
comment/format in: #+
changed:
#*
#/
Common code for Float, LongFloat and ShortFloat
--- a/Fraction.st Thu Sep 14 15:10:57 2017 +0200
+++ b/Fraction.st Thu Sep 14 15:29:55 2017 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -433,17 +431,22 @@
"/ (see the message send at the bottom)
(aNumber isMemberOf:SmallInteger) ifTrue:[
- ^ self class
- numerator:(numerator * aNumber)
- denominator:denominator
+ ^ self class
+ numerator:(numerator * aNumber)
+ denominator:denominator
].
- (aNumber isMemberOf:Float) ifTrue:[
- ^ (numerator * aNumber) / denominator
+ aNumber isFloat ifTrue:[
+ ^ (numerator * aNumber) / denominator
].
^ aNumber productFromFraction:self
- "Modified: 28.7.1997 / 19:09:23 / cg"
+ "
+ 2/3 * 3 asLongFloat
+ "
+
+ "Modified: / 28-07-1997 / 19:09:23 / cg"
+ "Modified (comment): / 14-09-2017 / 15:27:30 / stefan"
!
+ aNumber
@@ -460,17 +463,22 @@
"/ (see the message send at the bottom)
(aNumber isMemberOf:SmallInteger) ifTrue:[
- ^ self class
- numerator:(numerator + (denominator * aNumber))
- denominator:denominator
+ ^ self class
+ numerator:(numerator + (denominator * aNumber))
+ denominator:denominator
].
(aNumber isMemberOf:Float) ifTrue:[
- ^ (numerator asFloat / denominator asFloat) + aNumber
+ ^ (numerator asFloat / denominator asFloat) + aNumber
].
^ aNumber sumFromFraction:self
- "Modified: 28.7.1997 / 19:09:16 / cg"
+ "
+ 2/3 + 10 asLongFloat
+ "
+
+ "Modified: / 28-07-1997 / 19:09:16 / cg"
+ "Modified (comment): / 14-09-2017 / 15:26:46 / stefan"
!
- aNumber
@@ -522,17 +530,18 @@
"/ (see the message send at the bottom)
(aNumber isMemberOf:SmallInteger) ifTrue:[
- ^ self class
- numerator:numerator
- denominator:(denominator * aNumber)
+ ^ self class
+ numerator:numerator
+ denominator:(denominator * aNumber)
].
- (aNumber isMemberOf:Float) ifTrue:[
- ^ numerator / (denominator * aNumber)
+ aNumber isFloat ifTrue:[
+ ^ numerator / (denominator * aNumber)
].
^ aNumber quotientFromFraction:self
- "Modified: 28.7.1997 / 19:09:06 / cg"
+ "Modified: / 28-07-1997 / 19:09:06 / cg"
+ "Modified: / 14-09-2017 / 15:24:48 / stefan"
!
// aNumber