Packages October 2011

packages@lists.squeakfoundation.org

1 participants
135 discussions

The Trunk: Kernel-nice.645.mcz
by commits＠source.squeak.org 29 Oct '11

29 Oct '11

Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.645.mcz ==================== Summary ==================== Name: Kernel-nice.645 Author: nice Time: 29 October 2011, 11:42:54.825 am UUID: 6c7fe149-d362-481d-803f-eecbec00619c Ancestors: Kernel-ael.643 Yet another version of #nthRoot: from Cuis 1) Receivers too big for Float arithmetic but without exact answer, and a better float than infinity is possible. 2) Besides, a small performance tweak: don't call 'selfAsFloat nthRoot: aPositiveInteger' if the result will be infinity, i.e. if the receiver is infinity. =============== Diff against Kernel-ael.643 =============== Item was changed: ----- Method: Integer>>nthRoot: (in category 'mathematical functions') ----- nthRoot: aPositiveInteger + "Answer the nth root of the receiver. + See #nthRootAlt: for an alternative implementation." - "Answer the nth root of the receiver." + | selfAsFloat floatResult guess delta higher lower raised | - | selfAsFloat floatResult guess raised higher lower delta | selfAsFloat := self asFloat. - floatResult := selfAsFloat nthRoot: aPositiveInteger. + "If we can't do Float arithmetic because we are too big, then look for an exact answer in exact arithmetic" + selfAsFloat isInfinite ifTrue: [ - "If we can't do Float arithmetic, then look for an exact answer in exact arithmetic" - floatResult 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 ]. - (guess raisedToInteger: aPositiveInteger) = self ifTrue: [^guess]. - ^floatResult ]. + floatResult := selfAsFloat nthRoot: aPositiveInteger. guess := floatResult rounded. "If got an exact answer, answer it." raised := guess raisedToInteger: aPositiveInteger. raised = self ifTrue: [ ^ guess ]. "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 - Note (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 ]]]. "We need an approximate result" ^floatResult!

1 0

The Trunk: Kernel-nice.645.mcz
by commits＠source.squeak.org 29 Oct '11

29 Oct '11

1 0

The Trunk: KernelTests-nice.207.mcz
by commits＠source.squeak.org 29 Oct '11

29 Oct '11

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.207.mcz ==================== Summary ==================== Name: KernelTests-nice.207 Author: nice Time: 29 October 2011, 11:39:06.749 am UUID: ef2c95d0-2f77-47da-b2de-f232b4043dec Ancestors: KernelTests-nice.206 Additional test from Juan for nthRoot: an Integer with inexact nthRoot could answer a better Float than infinity. =============== Diff against KernelTests-nice.206 =============== Item was added: + ----- Method: IntegerTest>>testBigReceiverInexactNthRoot (in category 'tests - mathematical functions') ----- + testBigReceiverInexactNthRoot + " + IntegerTest new testBigReceiverInexactNthRoot + " + + "Inexact 3rd root (not a whole cube number), so a Float must be answered. + However, receiver is too big for Float arithmethic." + | bigNum result | + bigNum := (100 factorial raisedTo: 3) + 1. "Add 1 so it is not a whole cube" + self assert: bigNum asFloat isInfinite. "Otherwise, we chose a bad sample" + result := bigNum nthRoot: 3. + self assert: result class == Float. + self deny: result isInfinite. + self assert: result = 100 factorial asFloat. "No other float is closer. See following line" + self assert: 100 factorial asFloat = (100 factorial+1) asFloat!

1 0

The Trunk: KernelTests-nice.207.mcz
by commits＠source.squeak.org 29 Oct '11

29 Oct '11

1 0

The Trunk: KernelTests-nice.207.mcz
by commits＠source.squeak.org 29 Oct '11

29 Oct '11

1 0

The Trunk: Network-mtf.120.mcz
by commits＠source.squeak.org 28 Oct '11

28 Oct '11

Matthew Fulmer uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-mtf.120.mcz ==================== Summary ==================== Name: Network-mtf.120 Author: mtf Time: 28 October 2011, 12:31:11.023 am UUID: 899b135e-f4e5-4b9c-b920-34d40dbb8817 Ancestors: Network-tonyg.119 added convenience methods for printing the address of a socket =============== Diff against Network-tonyg.119 =============== Item was added: + ----- Method: Socket>>localAddressPortString (in category 'accessing') ----- + localAddressPortString + ^ self localAddressString, ':', self localPort printString! Item was added: + ----- Method: Socket>>localAddressString (in category 'accessing') ----- + localAddressString + ^ NetNameResolver stringFromAddress: self localAddress! Item was added: + ----- Method: Socket>>remoteAddressPortString (in category 'accessing') ----- + remoteAddressPortString + ^ self remoteAddressString, ':', self remotePort printString! Item was added: + ----- Method: Socket>>remoteAddressString (in category 'accessing') ----- + remoteAddressString + ^ NetNameResolver stringFromAddress: self remoteAddress!

1 0

The Trunk: Network-mtf.120.mcz
by commits＠source.squeak.org 28 Oct '11

28 Oct '11

1 0

The Trunk: Network-mtf.120.mcz
by commits＠source.squeak.org 28 Oct '11

28 Oct '11

1 0

The Trunk: Tests-nice.133.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

Nicolas Cellier uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-nice.133.mcz ==================== Summary ==================== Name: Tests-nice.133 Author: nice Time: 24 October 2011, 7:17:16.796 pm UUID: a5694376-8adb-f749-91dd-ba749f1a7f54 Ancestors: Tests-eem.132 Add tests for binary selectors with vertical bar =============== Diff against Tests-eem.132 =============== Item was added: + ----- Method: CompilerTest>>testBinarySelectorWithBar (in category 'syntax') ----- + testBinarySelectorWithBar + "Acknowledge the fact that $| is now allowed at any place in a binary selector" + + #(#'||' #'|||' #'|||++' #'<|>') do: [:selector | | source tree | + source := ('1 ' , selector , ' 2') readStream. + tree := (Compiler new) + from: source class: Object context: nil notifying: nil; + translate: source noPattern: true ifFail: [nil]. + self assert: tree notNil. + + "Hem, this test is really ugly..." + self assert: tree block statements first expr selector key = selector].! Item was added: + ----- Method: CompilerTest>>testEmptyTemporaries (in category 'syntax') ----- + testEmptyTemporaries + self assert: (Compiler evaluate: '||') isNil! Item was added: + ----- Method: CompilerTest>>testInvalidVerticalBarSelector (in category 'syntax') ----- + testInvalidVerticalBarSelector + self should: [Compiler evaluate: '1 | | 2'] raise: SyntaxErrorNotification. + self should: [Compiler evaluate: '1 | - 2'] raise: SyntaxErrorNotification.! Item was added: + ----- Method: CompilerTest>>testLocalTemporariesInABlock (in category 'syntax') ----- + testLocalTemporariesInABlock + self assert: ((Compiler evaluate: '[:x|| tmp | tmp := x]') value: 2) = 2!

1 0

The Trunk: Tests-nice.133.mcz
by commits＠source.squeak.org 24 Oct '11

24 Oct '11

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2011