32 lines
700 B
BQN
32 lines
700 B
BQN
|
#!/usr/bin/env BQN
|
|||
|
|
|
|||
|
|
#
|
|||
|
|
# Utilities
|
|||
|
|
#
|
|||
|
|
|
|||
|
|
ReadInt ← (10⊸×+⊣)´∘⌽-⟜'0' # stolen from leah2
|
|||
|
|
|
|||
|
|
ReadInput ← {ReadInt¨•file.Lines ∾ •path‿"/input/day"‿(•Fmt 𝕩)}
|
|||
|
|
|
|||
|
|
#
|
|||
|
|
# 2021-12-01
|
|||
|
|
#
|
|||
|
|
|
|||
|
|
# part 1
|
|||
|
|
|
|||
|
|
day1ExampleData ← 199‿200‿208‿210‿200‿207‿240‿269‿260‿263
|
|||
|
|
|
|||
|
|
# NB: Because distance from the ground is never smaller than zero, it's
|
|||
|
|
# no problem that nudge inserts a zero at the end of the right list
|
|||
|
|
PositiveDeltaCount ← +´∘(⊢<«)+˝˘∘↕
|
|||
|
|
|
|||
|
|
! 7 = 1 PositiveDeltaCount day1ExampleData
|
|||
|
|
|
|||
|
|
•Out "Day 1.1: "∾•Fmt 1 PositiveDeltaCount ReadInput 1
|
|||
|
|
|
|||
|
|
# part 2
|
|||
|
|
|
|||
|
|
! 5 = 3 PositiveDeltaCount day1ExampleData
|
|||
|
|
|
|||
|
|
•Out "Day 1.2: "∾•Fmt 3 PositiveDeltaCount ReadInput 1
|