From e7c9108b95e39d7ea5a29ae06d619c4727f11027 Mon Sep 17 00:00:00 2001
From: Thomas Voss <thomasvoss@live.com>
Date: Fri, 29 Oct 2021 23:02:39 +0200
Subject: Initial commit

---
 2015/14/puzzle-1.bc | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 2015/14/puzzle-1.bc

(limited to '2015/14/puzzle-1.bc')

diff --git a/2015/14/puzzle-1.bc b/2015/14/puzzle-1.bc
new file mode 100644
index 0000000..d36cafd
--- /dev/null
+++ b/2015/14/puzzle-1.bc
@@ -0,0 +1,25 @@
+/* Return the largest element from array `a` of length `l` */
+define max(a[], l)
+{
+	auto m, i
+	for (i = 0; i < l; i++) {
+		if (a[i] > m)
+			m = a[i]
+	}
+	return m
+}
+
+/* Return the kilometers traveled by a raindeer that flys with speed `s` km/s for `t` seconds before
+ * needing to rest for `r` seconds.
+ */
+define calc(s, t, r)
+{
+	auto a, d
+	while (d + t <= 2503) {
+		a += s * t
+		d += t + r
+	}
+	if (d < 2503)
+		a += s * (2503 - d)
+	return a
+}
-- 
cgit v1.2.3