blob: 98d70f8f15cf52c8a370e2854266d6b40e7badcd (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
#!/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
|
