December 2018 - Pharo-users

Re: [Pharo-users] can I improve this

by Benoit St-Jean

I'm on Squeak btw.Â Tried it in Pharo 6.1 and it looks like number parsing is different. Here's a version that works fine on Pharo 6.1 | file total numbers index frequencies duplicate | duplicate := false. frequencies := Set new: 150000. frequencies add: 0. numbers := OrderedCollection new: 1000. total := 0. file := StandardFileStream readOnlyFileNamed: 'C:\Recv\day.1.input'. [file atEnd] whileFalse: [numbers add: (file nextLine asInteger)]. file close. index := 0. [duplicate] whileFalse: [index := index \\ (numbers size) + 1. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â total := total + numbers at: index. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â (frequencies includes: total) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [duplicate := true] Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: [frequencies add: total]]. total ----------------- BenoÃ®t St-Jean Yahoo! Messenger: bstjean Twitter: @BenLeChialeux Pinterest: benoitstjean Instagram: Chef_Benito IRC: lamneth Blogue: endormitoire.wordpress.com "A standpoint is an intellectual horizon of radius zero".Â (A. Einstein) On Monday, December 3, 2018, 10:12:36 a.m. EST, Roelof Wobben <r.wobben(a)home.nl> wrote: Op 3-12-2018 om 16:08 schreef Benoit St-Jean via Pharo-users: yep I did change it by the argument partTwo: aFileName Â Â Â | total numbers index frequencies duplicate file | duplicate := false. frequencies := Set new: 150000. frequencies add: 0. numbers := OrderedCollection new: 1000. total := 0. file := self changesFrom: aFileName. index := 0. [duplicate] whileFalse: [index := index \\ (numbers size) + 1. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â total := total + numbers at: index. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â (frequencies includes: total) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [duplicate := true] Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: [frequencies add: total]]. ^total and changesFrom looks like this : changesFrom: aFileName Â Â Â ^Array streamContents: [:changes | Â Â Â Â Â aFileName asFileReference readStreamDo: [:in | Â Â Â Â Â Â Â [in atEnd] whileFalse: [changes nextPut: in nextLine asInteger]]]

Dec. 3, 2018

Re: [Pharo-users] can I improve this

by Roelof Wobben

Op 3-12-2018 om 16:08 schreef Benoit St-Jean via Pharo-users: yep I did change it by the argument partTwo: aFileName Â Â Â | total numbers index frequencies duplicate file | duplicate := false. frequencies := Set new: 150000. frequencies add: 0. numbers := OrderedCollection new: 1000. total := 0. file := self changesFrom: aFileName. index := 0. [duplicate] whileFalse: [index := index \\ (numbers size) + 1. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â total := total + numbers at: index. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â (frequencies includes: total) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [duplicate := true] Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: [frequencies add: total]]. ^total and changesFrom looks like this : changesFrom: aFileName Â Â Â ^Array streamContents: [:changes | Â Â Â Â Â aFileName asFileReference readStreamDo: [:in | Â Â Â Â Â Â Â [in atEnd] whileFalse: [changes nextPut: in nextLine asInteger]]]

Dec. 3, 2018

Re: [Pharo-users] can I improve this

by Benoit St-Jean

Did you change the file name? ----------------- BenoÃ®t St-Jean Yahoo! Messenger: bstjean Twitter: @BenLeChialeux Pinterest: benoitstjean Instagram: Chef_Benito IRC: lamneth Blogue: endormitoire.wordpress.com "A standpoint is an intellectual horizon of radius zero".Â (A. Einstein) On Monday, December 3, 2018, 9:52:08 a.m. EST, Roelof Wobben <r.wobben(a)home.nl> wrote: yep, onÂ Pharo this is a empty collection. numbers := OrderedCollection new: 1000. soÂ Â index \\ (numbers size)Â Â isÂ something divide by zero Roelof Op 3-12-2018 om 15:44 schreef Roelof Wobben: > Op 3-12-2018 om 15:30 schreef Benoit St-Jean via Pharo-users: > > Thanks, > > But at first glance you do not use the contents of file anywhere or am > I mistaken. > When I try your code on the real input I see a divide by zero error > message. > > Roelof > > > >

Dec. 3, 2018

Re: [Pharo-users] can I improve this

by Roelof Wobben

yep, onÂ Pharo this is a empty collection. numbers := OrderedCollection new: 1000. soÂ Â index \\ (numbers size)Â Â isÂ something divide by zero Roelof Op 3-12-2018 om 15:44 schreef Roelof Wobben: > Op 3-12-2018 om 15:30 schreef Benoit St-Jean via Pharo-users: > > Thanks, > > But at first glance you do not use the contents of file anywhere or am > I mistaken. > When I try your code on the real input I see a divide by zero error > message. > > Roelof > > > >

Dec. 3, 2018

Re: [Pharo-users] can I improve this

by Roelof Wobben

Op 3-12-2018 om 15:30 schreef Benoit St-Jean via Pharo-users: Thanks, But at first glance you do not use the contents of file anywhere or am I mistaken. When I try your code on the real input I see a divide by zero error message. Roelof

Dec. 3, 2018

Re: [Pharo-users] can I improve this

by Benoit St-Jean

Concerning Day1, part2 of Advent Of Code 2018, here's my quick take (Coded in a workspace with Squeak)... | file total numbers index frequencies duplicate | duplicate := false. frequencies := Set new: 150000. frequencies add: 0. numbers := OrderedCollection new: 1000. total := 0. file := StandardFileStream readOnlyFileNamed: 'day.1.input'. [file atEnd] whileFalse: [numbers add: (Integer readFrom: file nextLine)]. file close. index := 0. [duplicate] whileFalse: [index := index \\ (numbers size) + 1. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â total := total + numbers at: index. Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â (frequencies includes: total) Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifTrue: [duplicate := true] Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â Â ifFalse: [frequencies add: total]]. ^total ----------------- BenoÃ®t St-Jean Yahoo! Messenger: bstjean Twitter: @BenLeChialeux Pinterest: benoitstjean Instagram: Chef_Benito IRC: lamneth Blogue: endormitoire.wordpress.com "A standpoint is an intellectual horizon of radius zero".Â (A. Einstein) On Monday, December 3, 2018, 2:01:08 a.m. EST, phil(a)highoctane.be <phil(a)highoctane.be> wrote: Also, given the time that some people solve the puzzle, doing it too nice is actually not the best use of time in AoC. Now, I'll try to solve quick and this will for sure lead to interesting things in Pharo. >From Reddit, people solve it quick then make it nice. Phil On Mon, Dec 3, 2018, 03:45 Richard O'Keefe <raoknz(a)gmail.com wrote: The key question is "what do you mean by improve"?I'd start by asking "what are you doing that you will still have to do inpart 2, and what won't you do?"Â So looking at part 2, you will want toconvert the lines to integers, andÂ input := Array streamContents: [:lines |Â Â 'input.txt' asFileReference readStreamDo: [:in |Â Â Â [in atEnd] whileFalse: [lines nextPut: in nextLine asInteger]]].gives you a chunk of code you can use in both parts.Â So you mightwant to have Day1Â changesFrom: aFileNameÂ Â ^Array streamContents: [:changes |Â Â Â aFileName asFileReference readStreamDo: [:in |Â Â Â Â [in atEnd] whileFalse: [changes nextPut: in nextLine asInteger]]]Â partOne: aFileNameÂ Â ^(self changesFrom: aFileName) sumÂ partTwo: aFileNameÂ Â ...The file name should not be wired in because you want some test files.

Dec. 3, 2018

Re: [Pharo-users] can I improve this

by Roelof Wobben

Dec. 3, 2018

Re: [Pharo-users] can I improve this

by Richard O'Keefe

"if I use do: this ends at the end of the array." True. But all that means is that you have to keen on using #do:. Processing an array repeatedly is as simple as [true] whileTrue: [ anArray do: [:each | ...]] I had intended to twist this into [changes anySatisfy: [:change | ...]] whileFalse. However, in this case your second alternative has much to recommend it. The control flow is simple. There's no magic about it. It's an unusual setup, so no need to get fancy. seen := Set new. frequency := 0. found := false. i := changes size. [found] whileFalse: [ i := i = changes size ifTrue: [1] ifFalse: [i+1]. frequency := frequency + (changes at: i). found := seen includes: frequency. seen add: frequency]. I like this better than what I had. If we _were_ to get fancy, then introducing a CyclicReadStream class and doing seen := Set new. frequency := 0. found := false. stream := CyclicReadStream on: self changes. [found] whileFalse: [ frequency := frequency + stream next. found := seen includes: frequency. seen add: frequency]. wouldn't shrink the code much. Oddly enough, I've encountered problems in previous Advent of Code exercises where CyclicReadStream would have been handy. But just for this case? No. On Tue, 4 Dec 2018 at 00:25, Roelof Wobben <r.wobben(a)home.nl> wrote: > hello Richard, > > Thanks, I figured that out already. > What I do not get is how to read the array multiple times. > > if I use do: this ends at the end of the array. > > Or I must use something as this : > > index := 0 > if index > array length > index =: 1 > else > index := index + 1 > > > and then read the number with array at: index > > Roelof > > > Op 3-12-2018 om 10:08 schreef Richard O'Keefe: > > Roelof Wobben wrote > "I have to reread the file till the adding causes the same outcome as we > had already" > You have to process the *sequence of changes* repeatedly; > you DON't have to *reread the file*. Somebody already made this point. > Having read the changes into an array, you can iterate repeatedly over > that array. > > to find the first repeated frequency given a sequence of changes > make an empty Set to hold the sums that have been seen so far. > set the frequency to 0. > loop forever > for each change in the changes > increment the frequency by the change. > if the frequency is in the set > return the frequency > otherwise add the frequency to the set. > > partTwo: aFileName > Transcript print: (self firstRepeatedFrequency: (self changesFrom: > aFileName)); cr; flush. > > On Mon, 3 Dec 2018 at 19:31, Roelof Wobben <r.wobben(a)home.nl> wrote: > >> Thanks, >> >> For the second I have to take a good look. >> >> I have to reread the file till the adding causes the same outcome as we >> had already >> >> so for example if we have the sequence : >> >> +3, +3, +4, -2, -4 >> >> it has as outcome : >> >> 3 6 10 8 4 >> >> so no outcome is there a second time so we repeat the sequence >> >> >> 7 10 >> >> the 10 shows up a second time so there we have our answer. >> >> >> Roelof >> >> >> >> Op 3-12-2018 om 03:45 schreef Richard O'Keefe: >> >> The key question is "what do you mean by improve"? >> I'd start by asking "what are you doing that you will still have to do in >> part 2, and what won't you do?" So looking at part 2, you will want to >> convert the lines to integers, and >> input := Array streamContents: [:lines | >> 'input.txt' asFileReference readStreamDo: [:in | >> [in atEnd] whileFalse: [lines nextPut: in nextLine asInteger]]]. >> gives you a chunk of code you can use in both parts. So you might >> want to have >> >> Day1 >> changesFrom: aFileName >> ^Array streamContents: [:changes | >> aFileName asFileReference readStreamDo: [:in | >> [in atEnd] whileFalse: [changes nextPut: in nextLine asInteger]]] >> partOne: aFileName >> ^(self changesFrom: aFileName) sum >> partTwo: aFileName >> ... >> The file name should not be wired in because you want some test files. >> >> >> >> >

Dec. 3, 2018

Re: [Pharo-users] VPS difficulties

by Ben Coman

That is strange. Can you post your "/etc/security/limits.d/pharo.conf" file? cheers -ben On Mon, 3 Dec 2018 at 01:42, horrido <horrido.hobbies(a)gmail.com> wrote: > Bizarre. I've created a new VirtualBox image of Debian and now this > solution > no longer works! I'm still getting the thread priority warning. So this > solution appears to be unreliable. > > <sigh> > > > On Fri, 23 Nov 2018 at 04:02, horrido <horrido.hobbies@> wrote: > > > Okay, I've resolved everything. First, the reason why I'm getting the > > 'pthread_setschedparam failed' error when I run Pharo under Debian is > > because it must be run as 'root'! Don't ask me why, but that's the reason > > why Pharo can't set thread priorities. (This wasn't an issue under Ubuntu > > Server â go figure.) > > > > Second, I am now using Pharo's own SHA256 class. It's probably not as > > secure > > (because it doesn't use a salt value) and not as quick to execute (not > > being > > C code), but for my purpose, it doesn't really matter. > > > > So I can use DigitalOcean or OVH to run my web server in a VPS. > > > > Good to hear. But you shouldn't need to run Pharo as root, > just be root to create this config file.... > cat <<END | sudo tee /etc/security/limits.d/pharo.conf > * hard rtprio 2 > * soft rtprio 2 > END > > cheers -ben > </quote> > > > > > -- > Sent from: http://forum.world.st/Pharo-Smalltalk-Users-f1310670.html > >

Dec. 3, 2018

Re: [Pharo-users] Pharo 7 Monticello browser and github repositories

by Ben Coman

On Mon, 3 Dec 2018 at 01:48, Sanjay Minni via Pharo-users < pharo-users(a)lists.pharo.org> wrote: > How to add new github repositories in Monticello (Browser) in Pharo 7 > (e.g to include the repository for Voyage) > > Monticello browser does show github repositories - how to edit / add new > ones ? > Please try Iceberg. Your feedback as a fresh Iceberg user would be useful. Sorry I don't have any links handy, but it would be interesting to see what you can work out intuitively. One thing though, if you are using Windows you'll need to "Use custom SSH keys..." (if you are using ssh based protocol) cheers -ben

Dec. 3, 2018