AoC 2021 day 1 (Smalltalk)

#!/usr/local/bin/gst -q

Collection extend [
    apply: method  [ ^self collect: [:x | x perform: method] ]
]

"
| Mainline
"
depths := stdin lines contents apply: #asNumber.

#(1 3) keysAndValuesDo: [ :part :win |
    ('Part %1: ' % {part}) display.

    ((1 to: depths size - win) count: [ :i |
        (depths at: i) < (depths at: i + win)
    ]) displayNl.
]