From 3ed38a90366e9da1ec5088ea8f8259b4a444362d Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Mon, 20 Sep 2021 14:58:54 +0200
Subject: Problem 44

---
 problem44.ijs | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 problem44.ijs

diff --git a/problem44.ijs b/problem44.ijs
new file mode 100644
index 0000000..3d2c10c
--- /dev/null
+++ b/problem44.ijs
@@ -0,0 +1,12 @@
+p =: verb : '-:y*_1+3*y'
+wa =: p 1+i.10000
+
+isP =: e.&wa
+
+sums =: isP +/~ wa
+difs =: isP -/~ wa
+
+heh =: sums *. difs
+row =: I. +/"1 heh
+col =: I. +/ heh
+problem44 =: x: (p 1+row) - (p 1+col)
-- 
cgit v1.2.3