Advent of Code 2019
37 views
Skip to first unread message
Abraham Palmer
Dec 4, 2019, 6:59:25 AM12/4/19
to amber-lang
I have a longer-term project of using Amber as the front-end of secure and distributed applications built on HoloChain. I'm new to SmallTalk though and have been enjoying learning in Amber via the coding challenges at Advent of Code. There are two challenges each day and I think they normally build on eachother so you also get practice modifying/extending an existing solution. I keep running into the things I don't know how to do, but often just a search in Helios on something like "floor" comes up with what I need. I was hoping others might want to play along and share problems/solutions. For instance I haven't been able to get the load of the data input from a URL working yet (loadData). Here's some working code from the Day 1 challenge to give you an idea.
TestCase subclass: #AOCTest slots: {} package: 'Examples'!
!AOCTest methodsFor: 'tests'!
testFuel "Run the tests in the example"
self assert: (Module new: 12) fuel = 2. self assert: (Module new: 14) fuel = 2. self assert: (Module new: 1969) fuel = 966. self assert: (Module new: 100756) fuel = 50346.! !
Object subclass: #Day slots: {#star1. #star2} package: 'Examples'!
!Day methodsFor: 'as yet unclassified'!
loadData: aURL "Helper function to load data from URL to an array" | xhr | xhr := Platform newXhr open: 'GET' url: aURL ; onload: [ :data | ^data ]; onerror: [ :error | Transcript show: 'Request Failed:', error. ^nil]; send.!
star1 "The Fuel Counter-Upper needs to know the total fuel requirement. To find it, individually calculate the fuel needed for the mass of each module (your puzzle input), then add together all the fuel values.
What is the sum of the fuel requirements for all of the modules on your spacecraft?"
| text total | text := '1470771486867185198056650248725414600312854213665791885919047880658210675201183936834469593135370111892841531056837616611278014517983811614811182775973272222646065564582168975901224791203651030577622514809910061075592148678132756553357709473992950979238278885936571217091142619056511004314549792066109833761071439416708413940756730131457110026856327423911696412980675030763179952378069756858127958287148135893131391411360669404650430552421234946841083716122608793438882695968986031048951288141204739750460990981325889592987136301131747137498'. total := 0. text lines do: [:m | total := total + ((Module new: (m asNumber)) fuel)]. ^total! !
Object subclass: #Intcode slots: {#memory. #step} package: 'Examples'!
Object subclass: #Module slots: {#mass. #cumfuel} package: 'Examples'!
!Module methodsFor: 'as yet unclassified'!
fuel "Fuel is now pre-calculated when Module created."
^cumfuel!
fuelMass: aMass "Recursively add in additional mass needed to account for the fuel. Fuel required to launch a given module is based on its mass. Specifically, to find the fuel required for a module, take its mass, divide by three, round down, and subtract 2." | thefuel |
thefuel := (aMass / 3) floor - 2. thefuel > 0 ifTrue: [ cumfuel := cumfuel + thefuel. self fuelMass: thefuel ] ifFalse: [ ^cumfuel ].!
mass: aMass "Set the mass"
mass := aMass. cumfuel := 0. self fuelMass: aMass.! !
Herby Vojčík
Dec 4, 2019, 7:53:13 AM12/4/19
to amber...@googlegroups.com, Abraham Palmer
Hi!
Smalltalk is written with lowercase t, as one word. ;-)
IIRC you can get `(foo / bar) floor` as `foo // bar`.
Instead of parsing text and doing `stringWithNumberLines lines do:`, why
not just use literal array of numbers like `#(4 5 6 ...) do: ...` (you
can have newlines as separators inside literal array as well, so you can
reuse format of your method, just don't use string but more natural
container)? And since you are computing a total, the correct
Smalltalkish way is to use #inject:into: instead of #do: (how exactly is
left as an exercise for the reader :-) ).
Instead of `Platform newXhr`, try to use `Platform fetch:` family of
URLs, they build on more modern fetch() browser API.
The problem of your loadData is that getting data is asynchronous; the
method actually ends immediately, returning self as the default and
initiates the loading process, but result is only present in the future.
One way is to use callbacks, actually you could write
loadData: aUrl thenDo: aBlock
Platform newXhr
open: 'GET' url: aUrl ;
onload: aBlock;
onerror: [ :error | Transcript show:'Request Failed:', error ];
send
and in your code you should pass the block which uses the data once they
come in. As mentioned, using fetch API is probably better; fetch API
returns a Promise of the result so it could be something like (guessing,
not remembering actual fetch API details):
loadData: aUrl thenDo: aBlock
(Platform fetch: aUrl)
then: aBlock
catch: [ :error | Transcript show:'Request Failed:', error ]
and then call `foo loadData: myUrl thenDo: [ :data | ... ]`, or
loadData: aUrl
^ Platform fetch: aUrl "maybe with options"
and then treat a Promise directly, as in
(foo loadData: myUrl) then: [ :data | ... ]
(nitpick: please use space after keyword: messages, it's how it is
common in Smalltalk, unlike in ObjectiveC which took the syntax and idea
of objects from Smalltalk but where they don't put the space and keyword:)
Have fun,
Herby
On 4. 12. 2019 12:59, Abraham Palmer wrote:
> I have a longer-term project of using Amber as the front-end of secure
> and distributed applications built on HoloChain
> <https://holochain.org/>. I'm new to SmallTalk though and have been
> slots: {}
> package: 'Examples'!
>
> !AOCTestmethodsFor:'tests'!
> Objectsubclass:#Intcode
> You received this message because you are subscribed to the Google
> Groups "amber-lang" group.
> To unsubscribe from this group and stop receiving emails from it, send
> an email to amber-lang+...@googlegroups.com
> <mailto:amber-lang+...@googlegroups.com>.
> To view this discussion on the web visit
> https://groups.google.com/d/msgid/amber-lang/36d89bf9-0a94-47c5-9495-054bc5069f1a%40googlegroups.com
> <https://groups.google.com/d/msgid/amber-lang/36d89bf9-0a94-47c5-9495-054bc5069f1a%40googlegroups.com?utm_medium=email&utm_source=footer>.
Smalltalk is written with lowercase t, as one word. ;-)
IIRC you can get `(foo / bar) floor` as `foo // bar`.
Instead of parsing text and doing `stringWithNumberLines lines do:`, why
not just use literal array of numbers like `#(4 5 6 ...) do: ...` (you
can have newlines as separators inside literal array as well, so you can
reuse format of your method, just don't use string but more natural
container)? And since you are computing a total, the correct
Smalltalkish way is to use #inject:into: instead of #do: (how exactly is
left as an exercise for the reader :-) ).
Instead of `Platform newXhr`, try to use `Platform fetch:` family of
URLs, they build on more modern fetch() browser API.
The problem of your loadData is that getting data is asynchronous; the
method actually ends immediately, returning self as the default and
initiates the loading process, but result is only present in the future.
One way is to use callbacks, actually you could write
loadData: aUrl thenDo: aBlock
Platform newXhr
open: 'GET' url: aUrl ;
onload: aBlock;
onerror: [ :error | Transcript show:'Request Failed:', error ];
send
and in your code you should pass the block which uses the data once they
come in. As mentioned, using fetch API is probably better; fetch API
returns a Promise of the result so it could be something like (guessing,
not remembering actual fetch API details):
loadData: aUrl thenDo: aBlock
(Platform fetch: aUrl)
then: aBlock
catch: [ :error | Transcript show:'Request Failed:', error ]
and then call `foo loadData: myUrl thenDo: [ :data | ... ]`, or
loadData: aUrl
^ Platform fetch: aUrl "maybe with options"
and then treat a Promise directly, as in
(foo loadData: myUrl) then: [ :data | ... ]
(nitpick: please use space after keyword: messages, it's how it is
common in Smalltalk, unlike in ObjectiveC which took the syntax and idea
of objects from Smalltalk but where they don't put the space and keyword:)
Have fun,
Herby
On 4. 12. 2019 12:59, Abraham Palmer wrote:
> I have a longer-term project of using Amber as the front-end of secure
> and distributed applications built on HoloChain
> enjoying learning in Amber via the coding challenges at Advent of Code
> <https://adventofcode.com/2019>. There are two challenges each day and
> I think they normally build on eachother so you also get practice
> modifying/extending an existing solution. I keep running into the things
> I don't know how to do, but often just a search in Helios on something
> like "floor" comes up with what I need. I was hoping others might want
> to play along and share problems/solutions. For instance I haven't been
> able to get the load of the data input from a URL working yet
> (loadData). Here's some working code from the Day 1 challenge to give
> you an idea.
>
> |
> TestCasesubclass:#AOCTest
> modifying/extending an existing solution. I keep running into the things
> I don't know how to do, but often just a search in Helios on something
> like "floor" comes up with what I need. I was hoping others might want
> to play along and share problems/solutions. For instance I haven't been
> able to get the load of the data input from a URL working yet
> (loadData). Here's some working code from the Day 1 challenge to give
> you an idea.
>
> |
> slots: {}
> package: 'Examples'!
>
> !AOCTestmethodsFor:'tests'!
>
> testFuel
> "Run the tests in the example"
>
> selfassert:(Modulenew:12)fuel =2.
> selfassert:(Modulenew:14)fuel =2.
> selfassert:(Modulenew:1969)fuel =966.
> selfassert:(Modulenew:100756)fuel =50346.
> !!
>
> Objectsubclass:#Day
> testFuel
> "Run the tests in the example"
>
> selfassert:(Modulenew:12)fuel =2.
> selfassert:(Modulenew:14)fuel =2.
> selfassert:(Modulenew:1969)fuel =966.
> selfassert:(Modulenew:100756)fuel =50346.
> !!
>
> slots: {#star1. #star2}
> package: 'Examples'!
>
> !DaymethodsFor:'as yet unclassified'!
> package: 'Examples'!
>
> slots: {#memory. #step}
> package: 'Examples'!
>
> Objectsubclass:#Module
> package: 'Examples'!
>
> slots: {#mass. #cumfuel}
> package: 'Examples'!
>
> !ModulemethodsFor:'as yet unclassified'!
> package: 'Examples'!
>
>
> fuel
> "Fuel is now pre-calculated when Module created."
>
> ^cumfuel
> !
>
> fuelMass:aMass
> "Recursively add in additional mass needed to account for the fuel.
> Fuel required to launch a given module is based on its mass.
> Specifically, to find the fuel required for a module, take its mass,
> divide by three, round down, and subtract 2."
> |thefuel|
>
> thefuel :=(aMass /3)floor -2.
> thefuel >0
> ifTrue:[cumfuel :=cumfuel +thefuel.selffuelMass:thefuel ]
> fuel
> "Fuel is now pre-calculated when Module created."
>
> ^cumfuel
> !
>
> fuelMass:aMass
> "Recursively add in additional mass needed to account for the fuel.
> Fuel required to launch a given module is based on its mass.
> Specifically, to find the fuel required for a module, take its mass,
> divide by three, round down, and subtract 2."
> |thefuel|
>
> thefuel :=(aMass /3)floor -2.
> thefuel >0
> ifFalse:[^cumfuel ].
> !
>
> mass:aMass
> "Set the mass"
>
> mass :=aMass.
> cumfuel :=0.
> selffuelMass:aMass.
> !!
> |
>
>
> --
> !
>
> mass:aMass
> "Set the mass"
>
> mass :=aMass.
> cumfuel :=0.
> selffuelMass:aMass.
> !!
> |
>
>
> You received this message because you are subscribed to the Google
> Groups "amber-lang" group.
> To unsubscribe from this group and stop receiving emails from it, send
> an email to amber-lang+...@googlegroups.com
> <mailto:amber-lang+...@googlegroups.com>.
> To view this discussion on the web visit
> https://groups.google.com/d/msgid/amber-lang/36d89bf9-0a94-47c5-9495-054bc5069f1a%40googlegroups.com
> <https://groups.google.com/d/msgid/amber-lang/36d89bf9-0a94-47c5-9495-054bc5069f1a%40googlegroups.com?utm_medium=email&utm_source=footer>.
Abraham Palmer
Dec 4, 2019, 11:00:48 AM12/4/19
to Herby Vojčík, amber...@googlegroups.com
Reply all
Reply to author
Forward
0 new messages