The Trunk: Kernel-nice.492.mcz

Nicolas Cellier uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-nice.492.mcz

==================== Summary ====================

Name: Kernel-nice.492
Author: nice
Time: 10 September 2010, 9:11:24.786 pm
UUID: 29865715-9a8e-c448-8d96-34eee97b5a37
Ancestors: Kernel-nice.491

Second revision of bench to display:

The rules are:

- display 10,400,000 rather than 1.04e7
- display 24 rather than 24.0
- display a fractional part only if significative

In any case, only first 3 digits are displayed, the rest are rounded to zero because considered un-meaningfull.

Above 100, every digit after the decimal point is at least in fourth position, so the decimal part won't be displayed.

=============== Diff against Kernel-nice.491 ===============

Item was changed:
  ----- Method: BlockClosure>>bench (in category 'evaluating') -----
  bench
  "See how many times I can value in 5 seconds.  I'll answer a meaningful description."
 
  | startTime endTime count roundTo3Digits |
+ roundTo3Digits := [:num |
+ | rounded lowDigit |
+ rounded := (num * 1000) rounded. "round to 1/1000"
+ lowDigit := (rounded numberOfDigitsInBase: 10) - 3. "keep only first 3 digits"
+ rounded := rounded roundTo:(10 raisedTo: lowDigit).
+ (lowDigit >= 3 or: [rounded \\ 1000 = 0]) "display fractional part only when needed"
+ ifTrue: [(rounded // 1000) asStringWithCommas]
+ ifFalse: [(rounded / 1000.0) printString]].
- roundTo3Digits := [:num | num roundTo: (10 raisedTo: (num numberOfDigitsInBase: 10) - 3)].
  count := 0.
  endTime := Time millisecondClockValue + 5000.
  startTime := Time millisecondClockValue.
  [ Time millisecondClockValue > endTime ] whileFalse: [ self value.  count := count + 1 ].
  endTime := Time millisecondClockValue.
  ^count = 1
+ ifTrue: [ (roundTo3Digits value: (endTime - startTime) / 1000) , ' seconds.' ]
- ifTrue: [ (roundTo3Digits value: (endTime - startTime) // 1000) printString, ' seconds.' ]
  ifFalse:
+ [ (roundTo3Digits value: (count * 1000) / (endTime - startTime)) , ' per second.' ]!
- [ ((roundTo3Digits value: (count * 1000 * 100) // (endTime - startTime)) / 100.0) printString, ' per second.' ]!