blob: af97161ee453c06d6eae366247fe0b7e4c6c4515 [file] [log] [blame]
quadMultiply: i1 and: i2
"This method multiplies the given numbers by each other
and the result by 4."
| mul |
mul := i1 * i2.
^mul * 4