From 190f522242b2e91eb3213e828a26886aa7847f3a Mon Sep 17 00:00:00 2001
From: Julian Hurst <julian.hurst@digdash.com>
Date: Tue, 3 Dec 2024 18:47:51 +0100
Subject: Refactor and add tests

Folders need to have 'sensible' names for hare test to detect them.
---
 two/2.ha | 62 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 62 insertions(+)
 create mode 100644 two/2.ha

(limited to 'two/2.ha')

diff --git a/two/2.ha b/two/2.ha
new file mode 100644
index 0000000..aea9ea8
--- /dev/null
+++ b/two/2.ha
@@ -0,0 +1,62 @@
+use fmt;
+use bufio;
+use os;
+use strings;
+use strconv;
+use io;
+
+export fn main() void = {
+	do(os::stdin);
+};
+
+fn do(h: io::handle) int = {
+	const sc = bufio::newscanner(h);
+	defer bufio::finish(&sc);
+
+	let safereports = 0;
+	for (const line => bufio::scan_line(&sc)!) {
+		const spl = strings::split(line, " ");
+		defer free(spl);
+		let safe = true;
+		let inc: (bool | void) = void;
+		for (let i = 1z; i < len(spl); i += 1) {
+			const s1 = strconv::stoi(spl[i-1])!;
+			const s2 = strconv::stoi(spl[i])!;
+			const diff = if (s1 < s2) {
+				match (inc) {
+				case void =>
+					inc = true;
+				case let inc: bool =>
+					if (!inc) {
+						safe = false;
+						break;
+					};
+				};
+				yield s2 - s1;
+			} else {
+				match (inc) {
+				case void =>
+					inc = false;
+				case let inc: bool =>
+					if (inc) {
+						safe = false;
+						break;
+					};
+				};
+				yield s1 - s2;
+			};
+			if (diff <= 0 || diff > 3) {
+				safe = false;
+				break;
+			};
+		};
+		if (safe) {
+			fmt::printfln("{}: Safe", line)!;
+			safereports += 1;
+		} else {
+			fmt::printfln("{}: Unsafe", line)!;
+		};
+	};
+	fmt::printfln("{} reports are safe", safereports)!;
+	return safereports;
+};
-- 
cgit v1.2.3