1 files changed, 12 insertions, 0 deletions
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)