From cb11d04ba18d94b63479eef4cc9d42ddd2fd5f4a Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Mon, 27 Sep 2021 19:59:44 +0200
Subject: Problem 46

---
 problem46.ijs | 4 ++++
 1 file changed, 4 insertions(+)
 create mode 100644 problem46.ijs

(limited to 'problem46.ijs')

diff --git a/problem46.ijs b/problem46.ijs
new file mode 100644
index 0000000..2b77fef
--- /dev/null
+++ b/problem46.ijs
@@ -0,0 +1,4 @@
+nums =: (2&|#])2}.(0&p:#])i.10000
+squares =: {{ 2^~>:i.<.%:y }}
+fails =: {{ -.+./1 p:(]-2*squares) y }}"0
+problem46 =: nums{~{.I.fails nums
-- 
cgit v1.2.3