From 9472bb6b043d5d425b9d1ec0d187155b1ac2b7cb Mon Sep 17 00:00:00 2001
From: sterni <sternenseemann@systemli.org>
Date: Wed, 1 Dec 2021 13:04:33 +0100
Subject: feat(sterni/aoc/2021): day 1 solution

Change-Id: I0781b2aa3624df9a3158296edcbbbf2ee845102b
---
 users/sterni/exercises/aoc/2021/solutions.bqn | 31 +++++++++++++++++++++++++++
 1 file changed, 31 insertions(+)
 create mode 100755 users/sterni/exercises/aoc/2021/solutions.bqn

(limited to 'users/sterni/exercises/aoc/2021/solutions.bqn')

diff --git a/users/sterni/exercises/aoc/2021/solutions.bqn b/users/sterni/exercises/aoc/2021/solutions.bqn
new file mode 100755
index 0000000000..98d70f8f15
--- /dev/null
+++ b/users/sterni/exercises/aoc/2021/solutions.bqn
@@ -0,0 +1,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
-- 
cgit 1.4.1