Squeak-dev March 2014

squeak-dev@lists.squeakfoundation.org

52 participants
139 discussions

Start a nNew thread

Re: [squeak-dev] The Trunk: KernelTests-nice.262.mcz
by Stéphane Rollandin 13 Mar '14

13 Mar '14

> + largeExactPowersOf6 := (2 to: 100) collect: [:k | k raisedTo: 66]. Shouldn't it be raisedTo: 6 ? Stef

2 2

The Trunk: Kernel-nice.841.mcz
by commits＠source.squeak.org 13 Mar '14

13 Mar '14

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.841.mcz ==================== Summary ==================== Name: Kernel-nice.841 Author: nice Time: 13 March 2014, 2:58:18.732 am UUID: e651c760-2924-469e-874b-deafb85737a0 Ancestors: Kernel-nice.840 Provide a somehow slower, but correct version of Integer>>#nthRoot: w.r.t. exactness =============== Diff against Kernel-nice.840 =============== Item was changed: ----- Method: Integer>>nthRoot: (in category 'mathematical functions') ----- nthRoot: aPositiveInteger "Answer the nth root of the receiver. + Answer an Integer if root is exactly this Integer, else answer the Float nearest the exact root." - See #nthRootAlt: for an alternative implementation." + | guess p | - | selfAsFloat floatResult guess delta higher lower raised | - selfAsFloat := self asFloat. + guess := self nthRootRounded: aPositiveInteger. + (guess raisedTo: aPositiveInteger) = self - "If we can't do Float arithmetic because we are too big, then look for an exact answer in exact arithmetic" - selfAsFloat isInfinite ifTrue: [ - guess := self nthRootTruncated: aPositiveInteger. - (guess raisedToInteger: aPositiveInteger) = self - ifTrue: [ ^ guess ]. - "Nothing else can be done. No exact answer means answer must be a Float. - Answer the best we have." - ^guess asFloat ]. - - floatResult := selfAsFloat nthRoot: aPositiveInteger. - guess := floatResult rounded. - - "If got an exact answer, answer it." - raised := guess raisedToInteger: aPositiveInteger. - raised = self ifTrue: [ ^ guess ]. + p := Float precision - guess highBitOfMagnitude. + p < 0 ifTrue: [ ^ guess asFloat ]. - "In this case, maybe it failed because we are such a big integer that the Float - method gets inexact, even if we are a whole square number. - Note 1(jmv): This algorithm is faster than #nthRootTruncated: for big n (aPositiveInteger) - but fails if self asFloat isInfinite. - Note 2(jmv): The algorithms I found for computing the nthRoot would havily use - very large fractions. I wrote this one, that doesn't create fractions." - selfAsFloat abs >= (Float maxExactInteger asFloat raisedToInteger: aPositiveInteger) - ifTrue: [ - raised > self - ifTrue: [ - higher := guess. - delta := floatResult predecessor - floatResult. - [ - floatResult := floatResult + delta. - lower := floatResult rounded. - (lower raisedToInteger: aPositiveInteger) > self ] whileTrue: [ - delta := delta * 2. - higher := lower ] ] - ifFalse: [ - lower := guess. - delta := floatResult successor - floatResult. - [ - floatResult := floatResult + delta. - higher := floatResult rounded. - (higher raisedToInteger: aPositiveInteger) < self ] whileTrue: [ - delta := delta * 2. - lower := higher ]]. - [ higher - lower > 1 ] whileTrue: [ - guess := lower + higher // 2. - raised := guess raisedToInteger: aPositiveInteger. - raised = self - ifTrue: [ - ^ guess ]. - raised > self - ifTrue: [ higher := guess ] - ifFalse: [ lower := guess ]]]. + guess := self << (p * aPositiveInteger) nthRootRounded: aPositiveInteger. + ^(guess / (1 << p)) asFloat! - "We need an approximate result" - ^floatResult! Item was added: + ----- Method: Integer>>nthRootRounded: (in category 'mathematical functions') ----- + nthRootRounded: aPositiveInteger + "Answer the integer nearest the nth root of the receiver." + | guess | + self = 0 ifTrue: [^0]. + self negative + ifTrue: + [aPositiveInteger even ifTrue: [ ArithmeticError signal: 'Negative numbers don''t have even roots.' ]. + ^(self negated nthRootRounded: aPositiveInteger) negated]. + guess := self nthRootTruncated: aPositiveInteger. + ^self * 2 > ((guess + 1 raisedTo: aPositiveInteger) + (guess raisedTo: aPositiveInteger)) + ifTrue: [guess + 1] + ifFalse: [guess]!

1 0

The Trunk: KernelTests-nice.262.mcz
by commits＠source.squeak.org 13 Mar '14

13 Mar '14

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.262.mcz ==================== Summary ==================== Name: KernelTests-nice.262 Author: nice Time: 13 March 2014, 1:52:32.328 am UUID: c70b95a4-48a3-47aa-b9e8-b6abdbf8004f Ancestors: KernelTests-nice.261 Assert that nthRoot is exact on more cases. Note how current implementation fails. =============== Diff against KernelTests-nice.261 =============== Item was added: + ----- Method: IntegerTest>>testNthRootExactness (in category 'tests - mathematical functions') ----- + testNthRootExactness + | inexactRoots largeExactPowersOf6 | + largeExactPowersOf6 := (2 to: 100) collect: [:k | k raisedTo: 66]. + inexactRoots := largeExactPowersOf6 reject: [:e | (e nthRoot: 6) isInteger]. + self assert: inexactRoots isEmpty description: 'Failed to find the exact 6th root of these numbers'!

1 0

New Site ?
by Germán Arduino 12 Mar '14

12 Mar '14

I saw today that the new site is on place. I was trying to download a fresh and updated 4.5 image and with the new site seems not to exist a way of point the ftp server with the folders of the different versions. I'm missing something? -- Saludos / Regards, Germán

7 7

Squeaksource down
by Sean P. DeNigris 12 Mar '14

12 Mar '14

http://www.downforeveryoneorjustme.com/http://www.squeaksource.com ----- Cheers, Sean -- View this message in context: http://forum.world.st/Squeaksource-down-tp4748801.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

3 3

[OT] intellecutal jokes
by Eliot Miranda 12 Mar '14

12 Mar '14

i just saw http://www.tickld.com/x/20-jokes-that-only-intellectuals-will-understand. this one made me laugh (rewritten not to be sexist): The programmer's partner said "Run to the store and get a loaf of bread. If they have eggs, get a dozen." The programmer returned with twelve loaves of bread.

2 1

unable to download squeak from home page
by Lawson English 12 Mar '14

12 Mar '14

The download button don't work. Hrm. Lawson -- Squeak from the very start (introduction to Squeak and Pharo Smalltalk for the (almost) complete and compleate beginner). https://www.youtube.com/playlist?list=PL6601A198DF14788D&feature=view_all "Debugging is twice as hard as writing the code in the first place. Therefore, if you write the code as cleverly as possible, you are, by definition, not smart enough to debug it." - Brian Kernighan

4 4

Daily Commit Log
by commits＠source.squeak.org 08 Mar '14

08 Mar '14

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2014-March/006968.html Name: Morphic-cmm.721 Ancestors: Morphic-cmm.720 It's not necessary to use a random pause for smart-splitters, I never noticed any patternistic emergence, but the call to atRandom from Morphic did result in an image lockup once when there was a lock on Collection class' #mutexForPicking. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2014-March/006969.html Name: System-cmm.667 Ancestors: System-dtl.666 - Added method to get a valid MethodReference from a stale, invalid one. =============================================

1 0

The Trunk: System-cmm.667.mcz
by commits＠source.squeak.org 07 Mar '14

07 Mar '14

Chris Muller uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-cmm.667.mcz ==================== Summary ==================== Name: System-cmm.667 Author: cmm Time: 7 March 2014, 11:05:02.41 am UUID: 5687957c-9a9d-4e72-9db9-14480a1a52e2 Ancestors: System-dtl.666 - Added method to get a valid MethodReference from a stale, invalid one. =============== Diff against System-dtl.666 =============== Item was added: + ----- Method: MethodReference>>asValid (in category 'converting') ----- + asValid + "Sometimes persistent MethodReferences may become stale after a refactoring which moved some methods to a superclass. This method answers the new valid MethodReference if that happened." + ^ self isValid + ifTrue: [ self ] + ifFalse: + [ | cm | + cm := self actualClass lookupSelector: self selector. + cm ifNotNil: [ cm methodReference ] ]! Item was changed: ----- Method: SmalltalkImage>>haltOrQuit (in category 'command line') ----- haltOrQuit + self isHeadless - Smalltalk isHeadless ifTrue: [ self snapshot: false andQuit: true ] ifFalse: [ self halt ]! Item was changed: ----- Method: SmalltalkImage>>run: (in category 'command line') ----- + run: aBlock - run: aBlock [ [ (aBlock numArgs = 1 and: [ self arguments size > 1 ]) + ifTrue: + [ "Allow a large, variable number of arguments to be passed as an Array to aBlock." + aBlock value: self arguments ] + ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] - ifTrue: [ aBlock value: self arguments ] - ifFalse: [ aBlock valueWithEnoughArguments: self arguments ] ] on: ProgressInitiationException do: [ : pie | "Don't want to log this notification." pie defaultAction ] ] on: Notification , Warning do: [ : noti | FileStream stdout nextPutAll: DateAndTime now asString ; space ; nextPutAll: noti description ; cr. noti resume ] on: SyntaxErrorNotification do: [ : err | FileStream stdout nextPutAll: err errorCode ; cr. self haltOrQuit ] on: Error do: [ : err | err printVerboseOn: FileStream stderr. self haltOrQuit. err isResumable ifTrue: [ err resume ] ]!

1 0

The Trunk: Morphic-cmm.721.mcz
by commits＠source.squeak.org 07 Mar '14

07 Mar '14

Chris Muller uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-cmm.721.mcz ==================== Summary ==================== Name: Morphic-cmm.721 Author: cmm Time: 7 March 2014, 10:59:11.347 am UUID: de79188f-637e-4ccd-9ef2-1b9b39f6de21 Ancestors: Morphic-cmm.720 It's not necessary to use a random pause for smart-splitters, I never noticed any patternistic emergence, but the call to atRandom from Morphic did result in an image lockup once when there was a lock on Collection class' #mutexForPicking. =============== Diff against Morphic-cmm.720 =============== Item was changed: ----- Method: ProportionalSplitterMorph>>stepTime (in category 'events') ----- stepTime "When a splitter finds itself in the right place, let it rest for about 3 seconds to avoid performance impacts of constant, rapid stepping." | pause | + pause := 3000. "Frozen image when atRandom failed due to lock on its Mutex." - pause := (2900 to: 3100) atRandom "to discourage any patternistic emergence". ^ ({#(1 -1 1 ). #(-1 1 -1 )} includes: self movements asArray) ifTrue: [ pause "don't twitch" ] ifFalse: [ splitsTopAndBottom ifTrue: [ self topBottomCorrection isZero ifTrue: [ pause ] ifFalse: [ 0 ] ] ifFalse: [ self leftRightImbalance abs > 1 ifTrue: [ ">1 rather than 0 to discourage one-off twitching" 0 ] ifFalse: [ pause ] ] ]!

1 0

← Newer
1
...
8
9
10
11
12
13
14
Older →

Jump to page: