31 lines
700 B
BQN
Executable file
31 lines
700 B
BQN
Executable file
#!/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
|