From 89a77a459fc3e497c3fc29742e540aa19ced85f0 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Wed, 2 Mar 2022 20:37:54 +0100
Subject: Solve problem 81

---
 problem81.ijs | 11 +++++++++++
 1 file changed, 11 insertions(+)
 create mode 100644 problem81.ijs

(limited to 'problem81.ijs')

diff --git a/problem81.ijs b/problem81.ijs
new file mode 100644
index 0000000..7d89276
--- /dev/null
+++ b/problem81.ijs
@@ -0,0 +1,11 @@
+solve =: {{
+	data =. ;: fread y
+	mat =. (2#%:-:#data)$".>{.|:(2,~-:#data)$data
+	diags =. </.mat
+	k =. <.-:#diags
+	'a b' =. (k{.diags);<k}.diags
+	step =. {{<<./>x+each {{(_,y);y,_}}>y}}
+	<./>(step/b) step step/|.a
+}}
+
+problem81 =: solve 'p081_matrix.txt'
-- 
cgit v1.2.3