From 5bea77b19aee5db8fb3b7c29c41402325adcb403 Mon Sep 17 00:00:00 2001
From: Peter Mikkelsen <petermikkelsen10@gmail.com>
Date: Fri, 27 Aug 2021 17:34:42 +0200
Subject: Problem 74

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

diff --git a/problem74.ijs b/problem74.ijs
new file mode 100644
index 0000000..74c57e4
--- /dev/null
+++ b/problem74.ijs
@@ -0,0 +1,11 @@
+digits =: 10&#.^:_1
+next =: +/@:!@:digits
+loop =: monad define
+	n =. next {. y
+	if. n e. y do.
+		#y
+	else.
+		loop (n,y)
+	end.
+)
+problem74 =: +/60=loop"0 i.1e6 NB. Takes about a minute to compute
-- 
cgit v1.2.3